Macro VBA pour word 97 [Résolu]

cs_ZANUS 126 Messages postés vendredi 2 décembre 2005Date d'inscription 23 février 2007 Dernière intervention - 5 déc. 2005 à 11:08 - Dernière réponse : cs_Delphiprog 4580 Messages postés samedi 19 janvier 2002Date d'inscription 9 janvier 2013 Dernière intervention
- 11 mars 2006 à 10:10
Bonjour à tout le monde,

J'essaie d'écrire un code du type If MsgBox("Message", vbYesNo)
Then
J'ai systématqiuement un message d'erreur du type Erreur de compilation, Attendu: ) avec la virgule avant vbYesNo qui est en surbrillance. Je mets alos une parenthèse avant vbYesNo mais j'ai toujours le même messgae d'erreur qui s'affiche. Quelqu'un peut-il me lancer une bouée de sauveatage?
Merci d'avance
Afficher la suite 

1 réponse

Meilleure réponse
cs_Delphiprog 4580 Messages postés samedi 19 janvier 2002Date d'inscription 9 janvier 2013 Dernière intervention - 11 mars 2006 à 10:10
3
Merci
MsgBox est une fonction renvoyant une valeur de type entier et non un booléen.
En conséquence, il t'appartient de tester la valeur de retour de la manière suivante :
If MsgBox("message", vbYesNo) = vbYes Then...
Pour information :

Valeurs renvoyées


Constante,
Valeur,
Description,
----

vbOK,
1,
OK,
----

vbCancel,
2,
Annuler,
----

vbAbort,
3,
Abandonner,
----

vbRetry,
4,
Réessayer,
----

vbIgnore,
5,
Ignorer,
----

vbYes,
6,
Oui,
----

vbNo,
7,
Non



<HR color =#008000>
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

Merci cs_Delphiprog 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 90 internautes ce mois-ci

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.