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

[BOOWOOG]

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 !

 

[Jacky67]

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

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

 

[BOOWOOG]

Bonjour,
Merci beaucoup Jacky67, cela fonctionne parfaitement !!!