date du jour

Bonjour
Dans le code de Thisworkbook par exemple à adapter:
Private Sub Workbook_Open()
Dim z As Range
On Error Resume Next
Set z = Feuil1.Cells.Find(Date, , xlValues)
z.Activate
On Error GoTo 0
End Sub

Cordialement
Pascal

"Nat3Riv" <Nat3Riv@discussions.microsoft.com> a écrit dans le message de
news: 636CE50B-BD7D-413B-A685-FAF6CE6A0ECC@microsoft.com...

Bonjour,
J'aimerais qu'à l'ouverture de mon fichier, le curseur se déplace sur la
date du jour.
Bien entendus, le fichier comporte toutes les dates de l'année.
Il s'agit de l'horaire de quelques employés

merci

Bonjour papou,

Je débute et essaie de comprendre les programmes. Pourrais-tu
m'expliciter stp les 2 commandes "on error" ? je t'avouerai ne pas
avoir tout compris dans l'aide vba...

merci

Bonjour
1°) On Error Resume Next
Permettra de passer à la ligne de code suivant celle qui aura provoqué
l'erreur
2°) On Error Goto 0
Réinitialisera la gestion d'erreur - annulera en quelque sorte la gestion de
l'erreur initiée dans le 1°)

Cordialement
Pascal

"Phenix21" <jeanluc.lacouture@gmail.com> a écrit dans le message de news:
1147873945.479880.269250@u72g2000cwu.googlegroups.com...
Bonjour papou,

Je débute et essaie de comprendre les programmes. Pourrais-tu
m'expliciter stp les 2 commandes "on error" ? je t'avouerai ne pas
avoir tout compris dans l'aide vba...

merci

Si j'ai bien compris, tu lui demandes de continuer même s'il y a une
erreur.

OK merci beaucoup !

Bonjour,

http://cjoint.com/?frvYPkXHuJ

A
1 01/01/2006
2 02/01/2006
3 03/01/2006

Private Sub Workbook_Open()
[A1].Offset(Date - [A1], 0).Select
End Sub


Cordialement JB

merci à papou

Bonjour,

http://cjoint.com/?frvYPkXHuJ

A
1 01/01/2006
2 02/01/2006
3 03/01/2006

Private Sub Workbook_Open()
[A1].Offset(Date - [A1], 0).Select
End Sub


Cordialement JB

Merci à JB

Bonjour,

http://cjoint.com/?frvYPkXHuJ

A
1 01/01/2006
2 02/01/2006
3 03/01/2006

Private Sub Workbook_Open()
[A1].Offset(Date - [A1], 0).Select
End Sub


Cordialement JB