Microsoft 365 Arret macro si condition est fausse

[Chounoé]

Bonjour j'aimerai pouvoir ne pas continuer ma macro si par exemple elle trouve une erreur lors de la vérification d'une données d'une requête. Merci. Ci-joint ma macro

If Not Application.Dialogs(xlDialogOpen).Show("R:\*rmp02*.*") Then End

'Recherche bonne requête

If Range("A5").Value Like "TR.HA-*" Then 'SI CONDITION VRAIE

Application.ScreenUpdating = False
Cells.Select
Selection.Copy
'ActiveWorkbook.Close

Windows("Suivi kilométrique et entretien des trains MP73 MP89 Ligne 6 - Copie.xlsm").Activate
Sheets("rmp02 MP73").Visible = True
Sheets("rmp02 MP73").Select
Cells.Select
ActiveSheet.Paste

Sheets("rmp02 MP73").Select
ActiveWindow.SelectedSheets.Visible = False


Else 'SI CONDITION FAUSSE
'Boîte de dialogue : avertissement
MsgBox "Vérifier la requête selectionnée" & Chr(10) & " OU" & Chr(10) & " La saisie dans la GMAO", vbCritical, "ERREUR"
Call Fermeture.Fermeture

* C'EST ICI QUE JE VOUDRAIS QUE MA MACRO S'ARRETE SI ELLE TROUVE UNE ERREUR ET DE NE PAS CONTINUER


If Not Application.Dialogs(xlDialogOpen).Show("R:\*rmp02*.*") Then End

 

[sylvanu]

Bonjour Chounoé,
S'il s'agit une erreur détectée par le VBA et que c'est une erreur "normale" alors vous pouvez, juste après SUB faire un On goto Error :

Mais attention, il sortira même s'il s'agit d'une erreur autre que celle attendue. ( d'où erreur "normale" )

 

[Chounoé]

Bonjour cela ne marche pas ma macro continue d'exécuter malgré la mauvaise requête lancer. J'ai bien le message d'erreur qui me dit que la requête n'est pas bonne mais la macro continue

 

[sylvanu]

Re,
Ma méthode marche évidemment que s'il s'agit d'une erreur détectée par le VBA.
Dans votre cas je pense qu'il ne s'agit pas d'une erreur mais d'un message d'alerte et dans ce cas On error goto ne sert à rien.

Call Fermeture.Fermeture

* C'EST ICI QUE JE VOUDRAIS QUE MA MACRO S'ARRETE SI ELLE TROUVE UNE ERREUR ET DE NE PAS CONTINUER

L'erreur est en sortie de la macro Fermeture ?
Auriez vous le message d'erreur qui est remontée ?

 

[Chounoé]

Voici le message d'erreur volontairement mis dans la macro