Bonjour à tous,
Après plusieurs tantatives, je vais avoir besoin de vous.
J'essai d'imprimer mon classeur, qui contient 3 onglets, en pdf et combiner tous les onglets en un seul pdf.
J'ai essayé ce code mais sans succès:
Private Sub CommandButton1_Click()
Dim Onglet As Worksheet
Sheets("Formulaire de requête").Visible = False
'Boucle d'impression
For Each Onglet In ThisWorkbook.Worksheets
If Onglet.Visible Then Sheets(Onglet.Name).Select Replace:=False
Next
Sheets(Array("Relevé dimensionnel p.1", "Relevé dimensionnel p.2")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "EC-F-032_" & Worksheets("Formulaire de requête").Range("K8").Value.pdf _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Sheets("Formulaire de requête").Visible = True
Sheets("Relevé dimensionnel p.1").Select
End Sub
Quand je clic sur mon bouton j'obtien le message suivant: (message relié au texte en rouge)
Erreur d'excécution "424':
Object requis
Je ne comprends pas ce qui ne vas pas.
Pouvez-vous m'aider?
Merci
Cydor
Après plusieurs tantatives, je vais avoir besoin de vous.
J'essai d'imprimer mon classeur, qui contient 3 onglets, en pdf et combiner tous les onglets en un seul pdf.
J'ai essayé ce code mais sans succès:
Private Sub CommandButton1_Click()
Dim Onglet As Worksheet
Sheets("Formulaire de requête").Visible = False
'Boucle d'impression
For Each Onglet In ThisWorkbook.Worksheets
If Onglet.Visible Then Sheets(Onglet.Name).Select Replace:=False
Next
Sheets(Array("Relevé dimensionnel p.1", "Relevé dimensionnel p.2")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "EC-F-032_" & Worksheets("Formulaire de requête").Range("K8").Value.pdf _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Sheets("Formulaire de requête").Visible = True
Sheets("Relevé dimensionnel p.1").Select
End Sub
Quand je clic sur mon bouton j'obtien le message suivant: (message relié au texte en rouge)
Erreur d'excécution "424':
Object requis
Je ne comprends pas ce qui ne vas pas.
Pouvez-vous m'aider?
Merci
Cydor