MsgBox si la macro s'est bien exécutée

Salut a tous !

Une question générale, je n'ai pas trouvé exactement la réponse dans les précédentes discussions.

J'ai une macro qui s'appelle Test.

Je voudrais qu'à la fin de mon code

J'ai une MsgBox qui me confirme que ma macro à bien été exécutée, ce que je n'arrive pas à écrire c'est

If ma macro ok Then MsgBox
Else Tu fais rien
Exit if

Une piste les amis ?

Bonjour,

sur base de quel critère détermine-t-on que la macro s'est bien exécutée ?

merci de mettre ton fichier avec la macro.

Je ne pensais pas que le fichier pouvait avoir son importance. Je voulais dire si la macro s'est bien déroulé

Voici le fichier merci

bonjour,

ok, c'est plus clair avec le fichier.

une proposition

Sub EnregistreFacture()

    'Déclaration des variables
    Dim NomDossier As String
    Dim CheminDossier As String

    On Error GoTo 1

    'Nom de dossier
     NomDossier = Application.InputBox("Please specify the location :", "Location")
     CheminDossier = "C:\Users\Daniel\Documents\Invoices\" & NomDossier & "\"

    If NomDossier = "" Then Exit Sub

    'Enregistrement au format PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    CheminDossier & "Invoice # " & Range("a1").Value & ".pdf", quality:= _
    xlQualityStandard, includedocproperties:=True, ignoreprintareas:=False, _
    from:=1, to:=1, openafterpublish:=False
    MsgBox "la macro s'est bien déroulée"
    Exit Sub
1
End Sub

dani0388 a écrit :

Salut a tous !

Une question générale, je n'ai pas trouvé exactement la réponse dans les précédentes discussions.

J'ai une macro qui s'appelle Test.

Je voudrais qu'à la fin de mon code

J'ai une MsgBox qui me confirme que ma macro à bien été exécutée, ce que je n'arrive pas à écrire c'est

If ma macro ok Then MsgBox
Else Tu fais rien
Exit if

Une piste les amis ?

Bonjour,

????? pourquoi un if ? si ton code arrive à la dernière ligne de la macro c'est qu'elle c'est bien exécutée non ?

Donc à la dernière ligne de ta macro un simple :

MsgBox "Votre macro est bien éxécutée !"

suffit.

Par contre c'est les conditions précédentes qui seront à revoir si elle sont mal rédigées.

Si test ok … on continue la lecture de la macro.

Si test pas ok alors

Exit sub

on sort de la macro.... donc la msgbox n'est pas lue.

@H2so4 et Xmenpl

Merci pour vos réponses. Effectivement, le If n'est pas pertinent. Très novice en VBA, en même temps tu me diras c'est très logique...

Histoire d'en apprendre plus, si je veux dire dans ma MsgBox

"La facture #(num factrure) a bien été enregistrée

MsgBox("Invoice # " & Range("a1").Value & ".pdf" & "a bien été enregistrée")

C'est bon ?

re-bonjour,

tu as essayé ?

Tu as raison, j'aurais du essayer avant de demander.

Oui cela fonctionne, merci les gars