Exportation en pdf via VBA

Bonjour a tous,

Mon classeur est une liste de personne que dont je voudrais tirer des listings et les imprimer en PDF,

J'ai réussi a créer la tri, l'exportation vers l'onglet..., mais je coince pour l’exportation en PDF,

j'ai fouillé un peu partout avec des idées mais sans résultat de mon coté.

Je vous joint mon fichier.

il n'y a que le choix adjudants qui est activé pour le moment

Merci pour votre aide

Bonjour Damsa, le forum

Si je comprend bien tu veux exporter la feuille listing? Dans quel répertoire et avec quel nom?

Bonjour,

Pour le moment le répertoire n'est pas encore défini et le nom, il aura le même nom que la page(listing adjudants) pour cet exemple.

Merci

Essaie ca, le chemin et le nom du fichier sont a adapter

Passer l'apercu a false si tu ne veux pas ouvrir le fichier a la fin de l'export.

Sub exportpdf()
With Sheets("Listing Adjudants")  'Chemin et nom a adapter
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Listing Adjudants\Listing" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
End With
End Sub

Bonsoir

Désolé du retard, je viens seulement de tester, mais ça ne marche pas.

J'ai le message d'erreur

Erreur d'Exécution '5':

Argument ou appel de procédure incorrect

Bonsoir

voila une routine PDF a voir

Sub NomPdf()
Chemin = ThisWorkbook.Path & "\"
Fich = "Test" & ".pdf"
NomFiche = Chemin & Fich
    Call EditionPDF(NomFiche)
   MsgBox "Edition Terminer"
End Sub

Sub EditionPDF(NomFiche)
   ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=NomFiche, _
      Quality:=xlQualityMinimum, _
      IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
End Sub

A+

Maurice

Merci Maurice, ça fonctionne nickel....

Petite question

Est-ce normal que l'expression de peut être que Activesheet?

J'aimerais rester sur ma page d’accueil(Page créée) et que cela me fasse un pdf d'une autre page?

Bonjour Damsa, le forum

Tu peux changer en precisant la feuille.

Cdt

Bonjour Damsa, le forum

Tu peux changer en precisant la feuille.

Cdt

Ça ne fonctionne pas, j'ai une erreur quand je lui indique la feuille.

Je le fais peut être mal...

Essai ca

Sub EditionPDF(NomFiche)
   Sheets("Feuil1").ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=NomFiche, _
      Quality:=xlQualityMinimum, _
      IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
End Sub

Essai ca

Sub EditionPDF(NomFiche)
   Sheets("Feuil1").ExportAsFixedFormat Type:=xlTypePDF, _
      Filename:=NomFiche, _
      Quality:=xlQualityMinimum, _
      IncludeDocProperties:=True, _
      IgnorePrintAreas:=False, _
      OpenAfterPublish:=False
End Sub

Non j'ai essayé, mais j'ai le code d'erreur.

Erreur d'Exécution '5':

Argument ou appel de procédure incorrect

Joint un fichier

Bonsoir

on ses pas quelle macro que tu utilise

pour mon modele a voir

Sub NomPdf()
' Choix de l'onglet
'Sheets("listing Adjudants").Select
' ou
Sheets(Feuil2.Name).Select
Chemin = ThisWorkbook.Path & "\"
Fich = "Test" & ".pdf"
NomFiche = Chemin & Fich
    Call EditionPDF(NomFiche)
   MsgBox "Edition Terminer"
End Sub

A+

Maurice

Bonsoir

on ses pas quelle macro que tu utilise

pour mon modele a voir

Sub NomPdf()
' Choix de l'onglet
'Sheets("listing Adjudants").Select
' ou
Sheets(Feuil2.Name).Select
Chemin = ThisWorkbook.Path & "\"
Fich = "Test" & ".pdf"
NomFiche = Chemin & Fich
    Call EditionPDF(NomFiche)
   MsgBox "Edition Terminer"
End Sub

A+

Maurice

J'utilise celle que tu m'as mise plus haut Maurice.

Bonsoir

donc ses bon tu peux valider

je vais aux dodo

A+

Maurice

Bonjour a tous,

Voila j'ai compris une partie de l'erreur.

En fait c'est parce que l'onglet était masqué que ca ne fonctionnait pas, si il n'est pas masqué, ca fonctionne nickel.

D'ou ma question maintenant, peut on faire le pdf même si l'onglet est masqué?

Bonjour Damsa, le forum

Pour avoir essayé je pense que le mieux serait de démasquer la feuille et re masquer après.

Si besoin d'aide précise le code utilisé et le nom de la feuille à imprimer.

Bonjour Damsa, le forum

Pour avoir essayé je pense que le mieux serait de démasquer la feuille et re masquer après.

Si besoin d'aide précise le code utilisé et le nom de la feuille à imprimer.

Merci c'est ce que j'ai fait... Et ça fonctionne nickel.

Merci

Rechercher des sujets similaires à "exportation pdf via vba"