Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA

[joe.cocs]

Bonjour à tous,
Je cherche à faire une macro pour :

j'ai des onglets (01-xxxxx; 02-xxxxx; 03-xxxxx; ......)
j'ai une liste des onglets dans ma feuille pour choisir lesquels je vais copier dans un fichier unique pour chaque onglet.
J'ai une cellule (L45) qui me donne le chemin où je dois copier les fichiers
Résultat, je dois obtenir 1 fichier par onglet.
mon code :

Sub Copie_DPGF()
Dim Chemin As String, Dossier As String, FichierXLSX As String
Dim ListFeuille As Range
Dim fin As Integer
Dim NomFeuille As Range

With Sheets("PDG") 'récupère la liste des noms de feuilles à créer depuis la feuille "PDG"
    fin = .Range("M" & .Rows.Count).End(xlUp).Row
    Set ListFeuille = .Range("M7:M" & fin)
    
    Dossier = .Range("L45")
    
End With
    
    For Each NomFeuille In ListFeuille
      
        Application.DisplayAlerts = False
            
        FichierXLSX = "\" & ListeFeuille & ".xlsx"
        Chemin = Dossier & FichierXLSX
      
      Worksheets(NomFeuille.Value).Copy
          With ActiveWorkbook
               .SaveAs Filename:=Chemin, FileFormat:=xlOpenXMLWorkbook
               .Close SaveChanges:=False
          End With

    Next NomFeuille
 
    Application.DisplayAlerts = True

End Sub

et j'obtiens le message :

sur la ligne :
.SaveAs Filename:=Chemin, FileFormat:=xlOpenXMLWorkbook
J'avoue que je suis un peu perdu, si vous aviez une idée

Merci.

 

[job75]

Bonjour joe.cocs,

En écrivant :

FichierXLSX = "\" & NomFeuille & ".xlsx"

ça devrait aller mieux.

A+

 

[joe.cocs]

Merci job75
En effet, cela va beaucoup mieux.
J'ai un complément de question, comment je peux ne pas avoir les liens au fichier source et avoir que les valeurs.
Je voudrais que mes utilisateurs des fichiers ne soient pas obligés de mettre à jour les liens ??? 🥸

Merci 🙂

 

[job75]

S'il y a des liens c'est pour qu'on puisse les mettre à jour quand nécessaire.

Vous pouvez paramétrer chaque lien en cochant "Ne pas actualiser" dans la boîte "Liaisons de classeur".