Discussion :

[yafa31]

Bonjour,
J'ai créer une macro en VB sous Word et je voudrais qu'au lancement de la macro, il y ait un message qui demande à l'utilisateur si c'est bien la bonne version.
Pour cela, j'ai pensé à mettre la version de la macro sur un fichier txt externe, et qu'elle vienne dc chercher cette version, si version ok alors la macro se lance;

Pouvez-vous m'aider à écrire les codes pour une ouverture de fenêtre yes/no pour l'utilisateur (si yes le macro se lance, si no, elle ne se lance pas)?
et les codes pour aller chercher la version sur un fichier.

Merci.

[Heureux-oli]

Bonjour et bienvenue sur les forums Office de DVP.

Est-ce une boîte qui va poser une question à l'utilisateur ou une boîte qui va donner une information?

Parce qu'un boîte qui pose une question, c'est très facile.
C'est un simple MsgBox auquel on affecte une valeur en fonction de la réponse.

[yafa31]

En fait, c'est une boite qui en fonction de la réponse lance la macro ou non.
Mais je veux aussi une fonction qui va chercher la version de la macro et qui en fonction la lance ou non.
Merci.

Ps: si vous pouvez me donner les codes,merci davance.

[Heureux-oli]

Voilà une piste pour la première partie.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub yesno()
Dim rep As Byte
rep = MsgBox(" valeur ", vbOKCancel)
If rep = 2 Then Exit Sub
End Sub

Pour la seconde, je vais te donner un lien vers un article qui explique comment mettre en place la lecture des données dans un fichier texte.
http://warin.developpez.com/access/fichiers/

[Sepia]

Salut,

Plutôt que d'utiliser un fichier texte externe, tu ne crois pas qu'il serait opportun de mettre le n° de version dans ta boîte de dialogue du style:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub yesnoVersion ()
   Dim rep As Byte
   rep = MsgBox(" Version 4.12.2340 A", vbOKCancel)
   If rep = 2 Then Exit Sub
End Sub

[yafa31]

Merci pour vos conseils, je vais essayer et vous tiens au courant.

Bon dimanche!