Discussion :

[DOUZAL]

Bonjour,

Je suis à nouveau confronté à un soucis dont je n'ai jamais réussi à obtenir une réponse convenable :
j'aimerais pouvoir déclarer une fois par exemple à l'ouverture du classeur dans le Workbook_Open() le classeur, les feuilles, éventuellement d'autres objets.

Je déclare publiques le wb et les worksheets dans l'espace de code (module) du classeur
Déjà ça n'est pas accessible dans les autres modules (mais pour ça, il faut mettre en Global les variables sauf que ce n'est pas possible pour des objets non primitifs j'ai l'impression !)

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_Open()
 
'variables globales
 
'Call declarationVariables
 
Set wb = ThisWorkbook
Set wsA = wb.Worksheets("AMORTISSEMENT")
Set wsT = wb.Worksheets("TABLEAU_AUTOMATIQUE")
 
debug.print wsA.Name & " dans wb_Open"
 
End Sub

Je suis tombé sur pas mal de topics présentant ce même soucis, mais je n'arrive pas à appliquer les solutions. Ca ne marche pas.
Exemple : ce topic

Je n'ai encore jamais rencontré le

Code VBA :

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

Public Property Get ModelWorksheet As Worksheet

Je me renseigen pour l'utiliser,

Mais avez-vous déjà rencontré ce problème,
COmment l'avez-vous résolu ?

Bien à vous,
Douzal

[Marc-L]

Bonjour,

c'est superflu vu les variables objet déjà prédéfinies comme ThisWorkbook et les CodeName des feuilles de calculs,
pourquoi donc créer ce qui est déjà existant ?‼

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[DOUZAL]

Bonjour,

c'est superflu vu les variables objet déjà prédéfinies comme ThisWorkbook et les CodeName des feuilles de calculs,
pourquoi donc créer ce qui est déjà existant ?‼

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Oh ?
Je dois me renseigner sur les CodeNames, jamais entendu parler !

Mais dans chacune de mes proc, j'ai pris la bonne habitude de bien pointer sur le classeru et la feuille, et toujours passer par ces
set wb = thisworkbook
setws1 = wb.worksheets("nomFeuille1")

Y'a plus simple ??
(merci poru ta rapidité)

[DOUZAL]

Nb : j'ai aussi un autre module avec donc redéclaration des variables (pas bien déjà, ça m'ennuie beaucoup) et là l'affectation n'est pas effective

Code VBA :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Option Base 1
Option Explicit
 
' ________________________________________
 
'Global wb As Workbook
Public wb As Workbook
 
Public MONTANT As Double
Public TAUX As Long
Public NBPER As Byte
Public TYP As String
 
Public wsA As Worksheet
Public wsT As Worksheet
'Public wb As Workbook
Public c As Range
 
' ________________________________________
 
 
 
 
 
Private Sub valider_Click()
 
'Dim MONTANT As Double
'Dim TAUX As Long
'Dim NBPER As Byte
Dim TYP As String
 
'Dim wsA As Worksheet
'Dim wsT As Worksheet
'Dim wb As Workbook
Dim c As Range
 
'affectation
'Set wb = ThisWorkbook
'Set wsA = wb.Worksheets("AMORTISSEMENT")
'Set wsT = wb.Worksheets("TABLEAU_AUTOMATIQUE")
'Call declarationVariables
 
MsgBox "Dans Valider_Click"
MsgBox wsA.Name & " dans Valider_click"
MsgBox "Dans Valider_Click"
 
 
End Sub

Nb : fichier en pj

[Marc-L]

Les variables prédéfinies automatiquement pour le classeur et ses feuilles de calculs
étant disponibles dans tout type de module de ce même classeur, utiliser directement ThisWorkbook pour le classeur …

Exemple de CodeName dans cette discussion …

[DOUZAL]

Les variables prédéfinies automatiquement pour le classeur et ses feuilles de calculs
étant disponibles dans tout type de module de ce même classeur, utiliser directement ThisWorkbook pour le classeur …

Exemple de CodeName dans cette discussion …

Merci,
Je me renseigne ça peut effectivement être une solution qui change de mes habitudes mais qui fonctionne parfaitement !
Si je peux assigner un String au CodeName, ça va le faire

Top,
Je regarde tout ça !!

[Marc-L]

Conclusion :

en utilisant directement ThisWorkbook ou/et les CodeName des feuilles de calculs,
il est inutile  - superfétatoire même ! -  de créer des variables pour ces objets.

Sans compter l'utilisation de l'instruction With …

[eriiic]

Bonjour,

D'accord pour ThisWorkbook, mais pour les feuilles je serais moins catégorique personnellement.
Un codename par défaut est Feuilxx, il faudait tous les reprendre dans VBE si on veut un code autocommenté.
Pour moi c'est plus simple de déclarer une variable, sauf si on veut s'affranchir d'un renommage des feuilles.

La déclarer (Public ou Global selon la portée voulue) au début d'un module Standard, avant toute procédure.
eric

[DOUZAL]

Alors voici, je mets dans le module du classeur

Code VBA :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Option Base 1
 
Public wsA As String
 
Private Sub Workbook_Open()
 
' affectation a wsA (portee publique) du codeName de la feuille Amortissement
wsA = ThisWorkbook.Worksheets("AMORTISSEMENT").CodeName
 
 
End Sub

Et dans le bouton associé au clic sur VALIDER :

Code :

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

1
2
3
4
5
6
Private Sub valider_Click()
 
' "variable non definie"
MsgBox wsA
 
End Sub

La variable n'est pas definie ..

[Marc-L]

Créer une variable pour le classeur contenant le code ou pour ses propres feuilles de calculs est :

I N U T I L E ‼

Encore une fois et c'est la dernière :   juste utiliser directement leurs variables prédéfinies …

Sauf à vouloir perdre du temps et gâcher des ressources systèmes !