Discussion :

[grimgrim]

Bonjour,

Dans l'application que je réalise actuellement, je lance le fichier

J'utilise ThisWorkBook pour tester la présence de mes fichiers et ensuite il lance un userform

A quel niveau dois je mettre mes variables pour quelles soient utilisées dans le projet ?

Merci pour votre retour

[Invité]

Salut,

Il faut déclarer les variables en Public, puis les appeler ensuite par:
ThisWorkbook.MaVariable (ou VBAProject.ThisWorkbook.MaVariable), à travers tout le projet.

Ici, ThisWorkbook est un CodeName (modifiable). Ce n'est pas le nom de la variable public ThisWorkbook qui elle est fixe et défini en tant que Excel.ThisWorkbook ou Excel.Global.ThisWorkbook ou Excel.Application.ThisWorkbook.

[grimgrim]

Ok,
J'ai déplacé mes variable dans ThisWorkbook

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
Public NomClasseurApplication As String
Public ArtExiste As Integer
Public I As Single
Public MyArray(30, 5)
Public MyArrayEquiv(20, 7)
Public MyArrayRefFab(30, 5)
Public MyArrayRCS(100, 6)
Public MyArrayParam(70, 5)
Public MyArrayDAsansCde(10, 6)
Public MyArrayCdeNonLivree(10, 6)
Public MyArrayStockD(1000, 4)
Public MyArrayStockM(1000, 4)
Public StockMGlobal As Integer
Public StockDGlobal As Integer
Public MyArrayRecherche()
Public ControlRech As Integer
 
Private Sub Workbook_Open()
'
'
NomClasseurApplication = ActiveWorkbook.Name
'
Call TestExistenceRepertoire
 
Call OuvrirFichier
'
Principal.Show False
'
End Sub

dans un bouton dans userform, j'utilise une de ces variables comme tu as indiqué

Code :

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

1
2
3
4
5
Windows("Revue Referentiel.xls").Activate
Sheets("Nomenclature Equipement").Select
Nligne = Cells(1, 1).CurrentRegion.Rows.Count
Z = 0
Erase ThisWorkbook.MyArray

j'obtiens une erreur
"Erreur de compilation : des constantes, chaines de longueur fixe, tableaux, types définis par l'utilisateur et instructions Declare ne sont pas autorisé&s comme menbres public de modules d'objet"

une idée ?

[Philippe Tulliez]

Bonjour,
Tu as déjà posé une question similaire concernant la portabilité des variables et je t'ai conseillé dans cette réponse la lecture d'un tuto ce que manifestement tu n'as pas fait.

@Nouveau2

Il faut déclarer les variables en Public, puis les appeler ensuite par:
ThisWorkbook.MaVariable (ou VBAProject.ThisWorkbook.MaVariable), à travers tout le projet.

Où as-tu lu cela.
Cela fonctionne effectivement et bizarrement avec cette syntaxe ThisWorkBook.Variable mais ce n'est pas très rationnel

Une variable publique doit être impérativement déclarée dans un module standard.

Tu t'imagines

Code :

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

1
2
3
4
Private Sub UserForm_Initialize()
 ThisWorkbook.maVariable = "monTest"
 Me.TextBox1 = ThisWorkbook.maVariable
End Sub

Alors que déclarée publique dans un module standard, on utilise la variable directement par son nom.

[grimgrim]

c'est évident que j'ai suivi ton conseil

Mais je n'ai pas compris comment je pouvais le traduire dans mon programme

De même, je n'ai pas compris ce que tu viens de me dire

Peux tu expliciter ?

ce qui me perturbe c'est userform qui n'utilise pas les module

Donc en lançant un thisworkbook, qui lance un userform et à l'interieur de cet userform je clique sur un bouton commandebutton qui appelle un programme dans des modules

je n'ai ou les variables visibles de l'ensemble, même des private sub

merci d'avance

[Invité]

