Enregistrer 2 feuilles Excel en pdf et les imprimer
Bonjour,
j'ai commencer a créer un classeur avec des macro (je suis novice)
Le problème je n'arrive pas a enregistrer 2 feuilles précise de mon classeur en PDF et les imprimer
Sub SAUVEGARDE()
With Worksheets("FACTURE").PageSetup
.CenterHorizontally = True
.PrintArea = "$A$1:$F$55"
.PrintTitleRows = ("$B$1")
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Worksheets("FACTURE").PrintOut
With Worksheets("CONTRAT").PageSetup
.CenterHorizontally = True
End With
Worksheets("FACTURE").PrintOut
With Worksheets("FACTURE").PageSetup
.CenterHorizontally = True
.PrintArea = "$A$1:$F$55"
.PrintTitleRows = ("$B$1")
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
Worksheets("FACTURE").PrintOut
With Worksheets("CONTRAT").PageSetup
.CenterHorizontally = True
End With
Worksheets("FACTURE").PrintOut
Sheets(Array("FACTURE", "CONTRAT")).Select
info1 = Sheets("FACTURE").Range("D14")
info2 = Sheets("FACTURE").Range("D10")
nom = info1 & "-" & info2 & "-" & ".xls"
ThisWorkbook.SaveAs (nom)
ThisWorkbook.Activate
If MsgBox("MERCI POUR LA VALIDATION!", vbYesNo, "LA CHATTERIE DES FLOCONS SACRES VOUS INFORME") = vbYes Then
ChDir "C:\Users\CLERJON Mickaël\Desktop\COMPTE CHATTERIE DES FLOCONS SACRES\FACTURES EDITES"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
From:=1, To:=1, OpenAfterPublish:=True
End If
' EFFACER Macro
ActiveWindow.SmallScroll Down:=6
Range("D12:E12").Select
ActiveWindow.SmallScroll Down:=21
Range("D12:E12,A34:A46,E34:E46,F50").Select
Range("F50").Activate
Selection.ClearContents
' signal qu'il n'y a pas lieu de sauvegarder
ThisWorkbook.Saved = True
'puis quitter l'appli
Application.Quit
End Sub
Je vous remercie de votre aide