Bonjour à tous,
J'ai créé une macro afin de pouvoir enregistrer automatiquement sur un même PDF 2 feuilles différentes.
Je ne trouve aucune solution sur aucun forum.
Les autres utilisateurs souhaitent soit imprimer un pdf par feuille ou le classeur entier.
Comment réussir à n'avoir que certaines feuilles?
Je vous poste la partie du code qui pose pb:
Sub traitTerm(Jour, Mois, Escale, Terminal)
Dim T As String
Dim E As String
Worksheets("TdB JOUR").Select
Range("B1").Value = Jour
Range("B2").Value = Mois
Range("B3").Value = Escale
Range("B4").Value = Terminal
If Terminal = "*" Then T = "" Else T = Terminal
' E = Escale
Sheets(Array("Année", "TdB JOUR")).Select
fichierPDF = Range("B3") & T
Call imprimer_pdf_test
End Sub
Sub imprimer_pdf_test()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & fichierPDF _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
La ^partie qui pose pb est : "ActiveWindow.SelectedSheets.ExportAsFixedFormat Type:=xlTypePDF,"
J'ai également testé ceci: "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF,"
Le message d'erreur est le suivant: "Membre de méthode ou de donnée introuvable"
Auriez-vous une solution?
Merci beaucoup et bonne année 2013.
J'ai créé une macro afin de pouvoir enregistrer automatiquement sur un même PDF 2 feuilles différentes.
Je ne trouve aucune solution sur aucun forum.
Les autres utilisateurs souhaitent soit imprimer un pdf par feuille ou le classeur entier.
Comment réussir à n'avoir que certaines feuilles?
Je vous poste la partie du code qui pose pb:
Sub traitTerm(Jour, Mois, Escale, Terminal)
Dim T As String
Dim E As String
Worksheets("TdB JOUR").Select
Range("B1").Value = Jour
Range("B2").Value = Mois
Range("B3").Value = Escale
Range("B4").Value = Terminal
If Terminal = "*" Then T = "" Else T = Terminal
' E = Escale
Sheets(Array("Année", "TdB JOUR")).Select
fichierPDF = Range("B3") & T
Call imprimer_pdf_test
End Sub
Sub imprimer_pdf_test()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & fichierPDF _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
La ^partie qui pose pb est : "ActiveWindow.SelectedSheets.ExportAsFixedFormat Type:=xlTypePDF,"
J'ai également testé ceci: "ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF,"
Le message d'erreur est le suivant: "Membre de méthode ou de donnée introuvable"
Auriez-vous une solution?
Merci beaucoup et bonne année 2013.