Bonjour
pour avoir une idée utilise l'enregistreur de macro en faisant un "fichier enregistrer sous" à partir de ton fichier de base
Tous les paramètres y seront consignés, y compris le chemin vers le bon dossier
A toi de modifier le nom du fichier en utilisant une variable comme Vnomfich="abcf.pdf",
Sub Macro1()
'
'
'monpc correspond à ton nom de pc, testsauv à un répertoire sur le bureau
'nom de fichier fixe = "toto.pdf"
ChDir "C:\Users\monpc\Desktop\testsauv\"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\monpc\Desktop\testsauv\toto.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
' avec nom de fichier créé
vnomfich = "Titi.pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= "C:\Users\monpc\Desktop\testsauv\" & vnomfich
End Sub
A tester
FINDRH