Bonjour à tous,
 
Je souhaite récupérer le contenu d’un fichier texte (.txt) pour le copier dans Excel.
Pour cela j’ai créé un « userform » pour la recherche du fichier en question (avec un boutton parcourir). Une fois l’adresse stockée dans une « TextBox » je souhaiterai ouvrir ce fichier et en copier l’intégralité du contenu dans une autre feuille de mon classeur Excel. C’est cette opération que je n’arrive pas à réaliser. Cela me semble simple mais une journée entière de labeur ne m’a pas encore donnée de résultats. Je sollicite donc votre aide.
 
Merci d’avance.
 
David

Dim xls As Excel.Application  
Dim xlsfeuille As Excel.Worksheet  
Dim xlsclasseur As Excel.Workbook  
 
Set xls = CreateObject("Excel.Application" )  
Set xlsclasseur = xls.Workbooks.Add  
Set xlsfeuille = xlsclasseur.Worksheets(1)  
 
 
FileOpen(1,ici textbox pour le chemin de ton fichier, OpenMode.Input)
 
        While EOF(1) = False
           ici tu utilise la fonction lineinput(1)
 
xlsfeuille.Cells(1, 1).Value = lineinput(1)
xlsfeuille.Cells(2, 1).Value = lineinput(1)
           
        End While
        FileClose(1)
 
inspire toi de ce code