Ah, je n'avais pas suivi la discussion. Je croyais qu'il été question du ThisWorkbook comme étant un choix déjà fait.

Il vaut mieux continuer la discussion sur l'autre discussion dans ce cas, c'est mieux, le contexte étant déjà posé.

[clementmarcotte]

Bonjour,

Bonjour,

Cela fonctionne effectivement et bizarrement avec cette syntaxe ThisWorkBook.Variable mais ce n'est pas très rationnel

J'ai comme l'impression que c'est une sorte de "propriété cachée" de VBA; comme si cela avait été mis là (comme, disons, DateDiFF(), pour Lotus) pour des fins de compatibilité avec VB.net, ou comme si c'était un code adapté d'une base commune VB chez Microsoft.

Parce que c'est très similaire à la syntaxe VB.net pour récupérer une valeur d'une variable publique (ou invoquer une méthode publique) d'une classe à partir d'une autre classe.

Mais, tu as amplement raison de te questionner sur cette utilisation en VBA. À ce que je sache, ce n'est pas documenté.

[Didier Gonard]

Bonjour,

Il est dit partout qu’en VBA , une variable publique doit être déclarée dans un module standard, non sans raison.

Les modules de feuille et de classeur sont déclarés dans le dossier « Micosoft Excel Objets » qui est différent du dossier Modules et sont générés automatiquement par Excel en sous-jacent.

Il y a une raison à ça ; ce sont des pseudos modules de classe et à ce titre ils se comportent comme des modules de classe pour le code que l’on y insère. Une variable « publique » dans un module de classe n’a rien à voir avec une variable publique au sens de celles déclarées dans un module standard et, en fait, reviens à déclarer une propriété pour l’objet du module objet en question… d’où le fait de pouvoir employer « la chose » sous la forme « ThisWorkBook.Variable », la notation VBA étant une notation par point, vous utilisez une propriété du dit objet comme vous le faites couramment avec les objets standards du modèle objet d’Excel.

Donc rien de bizarre, mais du code borderline et dangereux si non maîtrisé

cordialement,

Didier

[Vbenoit37]

Bonjour,

J'ai un souci qui se rapproche du thème de cette dicsussion,mais avec une variable Global (de plus assez peu documentée sur Internet...):

J'ai une variable de type Global déclarée dans un module standard, avant le début des procédures Sub: donc normalement utilisable par tous les modules et USF.
3 procédures similaires affectent une valeur différente à cette variable,en tout début d'execution, qui doit être récupérée par un USF unique, qui est appelé après que l'affectation de ma variable Global ait été modifiée.

Dans l'USF l'appel à la variable Global se fait par une procédure Private_Sub initialize qui est lancée par l'instruction .show de ma procédure. Le but étant que mon USF affiche dans un champ le texte de la variable Global, dont ma procédure vient de modifier la valeur.

Or le comportement constaté n'est pas celui attendu, et plûtot curieux, car il se rapproche d'un variable Static:
-l'usf prend comme valeur de ma variable Global celle qui a été donné par la dernière procédure exécutée, mais pas celle qui est en cours (il ne met pas à jour la valeur de la variable).
-quand j'execute ma procédure à 2 reprises, ma var. Global prend la valeur attendue dans l'USF, correctement, mais à cette deuxième exécution seulement
-encore plus curieux : quand je lance ma procédure en mode Pas à Pas: ma variable globlale est correctement affectée, et ensuite correctement reconnue par l'USF, et cette fois-ci dés la première execution de la procédure!

Pour précision après l'affichage de l'USF, il y a dans ma procédure une instruction d'attente "Do Events" (mais après l'affichage de l'USF, donc à priori sans rapport de causalité).


Par ailleurs j'utilise une variable Global mais dans l'autre sens : affectée par un USF pour être reconnu par une procédure Sub : là aucun soucis...

Qu'en pensez vous?

Benoit

[Invité]

https://www.developpez.net/forums/d1.../#post10467165