probléme dans thisworkbook

[gil73]

bonjour à tous,

J'ai demandé sur le forum à mettre dans un classeur (20 feuillets) à la première feuille l'heure et la date dans deux cellules différentes. Michel m'a répondu et je l'en remercie. Mais quand j'active "thisworkbook" que je clique dans la fenètre qui s'ouvre sur worbook, le message suivant s'inscrit
Private Sub Workbook_Open()

End Sub

donc j'inscrit au milieu
Range("A1")- Date
Range("A2")-Time

et j'enregistre mais rien ne se passe, je ferme mon dossier quand je l'ouvre j'active les macros et j'ai un message d'erreur sur "Range"

Si quelqu'un peut m'aider merci d'avance.

 

[Arnaud]

salut.
essaye plutot ça
Range("A1") = Date
Range("A2") = Time

 

[Pascal76]

Salut

Précise aussi devant ton range le nom de ta feuille
sheets("toto").range("A1")=Date

Pascal

 

[Pascal76]

Re

Suite à ton mail je pense que dans ce cas écris ceci

Private Sub Workbook_Open()

sheets("Toto").Range("A2").FormulaR1C1 = "=NOW()"
sheets("Toto").Range("A2").NumberFormat = "h:mm"
sheets("Toto").Range("A1").FormulaR1C1 = "=NOW()"
sheets("Toto").Range("A1").NumberFormat = "mm/dd/yyyy"

End Sub

Une pression sur F9 te recalcules tout ton heure et ta date

Pascal