comment créer une macro qui importe plusieurs fichiers txt

[nychko]

Bonjour,
je souhaite créer une macro me permettant d'importer un ou plusieurs fichiers textes les uns à coté des autres
j'ai déjà créé un userform où je récupere l'adresse du ou des fichiers .txt et à partir de là je voudrais le ou les importer automatiquement dans un classeur autre que celui qui contient le code
j'espere être clair je vous remercie par avance pour votre aide.

 

[Zon]

Salut,

La méthode opentext te crée directement ceci; Regardes dans l'aide si ton séparateur n'est pas la tabulation ou sois plus précis quant à ton fichier texte.

Par exemple

Workbooks.OpenText "C:\Lenomdufichier.txt", xlWindows, , , , , True

A+++

 

[nychko]

Merci beaucoup pour ton aide je peux désormais avancer
A bientôt

 

[vedacoe]

Bonjour,
cette fonction me plait bien sauf que j'aimerais bien être un peu plus vague.
Je m'explique : "lenomdufichier" sera aléatoire, par contre le suffixe sera toujour le même.
Merci.

 

[Zon]

Salut,

vedacoe, tu peux proposer à l'utilisateur de choisir le fichier à traiter :

sub Vedacoe()
on error resume next
Workbooks.OpenText ouvf, xlWindows, , , , , True
if err<> 0 then msgbox "Vous n'avez choisi un fichier texte valide"
end sub

Function OuvF()
OuvF = Application.GetOpenFilename("Fichier Texte (*.txt), *.txt")
End Function

A+++