Exportation en pdf via VBA

Y compris Power BI, Power Query et toute autre question en lien avec Excel
D
Damsa17
Membre habitué
Membre habitué
Messages : 87
Inscrit le : 26 juin 2017
Version d'Excel : 2016

Message par Damsa17 » 15 janvier 2019, 17:11

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
Test - Listing 49 Version 2 (Travail).xlsm
(141.03 Kio) Téléchargé 15 fois
Avatar du membre
Alex777f
Membre habitué
Membre habitué
Messages : 73
Appréciation reçue : 1
Inscrit le : 1 janvier 2019
Version d'Excel : 2010

Message par Alex777f » 15 janvier 2019, 18:21

Bonjour Damsa, le forum
Si je comprend bien tu veux exporter la feuille listing? Dans quel répertoire et avec quel nom?
D
Damsa17
Membre habitué
Membre habitué
Messages : 87
Inscrit le : 26 juin 2017
Version d'Excel : 2016

Message par Damsa17 » 15 janvier 2019, 18:25

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
Avatar du membre
Alex777f
Membre habitué
Membre habitué
Messages : 73
Appréciation reçue : 1
Inscrit le : 1 janvier 2019
Version d'Excel : 2010

Message par Alex777f » 15 janvier 2019, 18:52

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
D
Damsa17
Membre habitué
Membre habitué
Messages : 87
Inscrit le : 26 juin 2017
Version d'Excel : 2016

Message par Damsa17 » 19 janvier 2019, 19:52

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
a
archer
Membre impliqué
Membre impliqué
Messages : 1'156
Appréciations reçues : 83
Inscrit le : 8 avril 2017
Version d'Excel : 2007/2010

Message par archer » 19 janvier 2019, 21:19

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
D
Damsa17
Membre habitué
Membre habitué
Messages : 87
Inscrit le : 26 juin 2017
Version d'Excel : 2016

Message par Damsa17 » 20 janvier 2019, 09:54

Merci Maurice, ça fonctionne nickel....
D
Damsa17
Membre habitué
Membre habitué
Messages : 87
Inscrit le : 26 juin 2017
Version d'Excel : 2016

Message par Damsa17 » 20 janvier 2019, 13:38

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?
Avatar du membre
Alex777f
Membre habitué
Membre habitué
Messages : 73
Appréciation reçue : 1
Inscrit le : 1 janvier 2019
Version d'Excel : 2010

Message par Alex777f » 20 janvier 2019, 14:05

Bonjour Damsa, le forum
Tu peux changer en precisant la feuille.

Cdt
D
Damsa17
Membre habitué
Membre habitué
Messages : 87
Inscrit le : 26 juin 2017
Version d'Excel : 2016

Message par Damsa17 » 20 janvier 2019, 14:21

Alex777f a écrit :
20 janvier 2019, 14:05
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...
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message