copier le contenu d'un fichier texte

[matthieu]

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]

Bonjour,

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

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