Creation de fichiers excel, macro vba
Fermé
january
Messages postés
1
Date d'inscription
lundi 28 juillet 2008
Statut
Membre
Dernière intervention
28 juillet 2008
-
28 juil. 2008 à 10:17
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 - 31 juil. 2008 à 11:26
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 - 31 juil. 2008 à 11:26
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
- Si et excel - Guide
- Creation compte gmail - Guide
- Création compte google - Guide
1 réponse
f894009
Messages postés
17205
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
19 octobre 2024
1 709
31 juil. 2008 à 11:26
31 juil. 2008 à 11:26
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