Microsoft 365 Créer un PDF à partir d'un classeur

cecenico · 24 Mai 2022

Bonjour,
J'ai trouvé cette macro qui permet d'enregistrer une feuille de travail en PDF. Elle est top car c'est presque ce que je recherche

Sub Export_PDF()
Sheets("Rapport").Select
ActiveSheet.Range("$A$11:$L$50").AutoFilter Field:=1, Criteria1:=Array("0", _
"1", "2", "Observations", "="), Operator:=xlFilterValues
Sheets("Fiche contrôle").Select
Dim fichier As String

Date_F = Format(Date, "ddmmmmyyyy_")

With Worksheets("Rapport")
fichier = "\" & Date_F & .Range("G4") & ".pdf"
Dossier = "\\D:\Maintenance\Gerbeur FENWICK\VGP"
Chemin = Dossier & fichier
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End With
End Sub

Sauf que je ne sais pas comment sélectionner les 2 onglets désirés pour l'enregistrement ("Rapport" et "Fiche contrôle")

Merci d'avance pour vos réponses.

Staple1600 · 24 Mai 2022

Bonjour

Test OK chez moi
(J'ai bien un PDF avec 2 feuilles)

VB:

Sub test_ok()
Application.ScreenUpdating = False
'1 export des feuilles choisies dans un nouveau classeeur
Sheets(Array("Feuil1", "Feuil2")).Copy
'2 on enregistre ce nouveau classeur en PDF
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\STAPLE\Documents\test2.pdf"
'3 On ferme le classeur temporaire sans l'enregistrer
ActiveWorkbook.Close False
End Sub

NB: Faire les changements au niveau du nom de dossier et du nom de fichier PDF

cecenico · 10 Juin 2022

Bonjour,
Désolé pour la réponse tardive, j'étais en congé.

Simple et efficace ta macro, merci beaucoup.

Par contre, vue que j'ai fait une mise en page privilégiant l'esthétique au pratique pour que ça soit joli à l'écran, il faudrait que je puisse imprimer la sélection I1:V38 et imprimer en paysage sans marge sinon ça ne rentre pas sur la feuille.
Si en plus on pouvait décocher les cases de contrôle formulaire pour les 12 mois après que la sauvegarde ai été faite, ça serait royal.

J'arrive à décocher sur 1 feuille, mais pas sur les 12.

Je t'ai mis le fichier en pièce jointe. La première page contient un plan que j'ai supprimer pour la publication de ce post, il faudrait l'inclure dans la sauvegarde

kiki29 · 10 Juin 2022

Salut, si tu es curieux voir via Liste Contributions PDF

Microsoft 365 Créer un PDF à partir d'un classeur

cecenico

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

cecenico

XLDnaute Nouveau

Pièces jointes

kiki29

XLDnaute Barbatruc

Discussions similaires