lu
pour importer les donnees d'un fichier texte vers excel
j'utilise un opentext
mais les donnees sont copies dans un nouveau classeur
comment faire pour les copies dans une feuille precise du classeur d'ou j'execute mon code?
lu
pour importer les donnees d'un fichier texte vers excel
j'utilise un opentext
mais les donnees sont copies dans un nouveau classeur
comment faire pour les copies dans une feuille precise du classeur d'ou j'execute mon code?
avant que ta macro qui ouvre ton fichier text tu mets
aprés que ta macro ait ouvert ton fichier text tu mets
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Dim classeur As String classeur = Activeworkbook.Name
j'ai pas tester.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 ActiveWorkbook.ActiveSheet.Copy after:=Workbooks(classeur).Sheets(1) ActiveWorkbook.Close
et pour l'appel de la procédure
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sub ImportText(FileName As String, PosImport As Range) Dim QT As QueryTable Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileName, Destination:=PosImport) With QT .TextFileSemicolonDelimiter = True .TextFileTextQualifier = xlTextQualifierDoubleQuote .Refresh End With End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part ImportText "C:\xxxx.txt", Range("A1")
merci pour vos reponses
ca marche niquel
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager