VBA_ créer un classeur dans un répertoire à partir d'une liste

Bonjour à tous,

Je reviens à nouveau vers vous , car ma macro ne fonctionne pas ....si quelqu'un peut me donner un coup de pouce :) ca serait super chouette !

Mon problème est simple, j'ai un classeur Excel avec une liste dans l'onglet AB en colonne A2 et je souhaite créer des fichiers en fonction de cette liste dans le répertoire que je choisis.

J'ai essayé de modifier le chemin pour y mettre " chemin = Application.GetOpenFilename("Fichiers (*.xlsx),*.xlsx") " et pleins d'autres tests mais cela ne veut pas fonctionner :(

Voici le code :

Sub CreatListe()
Dim Chemin as variant

Chemin = ActiveWorkbook.Path  ' ou Application.GetOpenFilename("Fichiers (*.xlsx),*.xlsx")

For L = 2 To Range("A" & Rows.Count).End(xlUp).Row
Fichier = Range("A2" & L).Value
ChemFiche = Chemin & "\" & Fichier & ".xlsx"
Workbooks.Add
ActiveWorkbook.SaveAs ChemFiche
ActiveWorkbook.Close True
Next
End Sub

Merci de m'avoir lue ! et bonne soirée !

A.

Bonsoir

Rien de tout ça dans votre fichier joint

A la prochaine

Bonjour BrunoM45 ,

Oui effectivement c'est bien vu j'ai mal nommé mon onglet . J'ai corrigé dans le fichier ci joint .
Merci bonne journée !