Macro Excel variable globale dans plusieurs projets Excel

Public var_globale As Integer
Sub Init_var_globale()
var_globale = 9
End Sub

Sub Utilisation_var_globale()
' Rem : je suppose ici que le tableur Tab_init_var_globale.xls a déjà été ouvert
Application.Run "Tab_init_var_globale.xls!Module1.Init_var_globale"
MsgBox var_globale
End Sub

'*************************************************
Option Explicit
 
Declare Function SetEnvironmentVariable Lib "kernel32" Alias _
"SetEnvironmentVariableA" (ByVal lpName As String, _
ByVal lpValue As String) As Long
 
Declare Function GetEnvironmentVariable Lib "kernel32" Alias _
"GetEnvironmentVariableA" (ByVal lpName As String, _
ByVal lpBuffer As String, ByVal nSize As Long) As Long
 
 
'*************************************************************
Sub AutoOpen()
Dim EnvVarName As String
Dim ValVar As String
 
Dim x
Dim lpbuf As String
Dim lsize As Long
 
 
 
'le nom de variable utilise est le Hwnd de l'application Excel (quand excel sera fermé, cette variable sera automatiquement détruite)
EnvVarName = CStr(Application.Hwnd)
 
lpbuf = Space$(256)
lsize = 256
 
x = GetEnvironmentVariable(EnvVarName, lpbuf, lsize)
ValVar = Left$(lpbuf, x)
 
If ValVar = "1" Then
    'si la variable d'environnement est renseignée à "1" c'est qu'un fichier est déjà ouvert.
    'on peut alors décider de fermer le fichier en cours d'ouverture
    MsgBox "Un fichier est déjà ouvert"
    ActiveWorkbook.Close False
    End
Else
    'la variable d'environnement étant vide on lui affecte sa valeur "1"
    x = SetEnvironmentVariable(EnvVarName, "1") 
End If
 
End Sub
 
 
'***************************************************
Sub AutoClose()
Dim EnvVarName As String
Dim x
 
'le nom de variable utilise est le Hwnd de l'application Excel (quand excel sera fermé, cette variable sera automatiquement détruite)
EnvVarName = CStr(Application.Hwnd)
 
'on vide la variable d'environnement à la fermeture du fichier
x = SetEnvironmentVariable(EnvVarName, "")
 
End Sub