copier le contenu d'un fichier texte

matthieu · 22 Août 2005

bonjour,

je souhaiterais une fonction qui permettrais d'ouvrir un fichier texte quelconque, de copier son contenu et de le coller dans une feuille de calcul excel

Car en fait je souhaite que l'on puisse choisir son fichier texte
avec un explorateur

merci

Sylvain · 23 Août 2005

Bonjour,

pour le code d'ouverture du fichier avec getopenfilename pour choisir le fichier :

Sub import_texte()
  fileToOpen = Application.GetOpenFilename('Text Files (*.txt), *.txt')
  If fileToOpen <> False Then Workbooks.OpenText Filename:=fileToOpen
End Sub

copier le contenu d'un fichier texte

matthieu

Guest

Sylvain

XLDnaute Occasionnel

Discussions similaires