ouverture fichier sur date jour

[DIGGERJACK]

Bonjour le forum

Je voudrais ouvrir cet onglet avec le curseur sur la date du jour

Pour l'onglet c'est ok mais pour positionner le curseur sur la date du jour je coince ……..

Merci de votre aide

 

[excalibur]

Re : ouverture fichier sur date jour

bonjour DIGGERJACK le forum tu pus faire comme cela
Private Sub Workbook_Open()
Feuil1.Select
With ActiveSheet.Range("a4:a5000")
Set c = .Find(Date, LookIn:=xlValues)
c.Select
End With
End Sub
salutations

 

[Dan]

Re : ouverture fichier sur date jour

Bonjour,

Utilise cette macro faite par Pierrot93 et que j'ai adaptée à ton fichier

Private Sub Workbook_Open()
Dim cel As Range
Feuil1.Select
Set cel = Columns("A:A").Find(Date)
If Not cel Is Nothing Then cel.Select
End Sub

A te lire

Dan

Edition : oups DSL excalibur, je n'avais pas vu que tu avais posté ...

 

[DIGGERJACK]

Re : ouverture fichier sur date jour

Re le forum


Merci dan et excalibur c'est nickel

Bon Week end