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

Phil69970 à dit:

Bonjour @ALINE54

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


@Phil69970

Cliquez pour agrandir...

sylvanu à dit:

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.

Cliquez pour agrandir...

sylvanu à dit:

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

Cliquez pour agrandir...

sylvanu à dit:

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

Cliquez pour agrandir...

sylvanu à dit:

Re, bonjour Yeahou,
Un essai en PJ avec :

VB:

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

Cliquez pour agrandir...