Se positionner sur la cellule du jour à l'ouverture

[JOjo]

Bonjour

j'ai un fichier avec en colonne les date des 6 prochains mois
je souhaite à l'ouverture du fichier que le curseur soit positioné automatiquement sur la date du jour.

Est-ce possible ?
Merci

 

[@+Thierry]

Bonsoir Jojo, le Forum

Voici un code à mettre dans le Private Module de "ThisWorkBook" (pas un module standard)

Private Sub Workbook_Open()
Dim TheDate As Date
Dim Cell As Range


TheDate = Date

ThisWorkbook.Sheets("Sheet1").Activate

For Each Cell In Sheets("Sheet1").Range("A1:A365")
    If Cell = TheDate Then
        Cell.Select
        Exit For
    End If
Next

End Sub


Bonne Soirée et Saint Valentin

 

[JOjo]

merci. je vais essayé avant d'aller voir ma dulcinée

 

[JOjo]

extra. merci