XL 2016 [VBA] Sauvegarder en PDF dans dossier cible.

[morest38]

Salut à tous,
Je cherche depuis un certain temps à sauvegarder une zone d'impression d'une feuille excel en format PDF.
J'ai ce code tout simple:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:="Thermal Datasheet", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Mais qui ne fait que de l'enregistrer sur le bureau.
Comment faire pour que le code propose de choisir un dossier cible mais avec un nom de fichier pdf prédéfini?

Merci d'avance pour toute aide.

 

[Lone-wolf]

Bonsoir morest

Crée 2 variables : Dim Chemin As String, Nom As String

Chemin = "C:\dossier1\dossier2\" - chemin à modifier
Nom = "Thermal Datasheet"

Ensuite FileName:=Chemin & Nom & ".pdf"

 

[morest38]

Hello Lone Wolf,
Merci, je me suis probablement mal exprimé mais je cherche à ce qu'Excel ouvre une fenêtre pour ensuite avoir le choix et que le nom soit automatiquement indiqué.

J'avais trouvé une fonction:
Application.GetSaveAsFilename
Mais elle semble instable et ne pas vraiment considérer ni le nom imposé ni l'emplacement.

 

[Lone-wolf]

Re

Et comme ceci Application.Dialogs(xlDialogSaveAs).Show

 

[mapomme]

Bonsoir à tous,

Avec un code glané sur le net, voir un essai dans le fichier joint...

 

[Lone-wolf]

Bonsoir mapomme

Testé et approuvé

 

[morest38]

Re,
Merci pour le fichier mais ce dernier me fait planté Excel lorsque j'utilise la macro. Etrange même si je suis en x64 j'ai ajouté un PtrSafe pour contrer mais ça plante.