Sélectionner des feuilles en fonctions de dates variables.

[Nonno 94]

Bonsoir le Forum,

nouveau "casse-tête" pour le ....nouveau que je suis,

Je n'arrive pas à créer une macro pour qu' à l'ouverture du classeur, une feuille soit sélectionnée en fonction de LA date qu'elle contient.

Exemple : dans cette feuille, en D1 figure la date du 1 er mars 2011.
Je voudrais que lorsque le classeur sera ouvert à partir du 1 er mars, cette feuille soit sélectionnée et que s'y exécute une macro.
Si une autre feuille contient la date du 4 mars, la macro devra s'y exécuter à partir de cette date.

Est-ce possible et de quelle façon ?

Remerciements pour vos conseils.
Cordialement.

Nonno 94.

 

[Banzai64]

Re : Sélectionner des feuilles en fonctions de dates variables.

Bonjour

Pas très claire ton explication
Dans un fichier, plusieurs feuilles, dans chaque feuille il faut vérifier la date et si c'est la date du jour, l'afficher et exécuter une macro.
C'est ça ?

Bonjour l'usine

Si pas ça joins un fichier

Bonne journée

 

[job75]

Re : Sélectionner des feuilles en fonctions de dates variables.

Bonsoir Nonno 94, Banzai64,

En effet il vaudrait mieux voir le fichier.

En son absence, peut-être cette macro dans ThisWorkbook :

Private Sub Workbook_Open()
Dim F As Object, w As Worksheet
Application.ScreenUpdating = False
Set F = ActiveSheet 'facultatif
For Each w In Worksheets
  If IsDate(w.[D1]) And Date >= w.[D1] Then
    w.Activate
    MaMacro 'nom de la macro
  End If
Next
F.Activate 'facultatif
Application.ScreenUpdating = True
End Sub

Sur chaque feuille la date est supposée être en D1...

A+

 

[Nonno 94]

Re : Sélectionner des feuilles en fonctions de dates variables.

Bonsoir,

remerciements pour la réponse.

"si c'est la date du jour", exécuter une macro dans la feuille (j'ai supposé que pour cela, il faut la sélectionner).
Si cette précision est insuffisante, je t'enverrai un fichier.

 

[job75]

Re : Sélectionner des feuilles en fonctions de dates variables.

Re,

Possible UP to #3...

A+

 

[job75]

Re : Sélectionner des feuilles en fonctions de dates variables.

Bonjour le fil, le forum,

Si l'on veut que MaMacro ne soit exécutée qu'une fois sur chaque feuille, il faut créer un repère, par exemple en E1 (la colonne E peut être masquée).

Et puis généralement il est inutile d'activer les feuilles :

Private Sub Workbook_Open()
Dim w As Worksheet
For Each w In Worksheets
  If IsDate(w.[D1]) And Date >= w.[D1] _
    And w.[E1] <> w.[D1] Then MaMacro w
Next
End Sub

Sub MaMacro(w As Worksheet) 'exemple de macro
With w
  .[E1] = .[D1] 'repère
  MsgBox .Name & " faite"
End With
End Sub

A+