Code pour enregistrer un fichier dans dossier

Salut à tous

Qu'est ce qui cloche dans mon code.

Je souhaite avec ce code pourvoir :

• Enregistrer mon fichier dans un dossier intitulé "TBC",
• Ce dossier se trouve sur le bureau
• Si le dossier n'existe pas, le code doit créer un dossier intitulé "TBC" et enregistrer le fichier.

Sub Enreg()
Dim Dossier As String, Tbc As String

Dossier = "C:\User\BEIN\Document\"

Tbc = Dossier & "\TBC " & Format(Date, "yyyy")
If Dir(Tbc, vbDirectory) = "" Then MkDir Tbc

ThisWorkbook.SaveAs Filename:=Feuil6.Range("A1") ', FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub

Bonjour,

comme tu ne nous dis pas ce qu'il y a dans feuil6.range("A1"), difficile de dire ce qui ne va pas dans ton code,

mais si on fait l'hypothèseque A1 ne contient que le nom du fichier sans le chemin, alors le chemin manque dans l'instruction Saveas.

j'enlèverais aussi un "\" devant TBC

Sub Enreg()
Dim Dossier As String, Tbc As String

Dossier = "C:\User\BEIN\Document\"

Tbc = Dossier & "TBC " & Format(Date, "yyyy") 
If Dir(Tbc, vbDirectory) = "" Then MkDir Tbc
 fn=tbc & "\" & feuil6.range("A1")
ThisWorkbook.SaveAs Filename:=fn ', FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub
 

Salut H2so4

Merci pour votre solution.

Votre supposition est juste.

Malgré tout il y'a un débogage dans cette partie du code :

If Dir(Tbc, vbDirectory) = "" Then MkDir Tbc

et plus précisément

MkDir Tbc

Merci

Bonjour,

cette partie-i de l'arborescence existe-t-elle bien ?

ne faut-il pas un "s" à document ?

C:\User\BEIN\Document\

Salut h2so4

Merci pour vos conseils et solutions.