Bonjour a tous,

Voila je suis confronté a un problème avec des variables qui ne suivent pas le mouvement... Un petit morceau de code vous éclaireront mieux que de nombreuses lignes de ma part

Code du fichier x, que l'utilisateur ouvre :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Public version As Double
Public dossier As String
Sub verif()
 
version = 1
dossier = Workbooks(1).Path
 
Workbooks.Open Filename:="XXX\Liste PG Info.xls"
    Application.Run "'Liste PG Info.xls'!auto_pasopen"
 
End Sub
Ceci est dans le programme x, a l'ouverture on vérifie que l'utilisateur a la dernière version du programme.

Code dans le fichier Liste PG Info :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub auto_pasopen()
 
mauvaise = "Votre version n'est plus d'actualité ! Veuillez recopier le derniere version du programme qui se trouve dans le répertoire suivant : " & dossier & "."
pastrouve = "Programme non réferencé ! Veuillez en informer le service informatique."
fichier = Workbooks(1).Name
 
trouve = False
y = 4
 
Do While Cells(y, 1) <> ""
    If Cells(y, 1).Value = fichier Then
        If Cells(y, 2) = Version Then
            Exit Do
            trouve = True
        End If
        If Cells(y, 2) > Version Then
            MsgBox (mauvaise)
            Application.Quit
        End If
    End If
y = y + 1
Loop
 
If trouve = False Then
    MsgBox (pastrouve)
End If
 
Workbooks("Liste PG Info.xls").Close False
 
End Sub
Les variables version et dossier apparaissent comme vide ... J'ai un peu de mal et je dois déployer ce morceau de macro sur un certain nombre de programme :/

Merci d'avance de votre aide.