1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Sub FacturePdf()
Dim Reponse As Integer
NomClient = "Facture " & Range("B5") & " Ref " & Range("G5").Value & " Saisie le " & Format(Now(), "dd-mm-yyyy à Hh-Nn") & ".pdf"
Reponse = MsgBox("Confirmez-vous la création d'un pdf pour l'Offre ?", vbYesNo)
If Reponse = vbYes Then
With Sheets("Commande")
Sheets("Commande").Activate
ExportAsFixedFormat Type:=xlTypePDF, From:=8, To:=8, Filename:=NomClient, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End With
MsgBox "La feuille Pdf de Facture est préparé, merci."
Else
MsgBox "Pdf Annulé"
End If
End Sub |
Partager