Bouton enregistrement .pdf

[alexandreRIC]

Bonjour à tous de nouveau,

Je souhaiterai enregistrer au format .pdf la zone d'impression de la feuille active.
Ci-joint un fichier avec ce que j'ai trouvé sur le forum.
Ca marche parfaitement mais j'aimerai choisir:
- le chemin d'enregistrement
- le nom du fichier moi-même ou par une cellule (demande des deux solutions)

le code trouvé qui figure dans mon exemple:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Classeur1.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

Merci d'avance à tous,

AlexandreRIC

 

[gilbert_RGI]

Re : Bouton enregistrement .pdf

Bonjour

voilà un exemple 😉

 

[alexandreRIC]

Re : Bouton enregistrement .pdf

Merci Gilbert RGI, mais il y a soucis, je rentre le nom du fichier, ensuite je selectionne le chemin et à ce moment il y a cette erreur

Chemin = objFolder.parentFolder.ParseName(objFolder.Title).Path & ""

Vu que je suis débutant en vba, je ne comprend pas l'erreur.

Merci de ton temps Gilbert RGI

AlexandreRIC

 

[gilbert_RGI]

Re : Bouton enregistrement .pdf

moi aussi j'ai eu un problème voir si ce fichier fonctionne 🙄

 

[alexandreRIC]

Re : Bouton enregistrement .pdf

Non idem, malheureusement.

 

[gilbert_RGI]

Re : Bouton enregistrement .pdf

dans les références VBA regarder si celles ci sont bien cochées
voir dans la pj

 

[alexandreRIC]

Re : Bouton enregistrement .pdf

Bonjour à tous,

Effectivement la dernière option n'était pas cochée.
Mais cela ne marche toujours pas, toujours au niveau de la même ligne.

...

AlexandreRIC

 

[gilbert_RGI]

Re : Bouton enregistrement .pdf

Bonjour à tous,

Effectivement la dernière option n'était pas cochée.
Mais cela ne marche toujours pas, toujours au niveau de la même ligne.

...

AlexandreRIC

😕😕 chez moi ça fonctionne parfaitement bizarre

demain je vais essayer sur un autre poste pour voir😱

 

[gilbert_RGI]

Re : Bouton enregistrement .pdf

Voilà donc le résultat qui fonctionne sur mes deux postes 🙄