Discussion :

[NicolasMO]

Bonjour à tous,

Je souhaite afficher automatiquement la date du jour dans un intitulé à l'ouverture d'une userform. Quel est le code qui fait ça?
Merci pour votre aide.
Nicolas.

[ouskel'n'or]

Code :

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

1
2
Msgbox date ' donne la date
Msgbox Now 'donne la date et l'heure

Après tu brodes -> Format(Now, "dd mm yyyy") etc
Bonne soirée

[diude54]

Par exemple:

Code :

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

Userform1.caption=" &D"

[ouskel'n'or]

Par exemple:

Code :

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

Userform1.caption=" &D"

Ce n'est pas dans un en-tête de feuille qu'on utilise &D ?

[NicolasMO]

J'ai écrit:

Code :

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

1
2
3
4
Private Sub UserForm_Initialize()
 
With Label14.Caption = Date
End With

Il écrit juste Label14 dans mon intitulé.

[ouskel'n'or]

Il écrit juste Label14 dans mon intitulé.

Alors écris juste

Code :

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

1
2
Private Sub UserForm_Initialize()
Label14.Caption = Date

Edit
Code corrigé (End width devenu inutile supprimé)

[Jean-Pierre49]

Bonjour, et bonjour au forum

Essais plutot

Private Sub UserForm_Initialize()

Code :

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

1
2
3
With Label14
        .Caption = Date
End With

Bon courage

[NicolasMO]

Victoire!!
Merci pour votre aide, toujours aussi rapide et efficace.
Nicolas.