Bonsoir,
Pour sauvegarder en PDF une facture créée sur une feuille de calcul, un bouton déclenche la macro suivante (F37 contient le numéro de facture et I19 le nom du client):
Sub Bouton29_QuandClic()
Dim sNomFichierPDF As String
sNomFichierPDF = "facture #" & Sheets("Facturation").Range("f37") & " " & Range("i19") & ".pdf"
With Sheets(Array("Facturation")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sNomFichierPDF _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End With
MsgBox "Facture PDF sauvegardée"
End Sub
Cela fonctionne assez bien, mais parfois la zone d'impression saute toute seule et découpe la facture en autant de zones d'impression que de cellules, le pdf sauvegardé ne contient alors qu'une cellule... La zone d'impression initiale s'étant de C1 à M78 et ne doit bien sûr pas être modifiée. Merci pour votre aide.
Dul