Se connecter avec
S'enregistrer | Connectez-vous

Execution macro Word 2007

Dernière réponse : dans Programmation

Bonjour,

j'aimerais solliciter vôtre aide, car je bloque un peu la!

Je dois m'occuper d'un document word qui execute plusieurs calculs lors de l'actualisation des champs du document, or j'ai une valeur qui si elle est trop grande fais planter le reste des calculs.

J'aimerais donc pouvoir faire apparaitre un message d'erreur lorsque le signet de cette valeur dépasse la valeur maximale, mais je n'arrive pas à faire executer la macro après l'actualisation des champs ou automatiquement.

Merci d'avance bonne soirée

Autres pages sur : execution macro word 2007

Lassé par la pub ? Créez un compte


Comme j'ai pas trouvé de macro qui s'exécute toute seule au moment ou on change la valeur ou on met a jour les champs,
j'ai procédé en 3 macro : - 1 qui se lance en autoopen,
- 1 qui est appelé par la macro Auto open et qui se répète toute les 15 secondes
- la dernière appelé par la précédente qui fais une différence de valeur et fais apparaitre un message
d'erreur si jamais ce n'est pas bon

En gros le message d'erreur se répète toutes les 15 secondes si la valeur n'est pas changée.

Je ne vous met pas le code entier mais les appels entre macro:
  1. Sub AutoOpen()
  2. '
  3. ' AutoOpen Macro
  4. '
  5. Call Macro5
  6.  
  7. End Sub
  8.  
  9. Sub Macro5()
  10.  
  11. ' Appel récursif de la fonction Macro5
  12. Application.OnTime When:=Now + TimeValue("00:00:15"), Name:="Macro5"
  13. ' Appel de la fonction Macro6
  14. Call Macro6
  15.  
  16. End Sub
  17.  
  18. Sub Macro6()
  19.  
  20.  
  21. Dim MyResult As Long
  22. Dim Var1 As Long
  23. Dim Var2 As Long
  24.  
  25. If MyResult = (Var1 < Var2) = True Then
  26.  
  27. MsgBox
  28.  
  29. End If
  30. End Sub


Merci quand même ces forum sont très utiles j'y ai trouvé plein d'éléments qui m'ont aidé à me mettre sur la voie :) 
Lassé par la pub ? Créez un compte