Date automatique

Bonjour à tous,

J'ai trouvé sur le forum, un code qui est censé afficher la date du jour à l'ouverture du classeur en A1

mais cela ne fonctionne pas

Merci de bien vouloir m'aider encore une fois

Papy Pierrot de Belgique

Ci-dessous, le ode :

Private Sub Workbook_Open()

Sheets("Feuil1").Select

LIGNE = 1

While Range("A" & LIGNE) <> Date

LIGNE = LIGNE + 1

Wend

Range("A" & LIGNE).Select

End Sub

écris en A1 =aujourdhui()

Bonjour, Engue Engue

Merci de me répondre si vite, je connais cette formule de même que "Maintenant", mais je souhaitais que la date ne s'affiche qu'a l'ouverture du classeur et non pas en permanence .

Le résultat étant le même, à quoi sert la macro Auto_Open ?

Merci et amitiés

papy Pierrot

la macro que tu as copié va selectionner la cellule de la colonne a qui contient la date du jour; il faut que la colonne A contienne un historique de dates... en gros elle est inutile

Si tu veux qu'elle s'affiche à l'ouverture

Private Sub Workbook_Open()
msgbox(date)
end sub

Cher ami EngueEngue,

Je préfère la solution avec MsgBox.

Merci beaucoup

A charge de revanche

Amitiés

Pierrot