Creation de fichiers excel, macro vba
january
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaite creer 39 fichiers excel, le nom de chacun de ces 39 fichiers sera dans la colonne A d'un fichier A (j'ecris la macro dans le fichier A).
J'ai essaye plusieurs codes mais je n'arrive pas.
Si quelqu'un a une solution...
Merci d'avance
Je souhaite creer 39 fichiers excel, le nom de chacun de ces 39 fichiers sera dans la colonne A d'un fichier A (j'ecris la macro dans le fichier A).
J'ai essaye plusieurs codes mais je n'arrive pas.
Si quelqu'un a une solution...
Merci d'avance
A voir également:
- Creation de fichiers excel, macro vba
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Creation de compte google - Guide
- Creation de site web - Guide
1 réponse
Bonjour,
Essayez cette macro
Sub Macro2()
'Le nom de vos fichiers est dans la colonne A: "A1" à "A39" ou Cells(1,1) à Cells(1,39)
Chemin = "" 'ex: "c:\monrep\monsousrep\"
For x = 1 To 39
NomFichier = Cells(1, x)
Fichier = Chemin & NomFichier
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Fichier, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close
Next
End Sub
Essayez cette macro
Sub Macro2()
'Le nom de vos fichiers est dans la colonne A: "A1" à "A39" ou Cells(1,1) à Cells(1,39)
Chemin = "" 'ex: "c:\monrep\monsousrep\"
For x = 1 To 39
NomFichier = Cells(1, x)
Fichier = Chemin & NomFichier
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Fichier, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close
Next
End Sub