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.
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.
Dernière édition: