Bonjour,
Je souhaite faire une macro qui m'ouvre tous les fichier .asc d'un repertoire, les mets en forme pour xls (séparateur virgule+espace+pointvirgurle), puis coupe la feuille du fichier xls et la colle sur un fichier recap (support de la macro)
J'en suis là et je bloque!
 
Sub ouvrir_fichiers()
 
ChDir "U:\Cont\Coeur\Boitier"
monfichier = Dir("\*.asc" )
While monfichier <> ""
Workbooks.Open monfichier
monfichier = Dir()
Wend
End Sub
 
Somebody help?
 

Salut, dans un premier temps voir par exemple http://forum.hardware.fr/hfr/Progr [...] m#t1750135
ou même plus récemment ( sans récursion dans la recherche de fichiers ) http://forum.hardware.fr/hfr/Progr [...] 0929_1.htm et adapter à ton contexte, puis pour poursuivre http://forum.hardware.fr/hfr/Progr [...] 7546_1.htm
sans oublier de s'aider du macro recorder