nommer impression en PDF

[mix770]

Bonjour le forum,
j'ai besoin d'un petit coup de main SVP, j'ai une macro qui imprime en PDF je souhaiterai qu'elle donne en plus du nom du fichier par défaut l'abréviation TDC à la fin ( nom fichier_TDC)

Sub support orga()
Sheets("support orga").Select
ActiveSheet.PrintOut Copies:=1, ActivePrinter:="PDFCreator"
End Sub

merci beaucoup le forum

 

[mix770]

Re : nommer impression en PDF

je suis désolé de paraitre pressé, quelqu'un a une idée
merci

 

[kiki29]

Re : nommer impression en PDF

Salut, regarde ici ( il y en a 5 pages )

 

[xhudi69]

Re : nommer impression en PDF

Bonjour mix770, le Forum,
Bonjour kiki29

Juste pour saluer kiki29 qui m'a rendu un fier service, merci à toi.

@+ 😎

 

[bellula]

Re : nommer impression en PDF

Bonjour Mix770 et le Forum

Pour une fois que je peux (peut-être) aider quelqu'un, je ne vais pas me gêner LOL

tu peux essayer ceci

' crée fichier PDF

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Documents and Settings\.....\En PDF\Facture " & num &"_TDC" & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False


A+

Bellula