Discussion :

[fifo78370]

Bonjour à toutes et tous,

J'ai besoin de connaitre la date dans le code d'un userform. Pour ce faire, j'ai déclaré dans l'onglet général de ThisWorkbook en Public la variable Le comme une date. Dans Workbook_Open, j'ai activé une feuille particulière puis Initialiser Le avec la date courante Now()!

Code :

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

1
2
3
4
Private Sub Workbook_Open()
    Worksheets("RECAP").Activate
    Le = Now()
End Sub

Mon problème réside dans le contenu de Le qui reste désespérément à "00:00:00"?!...

Merci de votre aide.

[Menhir]

A mon avis, ton problème, c'est que toutes les variables disparaissent quand une macro se termine, y compris si elles sont public. On ne peut pas durablement stocker une valeur dans une variable.

Que t'affiche la fenêtre d'exécution si tu fais :

Code :

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

1
2
3
4
5
Private Sub Workbook_Open()
    Worksheets("RECAP").Activate
    Le = Now()
    debug.print "Le = ";Le
End Sub

[fifo78370]

A mon avis, ton problème, c'est que toutes les variables disparaissent quand une macro se termine, y compris si elles sont public. On ne peut pas durablement stocker une valeur dans une variable.

Que t'affiche la fenêtre d'exécution si tu fais :

Code :

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

1
2
3
4
5
Private Sub Workbook_Open()
    Worksheets("RECAP").Activate
    Le = Now()
    debug.print "Le = ";Le
End Sub

Bonjour Menhir,
Je ne vois rien apparaître! De plus ce type de code fonctionnait en Excel 4.0! ça date un peu je sais...
Mais comme Excel 2013 n' exécute pas systématiquement les "=ACTIVER("Feuil_x")" je suis dans l'obligation de réécrire une macro en 4.0 de 900 lignes!
J'ai pour l'instant contourné le problème en venant "Lire" une cellule nommée Aujourdhui sur la feuille RECAP de départ.
Mon propos était de comprendre pourquoi, lorsque je faisais appel au contenu d'une variable public définie à la "racine" du workbook, celle-ci revenait à 0!

[Menhir]

Je ne vois rien apparaître!

Est-ce que ta fenêtre d'exécution est ouverte ? (Ctrl+G dans l'éditeur VBA)

De plus ce type de code fonctionnait en Excel 4.0!

Il y avait déjà du VBA en Excel 4 ?

Mon propos était de comprendre pourquoi, lorsque je faisais appel au contenu d'une variable public définie à la "racine" du workbook, celle-ci revenait à 0!

Je te l'ai dit : quand une macro est terminée, ses variables disparaissent.
Donc, si tu les rappelles avec une autre macro, elles sont réinitialisées à leur valeur par défaut.

[fifo78370]

Est-ce que ta fenêtre d'exécution est ouverte ? (Ctrl+G dans l'éditeur VBA)


Il y avait déjà du VBA en Excel 4 ?


Je te l'ai dit : quand une macro est terminée, ses variables disparaissent.
Donc, si tu les rappelles avec une autre macro, elles sont réinitialisées à leur valeur par défaut.

Le = 31/08/2015 13:45:50 apparaît dans la fenêtre d'exécution.
pour la macro workbook.open
mais Le = 00:00:00 dans le code de la UserForm CQFD (mais qui ne m'arrange pas!)

Merci de ton aide Menhir et bonne continuation...

[Menhir]

La solution la plus simple est de mettre cette valeur dans une cellule d'une feuille de calcul. Comme ça, n'importe quelle macro pourra la récupérer.

Autre solution : tu te fais une macro Init qui contient les initialisation de variables et tu la lances en début de tes macros.

[clementmarcotte]

Bonjour,

c'est que toutes les variables disparaissent quand une macro se termine, y compris si elles sont public.

Pas forcément. Il faut les accompagner de Static. Je ne me souviens plus si Static s'ajoute ou remplace Dim.