bon si vous disposez de PDFcreator la macro suivante t'imprime une feuille excel donnée
Public Sub SaveToPDF(Chemin As String, nomfichier As String, Feuille As String)
Dim Temp As Variant
Temp = Worksheets(Feuille).PrintOut(, , 1, , "PDFCreator", True, True, Chemin + nomfichier + ".ps")
' Les Chr(34) sont importants. Ils définissent les guillemets anglais double.
Shell (Chr(34) + "C:\Program Files\PDFCreator\PDFcreator.exe" + Chr(34) + "-IF" + Chr(34) + Chemin + nomfichier + ".ps" + Chr(34) + "-OF" + Chr(34) + Chemin + nomfichier + ".pdf" + Chr(34))
Application.Wait (Now + TimeValue("0:00:02"))
Kill Chemin + nomfichier + ".ps"
End Sub
il suiffit que tu lui passe le chemin ou tu vx l'enregister, le nom que tu veux lui donner et le nom de la feuille à imprimer et voila
utilisation :
call saveToPDF("c:\mondossier","monfichierpdf","mafeuile a imprimer")
A good excercise for the Heart is to bend down and help another up...