Enregistrer en PDF avec le nom du dossier

Bonjour,

J'ai tenté avec l'enregistreur de macro, la macro fonctionne bien mais le nom reste toujours x au lieu de garder le nom actuel du fichier, dès que j'essaie de toucher rien ne fonctionne plus.


Sub Enregistrer_PDF()
'
' Enregistrer_PDF Macro
'

'
Dim x As String
x = ThisWorkbook.Name
Sheets("Offre ELECTRIQUE").Select
ChDir "G:\VENTE\OFFRES\OFFRES 2014"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\VENTE\OFFRES\OFFRES 2014\x.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub



En tatonant j'ai écrit cela:


Sub Enregistrer_PDF()

Dim chemin As String
Dim nom As String

chemin = "G:\VENTE\OFFRES\OFFRES 2014"
nom = ThisWorkbook.Name

Sheets("Offre ELECTRIQUE").Select


ActiveWorkbook.ExportAsFixedFormat Type:=x1TypePDF, _
Filename:=chemin & nom & ".pdf"

End Sub

Mais maintenant le nom est ok mais plus l'emplacement...... il sauve sur C: ...

J'ai essayà de rajouter un chemin par la au travers:

ChDir "G:\VENTE\OFFRES\OFFRES 2014"


Mais rien à faire...


Merci