Calizarine
XLDnaute Nouveau
Dans la macro pour enregistrer en PDF, j'ai choisi OpenAfterPublish:= _True, le souci est que si je ferme la macro en cours de route, parce que je change d'avis et que je ne veux plus sauvegarder l'export, le PDF s'affiche quand même.
J'ai bien essayé avec
, à divers endroits, mais ça ne fonctionne pas.
La macro est affectée à un bouton.
PS : je suis novice (très).
J'ai bien essayé avec
VB:
If fileSaveName = "" Then Exit Sub
La macro est affectée à un bouton.
PS : je suis novice (très).
VB:
Sub Enregistrer_PDF_onglet_Devis()
Dim fileSaveName As String
Dim numero As String
Dim nom As String
Dim chemin As String
numero = [C22]
nom = [H14]
chemin = "C:\Users\Veronique\Documents\MAISON COL\Fichier clients\"
If Len(Dir(chemin, vbDirectory)) > 0 Then
fileSaveName = Application.GetSaveAsFilename(chemin & "\" & numero & " " & nom, "Fichier PDF (*.pdf), *.pdf")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
fileSaveName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _True
End If
MsgBox "Enregistrer en PDF", vbInformation, "Enregistrement en PDF"
End Sub