D
dba
Guest
Bonjour le forum,
je dois importer des données depuis plusieurs fichiers *.txt dans un classeur TOTO.XLS et dans une feuille de calcul nommée data
J'ai essayé :
Sub import_texte()
fileToOpen = Application.GetOpenFilename('Text Files (*.txt), *.txt')
If fileToOpen <> False Then Workbooks.OpenText Filename:=fileToOpen, DataType:=xlDelimited, TextQualifier:=xlTextQualifierNone, Other:=True, OtherChar:=';'
End Sub
Le pbl c'est que j'ouvre bien le fichier contenant mes données mais je voudrais que les données soient transférées dans la feuille de calcul data de TOTO.XLS et que si j'ouvre un autre fichier .TXT avec des données elles se rajoute dans la feuille 'DATA'
Si une âme charitable veut bien me donner le comment ce sera avec un grand merci !
je dois importer des données depuis plusieurs fichiers *.txt dans un classeur TOTO.XLS et dans une feuille de calcul nommée data
J'ai essayé :
Sub import_texte()
fileToOpen = Application.GetOpenFilename('Text Files (*.txt), *.txt')
If fileToOpen <> False Then Workbooks.OpenText Filename:=fileToOpen, DataType:=xlDelimited, TextQualifier:=xlTextQualifierNone, Other:=True, OtherChar:=';'
End Sub
Le pbl c'est que j'ouvre bien le fichier contenant mes données mais je voudrais que les données soient transférées dans la feuille de calcul data de TOTO.XLS et que si j'ouvre un autre fichier .TXT avec des données elles se rajoute dans la feuille 'DATA'
Si une âme charitable veut bien me donner le comment ce sera avec un grand merci !