Forcer le nom de fichier

[agir2]

Bonjour à tous!

J'aimerais ajouter une ligne de code pour forcer un nom de fichier vers un répertoire choisi sans donner le choix à mes utilisateurs
Ce code fonctionne bien mais il me demande le nom du fichier, ce que je veut éviter !

Qu'est-ce qui manque à mon code ?

Merci

Sub testPDF()

Application.ActivePrinter = "Adobe PDF sur Ne00:"
ActiveWindow.SelectedSheets.PrintOut copies:=1, ActivePrinter:= _
"Adobe PDF sur Ne00:", Collate:=True

End Sub

 

[2passage]

Re : Forcer le nom de fichier

Bonjour,

Il faudra utiliser Excel 2007 ou oOo.Calc pour faire cela directement : ils intègrent un filtre de conversion PDF.
Il y a peut-être une solution pour passer le nom de fichier en paramètre au générateur de PDF mais je crains que ce ne soit pas possible, sauf à utiliser des solutions éditiques pro (payantes). Il existe peut-être aussi des API Adobe mais là j'avoue que ça dépasse mes maigres compétences...

Bon courage.

 

[agir2]

Re : Forcer le nom de fichier

Voilà donc pourquoi je ne trouve pas ce qui me convient

MERCI

 

[ROGER2327]

Re : Forcer le nom de fichier

Bonjour à tous

Jetez un coup d'œil là-dessus :

VBA macro pour convertir en pdf​

C'est peut être adaptable à votre cas.​

ROGER2327
#2178