Ouverture du fichier Excel, selectionner la cellule à la date du jour

Bonjour à tous,

J’ai un planning en fichier Excel sur une période de l’année.

Je voudrais par macro, à l’ouverture du classeur, que la cellule active corresponde à la cellule qui détient la date d’aujourd’hui.

Exemple, aujourd’hui nous sommes le 25/10/2020, donc à l’ouverture du fichier Excel joint, la cellule active devrait être BD5.

Si en plus le volet est figé en laissant apparaitre la colonne avec les NOMS et à partir de la colonne concernée par la date... cela serait le top !

Bonne journée.

Bonjour,

Un essai ...

À placer dans "ThisWorkbook" ...

Option Explicit

Private Sub Workbook_Open()
Dim Dcol As Integer
Dim Ws As Worksheet
Dim X As Integer

    Set Ws = Worksheets("Feuil1")
    Dcol = Ws.Cells(5, Columns.Count).End(xlToLeft).Column
    Ws.Cells(5, "B").Select
    For X = 2 To Dcol
        If CDate(Ws.Cells(5, X)) = Date Then
            ActiveWindow.SmallScroll ToRight:=X - 2
            Exit Sub
        End If
    Next X
End Sub

ric

Salut Heru,

Pour figer les volets, menu "Affichage" - "Figer les volets" - "Figer la 1ère colonne".
Code à insérer dans le module 'ThisWorkbook'.

Private Sub Workbook_Open()
'
Dim dDate As Date, iCol%
'
dDate = CDate(Range("B5").Value)
iCol = 2 + DateDiff("d", dDate, Date)
ActiveWindow.ScrollColumn = iCol
Cells(5, iCol).Select
'
End Sub

A+

Et be !!

Merci Ric !

Cela a bien activé la date d’aujourd’hui, nickel et bravo, je vais transposer sur mon fichier complet mais au lit d’abord lol.

Pour curulis57, j'ai un message d'erreur en ajoutant dans le ThisWorkbook ton code

Erreur de compilation

Nom ambigu détecté: Workbook_open

Air connu : tu as très probablement créé la Sub Workbook_Open() pour ensuite y coller le code, d'où, 2 x cette première ligne et donc erreur!
Fonctionne très bien, même en 1 ligne si tu veux.

Private Sub Workbook_Open()
'
ActiveWindow.ScrollColumn = 2 + DateDiff("d", CDate(Range("B5").Value), Date)
'
End Sub

A+

parfait cela marche.

Sinon,

Comme j'ai plusieurs macro dans le ThisWorkbook, j'ai opté par l'appel de plusieurs macro par Call.
Dans le fichier joint, j'ai modifié le tableau avec plus de jours pour bien voir le résultat.