Discussion :

[Thallhos]

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 :

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

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

[reinruof77]

Bonjour

Pourquoi ne fait tu pas une impression en pdf avec PDFCreator

c'est ce que je fait dans ma boite .

[reinruof77]

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

[grisan29]

bonjour a vous

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

Code :

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

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 :

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

DIR_WORKSPACE & CheminPDF & NomFicPDF,

Pascal

[Menhir]

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.

[Thallhos]

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

Code :

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

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