Enrigistrer une feuille Excel avec VBA dans un autre sous répertoire

Bonjour à tous

après plusieurs essais piochés à droite à gauche dans les forums je n'arrive pas a finaliser ce que je veux faire.

voila mon problème je voudrais sélectionner une feuille (Facture Manuelle) dans mon classeur et la copier dans un autre avec comme nom de classeur (Facture & Numfac & NomCli) dans un répertoire E:Société\nomboutique\facturation\Facture2020 dans les dernier essais je trouve dans le nom du classeur le dernier nom (Fature2020Facture 17_2020 Guytoon.xls) dans le nom de mon classeur et le fichier ne s'enregistre pas dans le sous répertoire (Facture2020).

Merci de votre aide je vous joins la macro actuelle

Sub Enregistre_facture_Maunuelle()

Dim Fact

Dim Num

Dim Nom

Dim Fichier

Dim Chemin As String

Dim ChDir As String

ChDir = Application.ActiveWorkbook.Path 'Chemin courant

'ChDir = "E:\Toto\Le Carre\Facturation\Factures2020\"

Fact = "Facture"

Num = Range("g3")

Nom = Range("d11")

Fichier = Fact & " " & Num & " " & Nom & ".xls"

Chemin = "E:\Toto\Le Carre\Factures2020" & Fichier

Sheets("Facture Manuelle").Copy

ActiveWorkbook.SaveAs ChDir & Fichier

Sheets(1).Name = "Facture"

End Sub

A bientot

Bonsoir,

Je pense qu'il manque un "\" après le nom du dernier répertoire.

Actuel :

Chemin = "E:\Toto\Le Carre\Factures2020" & Fichier

A tester :

Chemin = "E:\Toto\Le Carre\Factures2020\" & Fichier

Bouben

Bonsoir

merci de votre réponse mais j'ai essayé

En effet ...

Je pense que la variable Chemin n'est pas utilisée.

Le fichier est plutôt enregistré dans ChDir ...

Même test alors à faire :

ActiveWorkbook.SaveAs ChDir & Fichier

Nouveau :

ActiveWorkbook.SaveAs ChDir & "\" & Fichier

Bouben