Conversion feuilles excel en PDF

Bonjour à tous,

Je suis étudiant en apprentissage dans une banque et je souhaite créer une macro qui me convertisse mes feuilles selectionnées en un pdf que je diffuse auprès de mes responsables.

Seulement j'ai écrit un code qui me crée les feuilles avec les titres mais sans le contenu de mes pages, avez-vous une idée ?

Voici mon code:

Code:

---

1 2 3 4 5 6 7 8 9

Sub Création_PDF()   Sheets(Array(Feuil1.Name, Feuil2.Name, Feuil3.Name, Feuil4.Name, Feuil5.Name)).Select Selection.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="Production commerciale", _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub

---

Merci d'avance pour votre aide :calim2:

Bonjour

Pourquoi ne fait tu pas une impression en pdf avec PDFCreator :)

c'est ce que je fait dans ma boite .;)

regarde ici http://fr.pdf24.org/print-to-pdf.jsp

bonjour a vous

moi j'ai ce code pour crer des fichiers pdf en même temps que la sauvegarde en xlsm

Code:

---

1 2 3 4

' Exporter en PDF ActiveWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=DIR_WORKSPACE & CheminPDF & NomFicPDF, Quality:= _ xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _ OpenAfterPublish:=False

---

il y aura le chemin a modifier pour fonctionner

Code:

---

DIR_WORKSPACE & CheminPDF & NomFicPDF,

---

Pascal

Perso, je fais comme reinruof77, j'utilise PDFCreator.
La création de PDF se résume à une simple impression après avoir fixé quelques paramètres système.
Lorsqu'on installe PDFCreator, il met dans son répertoire plusieurs exemple montrant comment créer un PDF en VBA. Il suffit de s'en inspirer.

J'ai fini par trouver mon erreur moi-même j'ai utilisé le code suivant qui marche à merveille:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sheets(Array(Feuil1.Name, Feuil2.Name, Feuil3.Name, Feuil9.Name, Feuil11.Name)).Select   'On choisi d'enregistrer sur le bureau quelque soit l'ordinateur utilisé ChDir "C:\Users\" & Environ("username") & "\Desktop"   'On active les feuilles afin de prendre en compte leurs contenus, puis on renomme le fichier final ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="Production commerciale", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True

---

En tout cas merci à tous pour vos réponses