Sauvegarde en pdf - comment empêcher l'enregistrement ?

Bonjour à tous,

J'ai besoin de votre aide. J'ai écrit une macro pour enregistrer un fichier en PDF (cela fonctionne bien).

Mais le souci est que lorsque la boite de dialogue s'affiche et que je clique sur NON (pour ne pas enregistrer), le document s'enregistre quand même.

Que dois-je faire pour que lorsque je dis NON, ça ne s'enregistre pas ?

Sub SauvegarderPDF()
Dim Chemin As String
Dim Reponse As Integer

Chemin = "C:\Users\DesktopAUTRES\"
Reponse = MsgBox("Désirez-vous sauvegarder le SOLDE ?", vbQuestion + vbYesNo, "ENREGISTREMENT PDF")
If vbYes Then
Feuil16.ExportAsFixedFormat xlTypePDF, Chemin & "STC_" & Feuil16.Range("D6").Value & " " & Range("D5").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox ("STC_" & Feuil16.Range("D6").Value & " " & Range("D5").Value & " a été sauvegardé")
Else
Exit Sub
End If
End Sub

Bonjour,

Un essai ...

Sub SauvegarderPDF()
Dim Chemin As String
Dim Reponse As Integer

    Chemin = "C:\Users\DesktopAUTRES\"
    Reponse = MsgBox("Désirez-vous sauvegarder le SOLDE ?", vbQuestion + vbYesNo, "ENREGISTREMENT PDF")
    If Reponse = vbYes Then  '' <<< ici
        Feuil16.ExportAsFixedFormat xlTypePDF, Chemin & "STC_" & Feuil16.Range("D6").Value & " " & _
                Range("D5").Value & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, _
                                    IgnorePrintAreas:=False, OpenAfterPublish:=False
        MsgBox ("STC_" & Feuil16.Range("D6").Value & " " & Range("D5").Value & " a été sauvegardé")
    Else
        Exit Sub
    End If
End Sub

ric

Merci Ric

C'est OK. Juste ce petit truc qui m'a fait baladé des heures