ouverture fichier avec date du jour

[jean-yves-auneau]

Bonjour

existe-t-il une possibilité pour que à l'ouverture d'un fichier la ligne contenant la date du jour apparait à l'écran en surbrillance.

J'ai un fichier avec une ligne et une colonne par date (soit 365 lignes et 250 colonnes l(les jours ouvrables) et je souhaite que à l'ouverture du fichier, le curseur se positionne automatiquement sur la date du jour.

voir exemple de fichier joint

Merci pour votre aide

JY 85

 

[Minick]

Re : ouverture fichier avec date du jour

Salut,

Quelque chose comme ceci par exemple:

Option Explicit

Private Sub Workbook_Open()
    Dim Rech As Range
    Dim Ligne As Integer
    Dim Colonne As Byte
    
    Feuil1.Cells.Interior.ColorIndex = xlNone
    
    Set Rech = Feuil1.Rows(2).Find(what:=Date, LookIn:=xlValues, lookat:=xlWhole)
    
    If Not Rech Is Nothing Then
        Colonne = Rech.Column
        
        Set Rech = Feuil1.Columns(1).Find(what:=Date, LookIn:=xlValues, lookat:=xlWhole)
        
        If Not Rech Is Nothing Then
            Ligne = Rech.Row
            With Feuil1.Cells(Ligne, Colonne)
                .EntireRow.Interior.ColorIndex = 36
                .EntireColumn.Interior.ColorIndex = 36
            End With
            Application.Goto Feuil1.Cells(Ligne, Colonne), True
        Else
            MsgBox "Date du jour non trouvee en ligne.", vbCritical + vbOKOnly
        End If
    Else
        MsgBox "Date du jour non trouvee en colonne.", vbCritical + vbOKOnly
    End If
End Sub

 

[Dugenou]

Re : ouverture fichier avec date du jour

Bonjour,

sélectionner la bonne cellule : il faut le faire par macro

pour la couleur : sélectionner A2:IR365, format/mise en forme conditionnelle/la formule est
=OU($A2=AUJOURDHUI();A$2=AUJOURDHUI())

choisir la couleur, OK, OK

Cordialement