XL 2013 VBA enregistrement fichier dans un dossier en particulier

[MarineU]

Bonjour,

Je tente de créer une macro permettant d'enregistrer une feuille d'un fichier dans un dossier en particulier. La macro ci-dessous.
Le fichier s'enregistre bien avec le nom indiqué dans la cellule K17, le problème est que le fichier ne s'enregistre pas dans le dossier "C:\Users\mkabiti\Desktop\Devis" mais sur le bureau de l'ordinateur.

Sub Enregistrement_PDF()
Dim fichier As String
Dim dossier As String
Dim chemin As String

With Worksheets("DEVIS")
fichier = .Range("K17") & ".pdf" doit être le nom du fichier pdf enregistré qui est indiqué dans la cellule
dossier = "C:\Users\mkabiti\Desktop\Devis" dossier dans lequel le fichier doit être enregistré
chemin = dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub

Auriez-vous une solution ? Ai-je oublié un code ?

Merci

 

[Dranreb]

Bonsoir
D'après ce que vous montrez vous avez oublié un antislash entre le dossier et le nom de fichier
Il faut : chemin = dossier & "\" & fichier
Mais je vois que vous ne l'utilisez même pas derrière.
Pour utiliser seulement fichier vous pourriez faire devant : ChDrive dossier: ChDir dossier

 

[Phil69970]

Bonjour à tous

@MarineU

1) Tu as oublier l'antislash
2) Tu n'as pas mis le bon "chemin"
3) Ceci ne sert à rien ==> , IgnorePrintAreas:=False, OpenAfterPublish:=False

Sub Enregistrement_PDF()
Dim fichier As String
Dim dossier As String
Dim chemin As String

With Worksheets("DEVIS")
fichier = .Range("K17") & ".pdf" 'doit être le nom du fichier pdf enregistré qui est indiqué dans la cellule
dossier = "C:\Users\mkabiti\Desktop\Devis\" 'dossier dans lequel le fichier doit être enregistré

chemin = dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True ', IgnorePrintAreas:=False, OpenAfterPublish:=False

End With
End Sub

Ce qui donne ceci tout corrigé :

Sub Enregistrement_PDF()
Dim fichier As String
Dim dossier As String
Dim chemin As String

With Worksheets("DEVIS")
fichier = .Range("K17") & ".pdf" 'doit être le nom du fichier pdf enregistré qui est indiqué dans la cellule
dossier = "C:\Users\mkabiti\Desktop\Devis\" 'dossier dans lequel le fichier doit être enregistré

chemin = dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

.ExportAsFixedFormat Type:=xlTypePDF, Filename:=chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True

End With
End Sub

Merci de ton retour

 

[MarineU]

Bonjour à tous

@MarineU

1) Tu as oublier l'antislash
2) Tu n'as pas mis le bon "chemin"
3) Ceci ne sert à rien ==> , IgnorePrintAreas:=False, OpenAfterPublish:=False



Ce qui donne ceci tout corrigé :


Merci de ton retour

Bonjour Phil69970,

Tout est opérationnel merci beaucoup pour votre aide.