XL 2019 Export PDF - OpenAfterPublish:= _True - bloquer l'ouverture en cas d'abandon

[Calizarine]

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

If fileSaveName = "" Then Exit Sub

, à divers endroits, mais ça ne fonctionne pas.
La macro est affectée à un bouton.
PS : je suis novice (très).

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

 

[TooFatBoy]

Bonjour,

Je ne suis pas certain d'avoir totalement compris la question, mais je propose ceci :

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")
        If fileSaveName = False Then Exit Sub
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileSaveName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
        MsgBox "Enregistré en PDF", vbInformation, "Enregistrement en PDF"
    End If

End Sub

 

[Calizarine]

Bonjour,

Je ne suis pas certain d'avoir totalement compris la question, mais je propose ceci :

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")
        If fileSaveName = False Then Exit Sub
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fileSaveName, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
        MsgBox "Enregistré en PDF", vbInformation, "Enregistrement en PDF"
    End If

End Sub

Ca fonctionne nickel si je choisi de ne pas sauvegarder le PDF, mais affiche "Erreur d'execution '13' quand je tente de l'enregistrer.

 

[TooFatBoy]

Ca fonctionne nickel si je choisi de ne pas sauvegarder le PDF, mais affiche "Erreur d'execution '13' quand je tente de l'enregistrer.

Arf, c'est vrai que je n'ai pas testé l'enregistrement puisque tu ne disais pas que ça ne fonctionnait pas.

Je vais regarder, mais pas sûr que je trouve le problème. 🙁

 

[Calizarine]

Arf, c'est vrai que je n'ai pas testé l'enregistrement puisque tu ne disais pas que ça ne fonctionnait pas.

Je vais regarder, mais pas sûr que je trouve le problème. 🙁

Oui en cas d'enregistrement le VBA de base fonctionne bien. J'ai joint un fichier.

 

[TooFatBoy]

Essaye ceci :

        If fileSaveName = "Faux" Then Exit Sub

Ca a l'air de fonctionner chez moi, mais pas sûr que ce soit la meilleure solution... 🙁

 

[Calizarine]

Essaye ceci :

        If fileSaveName = "Faux" Then Exit Sub

Ca a l'air de fonctionner chez moi, mais pas sûr que ce soit la meilleure solution... 🙁

Juste un peux le bazar avec les messages box et la fenêtre du fichier, mais c'est fonctionnel. Merci !

 

[TooFatBoy]

Juste un peux le bazar avec les messages box et la fenêtre du fichier, mais c'est fonctionnel. Merci !

Je trouve aussi...

Perso, je ne vois pas l'intérêt de la MsgBox, vu que le fichier PDF est affiché après sa création. 😉

 

[Kan]

merci TooFatBoy ! désolée
je supprime et crée mon fil de discussion...
Kan

 

[kiki29]

Salut, peut-être à consulter si curieux : Liste Contributions PDF