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

Calizarine · 28 Janvier 2023

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

VB:

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).

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

TooFatBoy · 28 Janvier 2023

Essaye ceci :

VB:

        If fileSaveName = "Faux" Then Exit Sub

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

TooFatBoy · 28 Janvier 2023

Bonjour,

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

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")
        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 · 28 Janvier 2023

TooFatBoy à dit:

Bonjour,

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

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")
        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 · 28 Janvier 2023

Calizarine à dit:
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 · 28 Janvier 2023

TooFatBoy à dit:
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 · 28 Janvier 2023

Essaye ceci :

VB:

        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 · 28 Janvier 2023

TooFatBoy à dit:
Essaye ceci :

VB:

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 · 28 Janvier 2023

Calizarine à dit:
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 · 9 Février 2023

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

kiki29 · 9 Février 2023

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

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

Calizarine

XLDnaute Nouveau

TooFatBoy

TooFatBoy

XLDnaute Barbatruc

Calizarine

XLDnaute Nouveau

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Calizarine

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

Calizarine

XLDnaute Nouveau

TooFatBoy

XLDnaute Barbatruc

Kan

XLDnaute Nouveau

kiki29

XLDnaute Barbatruc

Discussions similaires

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

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

Pièces jointes

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

XLDnaute Nouveau

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency