Enregistrer sous : PDF

Bonjour,

À partir d'un tableau Excel, je veux en faire un Pdf.

En utilisant : Fichier____Enregistrer sous____PDF

Peut-on paramétrer le poste afin d'obtenir un Pdf en version de compatibilité 1.4 ?

Merci.

Bonjour

Pourquoi ne passez-vous pas par l'option Imprimer --> puis là vous choisissez l'option "Microsoft Print to PDF"

Si ok, pensez à cloturer le fil

Cordialement

Oui, ou choisir l'imprimante ADOBE PDF avec le Distiller paramétrer pour du Pdf 1.4...

Ou utiliser PDF CREATOR qui crée des Pdf en 1.4...

Mais, dans mon service, ils voudraient uniformiser la façon de travailler, et n'utiliser QUE la fonction "Enregistrer sous", et là je ne sais pas comment faire.......

Et on est obligé de ne pas "dépasser" la version 1.4 !

Re,

Essayez avec ce code qui permettra de sauvegarder la feuille active en PDF

Sub SaveAsPDF() 'Sauvegarde en PDF
Dim Nomfichier As Variant
Dim feuille As Worksheet

Nomfichier = Application.GetSaveAsFilename(InitialFileName:="Test.pdf", FileFilter:="PDF files (*.pdf),*.pdf")
If Nomfichier = False Then Exit Sub

Set feuille = ActiveSheet
feuille.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nomfichier
End Sub

Le code ouvre une boite de dialogue avec le nom "test.PDF" par défaut. Il vous suffit de changer le nom du fichier (sans mettre le .pdf), puis de choisir l'endroit où vous voulez le sauver.

Si ok, pensez à cloturer le fil :

Crdlt

Merci mais, désolé, je ne vois pas bien votre manip.................................

Je ne suis pas un pro de Excel.

Et ça ferait un Pdf en version Acrobat 1.4 ?

Cdlt

je ne vois pas bien votre manip.

Le code vous sauvera la feuille en PDF.

A priori je ne vois pas pourquoi le fichier ne s'ouvrirait pas avec votre version
Faites déjà un test et dites moi