Microsoft 365 Ouverture d'un classeur a la date du jour

[ALINE54]

Bonjour,
J'utilise un fichier "planning" pour effectuer des tournées. Je voudrais savoir comment faire pour que lors de l'ouverture de mon classeur EXCEL, la feuille s'ouvre directement sur la date du jour.
Sachant que ce fichier s'ouvre généralement sur le Drive,

Qui pour m'aider?!
Merci d'avance et excellente année à tous!

 

[sylvanu]

Bonjour Aline, et bienvenue sur XLD,
Un petit fichier test serait le bienvenu.
Une possibilité en VBA avec une macro Sub Workbook_Open() qui se lance à l'ouverture, mais il faudrait un exemple pour savoir comment sont agencées vos feuilles et comment on les repère par rapport à la date du jour.

 

[Phil69970]

Bonjour @ALINE54

Merci de mettre le fichier en accord avec le RGPD
Relire la charte et le passage sur le RGPD....


@Phil69970

 

[ALINE54]

Bonjour @ALINE54

Merci de mettre le fichier en accord avec le RGPD
Relire la charte et le passage sur le RGPD....


@Phil69970

Pardon, effectivement,
Il s'agit de mon premier fichier transmis, je ne savais pas

 

[ALINE54]

Bonjour Aline, et bienvenue sur XLD,
Un petit fichier test serait le bienvenu.
Une possibilité en VBA avec une macro Sub Workbook_Open() qui se lance à l'ouverture, mais il faudrait un exemple pour savoir comment sont agencées vos feuilles et comment on les repère par rapport à la date du jour.

Voilà le fichier sur lequel on travaille actuellement
[fichier supprimé, contrevenant au RGPD]

 

[sylvanu]

Sur quelle feuille voulez vous vous positionner ? Vous avez trois feuilles d'enseignes.

 

[ALINE54]

Sur quelle feuille voulez vous vous positionner ? Vous avez trois feuilles d'enseignes.

On ne peut faire que sur une ? L'idéal aurait été sur les 3

 

[sylvanu]

On peut pré positionner les trois feuilles, ... mais on ne peut qu'en afficher une seule.

 

[ALINE54]

On peut pré positionner les trois feuilles, ... mais on ne peut qu'en afficher une seule.

Je ne sais pas ce qui est le mieux, j'attends votre avis

 

[Bernard_XLD]

Bonjour ALINE54, sylvanu, phil69970, le forum

@ALINE54 , vous devez impérativement anonymiser vos données avant de poster un fichier. Il est interdit, de par la loi, de diffuser toute donnée sensible ou personnelle permettant d'identifier une personne physique ou morale.
Votre fichier du post 5 a été supprimé car il contient encore beaucoup d'informations personnelles notamment noms et numéros de téléphone.
Merci de consulter la Charte XLD.

Bien cordialement, @+

 

[sylvanu]

Re, bonjour Yeahou,
Un essai en PJ avec :

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    Numjour = Application.Weekday(Now)
    For Each F In Worksheets
        With Sheets(F.Name)
            .Select
            For C = 1 To 50
                If .Cells(5, C) <> "" And Application.Weekday(.Cells(5, C)) = Numjour Then
                    Exit For
                End If
            Next C
            ActiveWindow.ScrollColumn = 1: .[A2].Select
            If C < 50 Then ActiveWindow.SmallScroll ToRight:=C - 1
        End With
    Next F
    Feuil1.Select
End Sub

 

[ALINE54]

Re, bonjour Yeahou,
Un essai en PJ avec :

Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    Numjour = Application.Weekday(Now)
    For Each F In Worksheets
        With Sheets(F.Name)
            .Select
            For C = 1 To 50
                If .Cells(5, C) <> "" And Application.Weekday(.Cells(5, C)) = Numjour Then
                    Exit For
                End If
            Next C
            ActiveWindow.ScrollColumn = 1: .[A2].Select
            If C < 50 Then ActiveWindow.SmallScroll ToRight:=C - 1
        End With
    Next F
    Feuil1.Select
End Sub

Merci beaucoup!