Visibilité d'une variable entre 2 classeurs

Re : Visibilité d'une variable entre 2 classeurs

Bonjour

QUELQU'UN A UNE IDEE ?

Cliquez pour agrandir...

Oui

Lire l'aide en ligne d'Excel concernant les variables

(ou directement ce fil
https://www.excel-downloads.com/threads/effacer-toutes-les-variables.149154/)


EDITION: bonjour bhbh, re job75 (bing collision avec bhbh )

Re : Visibilité d'une variable entre 2 classeurs

Bonjour,

Une solution, en passant par l'utilisation d'un nom défini...

Dans le classeur 1, tu mets :


et pour récupérer ta variable dans le classeur 2 :


Nom du classeur et de la feuille à adapter...

Solution un peu "boiteuse", mais qui fonctionne...

Bon W-E

Re : Visibilité d'une variable entre 2 classeurs

Bonjour BOUCHEZ JD,

Je m'étais aussi posé cette question de transmission de variables entre fichiers.

Ne l'ayant pas résolue je fais comme ça :

Fichier F1 :


Fichier F2 :


La donnée est stockée dans un nom défini, voilà tout...

Edit : salut bhbh, désolé pour la collision 🙂

A+

Re : Visibilité d'une variable entre 2 classeurs

Merci à tous, cela fonctionne


Pour STAPLE1600 : J'ai bien sur consulté l'aide en ligne par le F1 du VBA
sur 'PUBLIC' ..... mais ce qui y est ecrit est FAUX ! ! ! ! :
_____________________________________________________________
Remarques
Les variables déclarées avec l'instruction Public sont accessibles à toutes les procédures,
dans l'ensemble des modules de toutes les applications
____________________________________________________________


Bon W.E

Re : Visibilité d'une variable entre 2 classeurs

Re


Cela n'a rien de faux.

Par toutes les applications, il faut comprendre
(toutes les applications composant la suite Office et supportant le VBA:
Excel, Word; PowerPoint, Outlook , Access etc ...)

Re : Visibilité d'une variable entre 2 classeurs

Histoire de pinailler :

Cela signifie donc qu' EXCEL n'est pas une Application Office
puisqu'il ne voit pas la variable ....

Cordialement

Re : Visibilité d'une variable entre 2 classeurs

Bonsoir tout le monde,

Il y a une autre possibilité décrite par Laurent Longre : les noms masqués.
Le nom n'est pas défini dans un classeur mais dans l'application, et reste accessible une fois le classeur fermé.
Voir toutes les explications Ce lien n'existe plus

eric

Re : Visibilité d'une variable entre 2 classeurs

Bonjour.

Dans mes recherches, j'ai egalement trouvé ceci :
(Solution non retenue car à mon sens un peu complexe pour simplement récuperer le contenu d'une variable)

On peut aussi utliser des API Windows
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)

pbuf = 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
_________________________________
source :
Ce lien n'existe plus

Cordialement

Re : Visibilité d'une variable entre 2 classeurs

Bonjour Bouchez JD,

Si tu suis le lien que j'ai donné au post précédent tu as une solution plus simple :
sauver :
Application.ExecuteExcel4Macro "SET.NAME(""Nom_Test"",100)"
lire :
Résult = Application.ExecuteExcel4Macro("Nom_Test")

Visible dans tous les classeurs de la session, même si celui ayant créé la variable est refermé.
eric

Re : Visibilité d'une variable entre 2 classeurs

Bonjour,

Autre solution, à partir de ton exemple dans le post #1

Dans le projet vba de F2.xls faire référence (Outils/Références) au 'VBAproject' qui correspond au projet vba de F1.xls.

Si dans la liste des références tu as plusieurs 'VBAproject', clique successivement sur chacun d'eux en regardant dans la zone de description à quel classeur ouvert il appartient.

Tu pourras manipuler la variable de F1.Xls comme bon te semble.

A+