Bonjour à tous !
quelqu'un connait il l'équivalent de ce bout de code pour imprimer des feuilles d'un classeur excel directement dans un fichier PDF mais pour excel 2002 ? ça marche super bien sur les versions suivantes mais pas sur la 2002 :
Sheets(MesFeuilles).Select
'Sauvegarde en pdf
Dossier = ActiveWorkbook.Path
NomFichier = InputBox("Quel nom voulez vous donner au fichier ? ce fichier sera stocké au même endroit que le fichier sur lequel vous travaillez", "Le nom" )
ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Dossier & "\" & NomFichier & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
merci d'avance pour votre aide !!!
Message édité par philevy le 01-08-2013 à 18:52:43
---------------
Mon Feed Back : http://forum.hardware.fr/forum2.ph [...] w=0&nojs=0