Copie de feuilles sur un fichier global

Copie de feuilles sur un fichier global - VB/VBA/VBS - Programmation

Marsh Posté le 14-10-2010 à 09:38:27    

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?
 

Reply

Marsh Posté le 14-10-2010 à 09:38:27   

Reply

Marsh Posté le 14-10-2010 à 23:27:47    

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


Message édité par kiki29 le 14-10-2010 à 23:55:31
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed