Creation de fichiers excel, macro vba

january Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
f894009 Messages postés 17417 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
Configuration: Windows XP
Internet Explorer 6.0

1 réponse

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    0