Version pour macro

[yafa31]

Bonjour,

Je voudrais inclure une version dans ma macro et que si l'utilisateur n'utilise pas la bonne version elle ne se lance pas?

Comment faire?
J'avais penser à un fichier .text externe que la macro check...avec un messagebox pour l'utilisateur.

Avez-vous une solution?
Merci de vos réponses

[Heureux-oli]

Une idée en passant, utiliser les propriétés d'un fichier de référence qui peut être un document Word.

On vérifie la donnée et on fait une comparaison.

http://heureuxoli.developpez.com/office/word/variables/

[yafa31]

Merci de ta réponse, mais en fait je voudrais qu'un message s'affiche "vous utilisez la version xxx" et que la macro ne se lance pas si ce n'est pas la bonne !
Par contre, en me baladant ds le forum, j'ai vu que l'on peut crer un icône pour lancer la macro?
Comment fait-on?
Merci bcp !

[Heureux-oli]

Pour le bouton, c'est dépendant de la version de Word que tu utilises.

Pour la macro

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub MaMacro()
Dim oDoc1 As Document
Dim oDoc2 as Document
 
 
Set oDoc1 = ActiveDocument
Set oDoc2 = Documents.Open ("lechemindemondocumentdereference")
 
If oDoc1.CustomDocumentProperties("Version").Value = oDoc2.CustomDocumentProperties("Version").Value Then
    MsgBox "les versions sont les mêmes"
Else
    MsgBox "Les version sont différentes"
End If
odoc2.close
set oDoc1 = Odoc2 = Nothing
 
End Sub

[yafa31]

Bonjour,
J'ai créer ce code pour mon problème de version.
En fait je veux que ma macro avant de se lancer cherche si elle est la bonne version et si ce n'est pas le cas, elle ne se lance pas.
Pouvez-vous m'aider ?
Merci

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 Const strThisVersion = "12345"
 
    Dim strCurrentVersion
 
 
 
    Open "fichier_de_version.txt" For Input As #1 
 
    Input #1, strCurrentVersion
 
    Close #1
 
 
 
    If (strThisVersion = strCurrentVersion) Then
 
        MsgBox ("Cette version " & strThisVersion & " est la dernière version")
 
    Else
 
        MsgBox ("La version de cette macro (" & strThisVersion & ") est périmée." & Chr(13) & "La dernière version est " & strCurrentVersion)
 
    End If