comment créer une macro qui importe plusieurs fichiers txt

Z

Zon

Guest

• 5 Novembre 2004

• #2

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+++

 

Vote positif 0 Vote négatif

N

nychko

Guest

• 5 Novembre 2004

• #3

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

 

Vote positif 0 Vote négatif

V

vedacoe

Guest

• 8 Novembre 2004

• #4

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.

 

Vote positif 0 Vote négatif

Z

Zon

Guest

• 9 Novembre 2004

• #5

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+++

 

Vote positif 0 Vote négatif