Discussion :

[stsym]

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

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub toto()
    Sheet("LettrePdf").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\data\" & "Ficher du " & year(Range("A1")) & "-" month(Range("A1")) & "-"& day(Range("A1"))& ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
End Sub

[stsym]

Bonjour EngueEngue,

Merci pour ta réponse rapide.
J'ai testé mais j'ai un message d'erreur

Erreur de compilation.
Sub ou function non définie

Merci
StSym

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub toto()
    Sheets("LettrePdf").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\data\" & "Ficher du " & Year(Range("A1")) & "-" & Month(Range("A1")) & "-" & Day(Range("A1")) & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
End Sub

[stsym]

Là je dis bravo car tout fonctionne parfaitement.
Merci pour ton aide efficace.

Cordialement
StSym