Renomer et tri de classeurs en fonction de plusieurs cellules dans une colonne/ VBA

[matteopacino]

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. ( voir l'exemple en pièce jointe)

Les autres colonnes contiennent 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 crée automatiquement 5 nouveau classeurs.
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("Sheet1").Select
Sheets("Sheet1").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 et serait il possible de renommer le classeur crée en fonction du pays ayant généré la création du nouveau classeur ?

Je joint un exemple.

Merci de me dire si jamais mon explication n'est pas clair.

(Veuillez m'excuser, j'ai déjà posté cette même discussion, mais j'ai voulu ajouter d'autres commentaires, et du coup mon post a paru comme lu, alors qu'il ne l'était pas.)

Je le reposte donc en espérant que quelqu'un pourra m'aider.


D’avance merci.