[Résolu] Ouvrir classeur sur la feuille dont cellule est datée

[libellule85]

Bonjour le forum,
J'aurais une nouvelle fois besoin de vos lumières :
J'aimerais que mon classeur s'ouvre sur la feuille dont la cellule A2 est renseignée (contient une date).
Seules sont concernées les feuilles 1 et 4.
Et si les deux cellules sont renseignées ouvrir la feuille qui contient la date la plus rapprochée de la date du jour.
Je pense que cela doit être possible.
D'avance je vous remercie pour votre aide.

 

[Lone-wolf]

Bonjour Libellule

Où sont les feuilles 3 et 4 et A2 est vide

 

[JCGL]

Bonjour à tous,

Comme déjà dit par Lone Wolf pas de Feuil3 ni de Feuil4 et rine en A2.
Avec Feuil1 et Feuil2 et en B2....

Ne correspond pas exactement à ta demande mais l'énoncé est perfectible.

Option Explicit
Private Sub Workbook_Open()
    If Feuil1.Range("B2") < Feuil2.Range("B2") Then
        Feuil1.Activate
    Else
        Feuil2.Activate
    End If
End Sub

A+ à tous

 

[libellule85]

Bonjour Lone-wof, JCGL,

Oooops, autant pour moi. J'ai remis le fichier modifié.
Merci JCGL pour ta solution.

 

[Lone-wolf]

Bonjour Jean Claude

Un autre exemple

 

[libellule85]

merci beaucoup Lone-wolf