matteopacino
XLDnaute Junior
Bonjour à tous,
Grâce à ce forum, j’ai pu progresser sur Excel, et je vous en remercie.
Je vous présente cette situation-là :
J’ai un document excel avec une colonne A comportant différents noms de pays.
D’autres colonnes avec d’autres infos (noms de villes à visiter, langues parlées) .
J’ai réussi à faire en sorte que pour chaque nouveau pays dans ma colonne A, un nouveau classeur soit crée.
s’il y a donc 5 pays dans ma colonne A, je me retrouve avec 6 classeurs au final ( celui de départ +5)
Voici le code qui me permet cela ( veuillez excuser le brouillon ou les erreurs) :
Sub CopierUneFeuilleDunClasseurDansLautre()
For i = Sheets(1).Range("A65536").End(xlUp).Row To 1 Step -1
fName = Sheets(1).Cells(i, 1).Value
FichierOùCopier = ActiveWorkbook.Name
Application.Workbooks.Add
FichierOùColler = ActiveWorkbook.Name
Workbooks(FichierOùCopier).Activate
Sheets("Document List").Select
Sheets("Document List").Copy After:=Workbooks(FichierOùColler).Sheets(2)
Next
End Sub
Serait-il possible d’avoir dans ces nouveaux classeurs, les données UNIQUEMENT du pays ayant généré la création du nouveau classeur ?
Je joint un exemple.
D’avance merci.
Grâce à ce forum, j’ai pu progresser sur Excel, et je vous en remercie.
Je vous présente cette situation-là :
J’ai un document excel avec une colonne A comportant différents noms de pays.
D’autres colonnes avec d’autres infos (noms de villes à visiter, langues parlées) .
J’ai réussi à faire en sorte que pour chaque nouveau pays dans ma colonne A, un nouveau classeur soit crée.
s’il y a donc 5 pays dans ma colonne A, je me retrouve avec 6 classeurs au final ( celui de départ +5)
Voici le code qui me permet cela ( veuillez excuser le brouillon ou les erreurs) :
Sub CopierUneFeuilleDunClasseurDansLautre()
For i = Sheets(1).Range("A65536").End(xlUp).Row To 1 Step -1
fName = Sheets(1).Cells(i, 1).Value
FichierOùCopier = ActiveWorkbook.Name
Application.Workbooks.Add
FichierOùColler = ActiveWorkbook.Name
Workbooks(FichierOùCopier).Activate
Sheets("Document List").Select
Sheets("Document List").Copy After:=Workbooks(FichierOùColler).Sheets(2)
Next
End Sub
Serait-il possible d’avoir dans ces nouveaux classeurs, les données UNIQUEMENT du pays ayant généré la création du nouveau classeur ?
Je joint un exemple.
D’avance merci.