XL 2016 Dupliquer un classeur et nommer les fichiers d'après une liste

BOOWOOG

XLDnaute Nouveau
Bonjour,
J'ai un classeur nommé DOSSIER et un autre fichier nommé LISTE. Je cherche à dupliquer DOSSIER autant de fois que de cellules renseignées en colonne A de LISTE (14 dans l'exemple des fichiers joints) et je souhaite que chaque nouveau fichier soit nommé par le contenu de la cellule de LISTE.
Je dois faire ce traitement pour de nombreux fichiers, je voudrais donc éviter de dupliquer et nommer manuellement, individuellement...
Je joints les 2 fichiers.
Merci pour votre aide !
 

Fichiers joints

Dernière édition:

Jacky67

XLDnaute Accro
Bonjour,
J'ai un classeur nommé DOSSIER et un autre fichier nommé LISTE. Je cherche à dupliquer DOSSIER autant de fois que de cellules renseignées en colonne A de LISTE (14 dans l'exemple des fichiers joints) et je souhaite que chaque nouveau fichier soit nommé par le contenu de la cellule de LISTE.
Je dois faire ce traitement pour de nombreux fichiers, je voudrais donc éviter de dupliquer et nommer manuellement, individuellement...
Je joints les 2 fichiers.
Merci pour votre aide !
Bonjour,
En adaptant les chemins
Dans l'exemple les classeurs créés sont placés dans le même dossier que "Dossier.xlsx"
Le tout à partir du classeur liste
VB:
Sub Copie()
    Dim C As Range, Chemin As String
    Application.ScreenUpdating = False
    Chemin = "D:\Mes documents\tests\"    '***A adapter
    Workbooks.Open Chemin & "DOSSIER.xlsx"    '***A adapter
    With Feuil1
        For Each C In .Range("a1:a" & .Cells(.Rows.Count, "A").End(xlUp).Row)
            If Dir(Chemin & C & ".xlsx") = "" And C <> "" Then
                ActiveWorkbook.SaveCopyAs Chemin & C & ".xlsx"
            End If
        Next
    End With
    Workbooks("DOSSIER.xlsx").Close , False
End Sub
 

Fichiers joints

Dernière édition:
Haut Bas