Enregistrer feuille au format PDF

Bonjour,

J'ai trouvé cette formule pour enregistrer une feuille au format PDF. Mais l'enregistrement ce fait sur le bureau.

Je souhaiterai que l'enregistrement ce fasse dans le dossier dont le chemin d'accès se trouve dans la cellule J2.

Sub enregistrerpdf()
Dim nompdf As String
Dim dossier As String

    dossier = ThisWorkbook.Path

    nompdf = dossier & "\" & Sheets("Passation").Range("G3")
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

Merci pour votre aide

Bonjour,

Sous réserve que tout soit à peu près logique dans l'endroit où sont rangées tes infos, remplace :

dossier = ThisWorkbook.Path

dossier = Sheets("Passation").Range("J2")

Merci.

Et puis-je nommer le PDF créé avec un nom compris à moitié dans une cellule et à moitié dans une autre ? Cellules mitoyennes.

Certainement. M'enfin tant que tu n'en dis pas plus, c'est dur de te répondre.

Mon nom de fichier comprends 2 lettres en G3 et 4 chiffres en H3

nompdf = dossier & "\" & Sheets("Passation").Range("G3") & Sheets("Passation").Range("H3")

?

Finalement j'ai extrait le nom du dossier et j'extrais le nom du fichier en une cellule. C'est plus simple

Si tu le dis, je n'en doute pas.

Mais comme on n'en sait toujours pas plus sur comment ton fichier est organisé...

Dans tous les cas,