Discussion :

[dahu29]

salut

Je travail sur excel avec VBA je souhaiterai qu'a l'ouverture du fichier excel, la date du jour ce mette automatiquement dans un champs.
J'ai réussi à le faire avec Workbook_SheetActivate mais il fallait que je click que une autre feuille puis que je revienne sur la mienne pour que l'event est lieu ?

sinon j'ai essayé avec Workbook_Open et Workbook_WindowActivate sans succès

voici mon code:

Code :

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

1
2
3
Private Sub Workbook_WindowActivate()
 
Worksheets("CA").Cells(4, 1).Value = Date

j'ai mis mon private sub dans les microsoft excel objects et pas dans les modules.

Quelqu'un connaitrait le nom de l'event qui me faut ?

++

[ThierryAIM]

Code :

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

1
2
3
Private Sub Workbook_Open()
    Worksheets("CA").Cells(4, 1).Value = Date
End Sub

ca marche très bien ça, je ne comprends pas ton problème

[zazaraignée]

j'ai mis mon private sub dans les microsoft excel objects et pas dans les modules.

Lequel?

[méphistopheles]

Bonjours zaza.

je confirme, pas de problèmes...

[dahu29]

Mon problème est lorsque mon fichier excel ce lance il m'ouvre ma feuille et ne met rien dedans, je change de feuille puis je reviens sur la feuille initiale et là la date s'affiche

[SfJ5Rpw8]

ton code tu la bien mis dans Workbook_Open et pas dans ...activate ?

[dahu29]

Si je met Private Sub Workbook_Open(), il n'y a rien qui ce passe lorsque j'ouvre mon fichier excel

[ouskel'n'or]

Bon, comme je ne comprends pas ton problème, peut-être un pb de version. Voilà ce que je fais et qui fonctionne quelque soit ta version de VBA

Code :

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

1
2
3
4
5
6
7
8
Sub Workbook_open()
    Application.WindowState = xlMaximized
    ActiveWorkbook.RunAutoMacros Which:=xlAutoOpen
End Sub
 
Sub Auto_open()
    Worksheets("Feuil1").Cells(1, 5).Formula = Format(Now(), "dd mmmm yyyy")
End Sub

Essaie pour nous

A+

NB - Attention, cette date sera modifiée à chaque nouvelle ouverture du fichier... (et ne sera donc pas conservée)

[AlainTech]

Il ne faut pas taper Workbook_Open...

Il faut le faire générer par l'éditeur VBA pour être certain qu'il soit à la bonne place.

[AlainTech]

Et enlève ton "Private"

Sub Workbook_Open() tout court !

Si on fait générer la Sub d'event par l'éditeur, on n'a rien à enlever

[Megaxel]

D'accord avec AlainTech!
Dans l'explorateur de projet, double-clique sur Workbook, ça t'ouvre la feuile de code du classeur. Puis choisis "workbook" dans l'ascenseur de gauche, et "open" dans celui de droite, et tu auras directement l'entête du code.

[SfJ5Rpw8]

Si on fait générer la Sub d'event par l'éditeur, on n'a rien à enlever

Oui mais moi je suis un manuel, je fais tout à la main...

à la main ou pas ... il n'as pas lieu d'enlever le private...

sauf si l'on veut lancer la macro Wor...Open .. de puis un autre module ... ( ce qui n'est pas trop "propre..")