action Exécuter une macro

L\' Exécuter une macro action du Excel avancé package vous permet d\'exécuter des macros dans une feuille de calcul.

Paramètres

  • Double-cliquez ou faites glisser l\'Exécuter la macro action dans la palette Actions.
  • Dans le champ Nom de macro, saisissez le nom de la macro que vous souhaitez exécuter.

    (Facultatif) Cliquez sur l\'icône Insérer une valeur pour sélectionner une variable existante que vous avez utilisée pour stocker le nom de la macro.

  • (Facultatif) Dans le champ Macro arguments, saisissez les détails de l\'argument ou cliquez sur l\'icône Insert a value pour sélectionner une variable existante que vous avez utilisée pour stocker des arguments macro.

    Voici quelques exemples de détails d\'argument : Arg1, Arg2, Arg3, etc. Lorsque vous utilisez l\' Exécuter une macro action et que vous spécifiez un argument ayant une valeur vide, cette valeur vide peut désormais être transmise à la macro.

  • Dans le champ Nom de session, sélectionnez l\'une des options suivantes :
    • Nom de session : Entrez le nom de la session utilisée pour ouvrir le classeur actuel avec l'action Ouvrir.

      (Facultatif) Cliquez sur l\'icône Insérer une valeur pour sélectionner une variable existante que vous avez utilisée pour stocker le nom de session par défaut.

    • Variable : Entrez le nom de la variable que vous avez utilisée pour stocker le nom de la session.
Remarque :
  • Lorsque vous écrivez un code macro, utilisez Exit Sub pour quitter ou terminer une procédure spécifique à n\'importe quel moment.
  • Vérifiez que le code macro ne contient qu\'une seule instance de l\'instruction End ou End Sub pour mettre fin à la macro. S\'il existe plusieurs instances de l\'instruction, alors, lors de l\'exécution, le robot peut échouer avec une erreur.
Prenons l\'exemple suivant, dans lequel vous souhaitez obtenir une zone de saisie et quitter la procédure si la réponse d\'un utilisateur n\'est pas un nombre : 
Sub vba_exit_sub_example()
If IsNumeric(InputBox("Enter your age.", "Age")) = False Then
   MsgBox "Error! Enter a numeric value only."
   Exit Sub
Else
   MsgBox "Thank you."
End If
End Sub