VBA Workbook_Open

Bonjour au forum,

Private Sub Workbook_Open()
[h2].FormulaR1C1 = "=TODAY()"
End Sub

Je voudrais que toutes les feuilles du classeur se ré-initialise à l'ouverture.

(formule et non valeur en h2)

merci pour votre aide

amicalement

Claude.

Bonjour,

Je n'ai compris là.

Tu peux réexpliquer ce que tu veux ?

Dan

re,

Je voudrais que chaque feuille est la formule :AUJOURDHUI() en H2

Claude.

re,

essaye :

Private Sub Workbook_Open() 
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
sh.Range("H2").FormulaR1C1 = "=TODAY()"
Next sh
End sub

A te relire

Dan

re,

Merci Dan, çà marche très bien.

à+......Claude.