Import plusieurs fichiers txt dans excel

Résolu/Fermé
fabienne35 Messages postés 11 Date d'inscription mercredi 23 janvier 2008 Statut Membre Dernière intervention 20 avril 2010 - 27 juin 2008 à 22:44
fabienne35 Messages postés 11 Date d'inscription mercredi 23 janvier 2008 Statut Membre Dernière intervention 20 avril 2010 - 29 juin 2008 à 21:09
Bonjour,

Je voudrais importer plusieurs fichiers.txt.
J'ai réussi à lister les noms des fichiers txt dans une feuille excel (plage nom_fichiers).
j'aimerais paramètrer une partie de la macro pour qu'il aille chercher le nom des fichiers dans la plage nom_fichiers de ma feuille excel.

Au premier tour :
'
Workbooks.OpenText Filename:= _
"D:\reponses\fichier1.txt", _

Au deuxième tour :

Workbooks.OpenText Filename:= _
"D:\reponses\fichier2_delaliste.txt", _

J'espère que ma demande est assez claire.

Merci de votre aide
A voir également:

1 réponse

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
28 juin 2008 à 09:23
Bonjour,
Si j'ai compris ce que tu veux...
Sub OuvreTxt()
Dim Cell As Range
    For Each cel In Range("Feuil1!FichierTxt")
        Workbooks.OpenText Filename:=cel.Value
    Next cel
End Sub

Tu dit...
A+
0
fabienne35 Messages postés 11 Date d'inscription mercredi 23 janvier 2008 Statut Membre Dernière intervention 20 avril 2010
29 juin 2008 à 21:09
Merci pour ta réponse,
c'est exactement ce que je souhaitais.
0