Bonjour,

J'ai dans un fichier Excel une feuille nommée "LettrePdf" qui en cellule "A1" contient la date du jour.
Je souhaite enregistrer
1 > la feuille "LettrePdf" au format pdf
2 > avec pour nom celui de la cellule "A1"
3 > dans le repertoire c:\data

Pour information je suis sous excel 2010 avec pour imprimante pdf "PDF-XChange Printer 2012".

J'ai testé le code ci-dessous sans succès


D'avance merci pour votre aide.
StSym



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub Print2PDF()
 
Sheets("LettrePdf").Select
NomFichier = "A1"
ActiveSheet.PrintOut ActivePrinter:="PDF-XChange Printer 2012", prtofilename:="C:\Data\" & NomFichier & ".pdf"
 
End Sub