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

  • Initiateur de la discussion Initiateur de la discussion BOOWOOG
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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 !
 

Pièces jointes

Dernière édition:
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
 

Pièces jointes

Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
170
Réponses
37
Affichages
718
Réponses
33
Affichages
876
Retour