Ouverture classeur + affichage feuille avec le nom le plus grand VBA

[Gregh74]

Bonjour à tous,

Le problème est le suivant:
Mon classeur dispose de plusieurs feuilles dont certaines avec ce format de nom: "IW**" (**=numéro de semaine, exemple IW31).

Question:
Je souhaiterais qu'à l'ouverture de mon classeur, la feuille "IW**" contenant le plus grand nombre soit la feuille qui s'affiche.

Pistes de réflexion:
Je sais déjà comment faire apparaitre une feuille précise à l'ouverture :
Private Sub Workbook_Open()
Sheets("IW12").Select
End Sub

Mais pas de manière "variable". J'ai alors pensé à quelque chose utilisant le principe du "For Each ws In Worksheets", mais je ne vois pas comment continuer!

En espérant avoir été clair!

Merci d'avance pour vos réponses,
Greg

 

[ninbihan]

Re : Ouverture classeur + affichage feuille avec le nom le plus grand VBA

Bonjour Gregh,

A tester :

Private Sub Workbook_Open()
Dim a, b As Integer
a = ActiveSheet.Index
b = 0
For Each ws In Worksheets
    If ws.Name Like "IW##" Then
        If CInt(Right(ws.Name, 2)) > b Then
            b = CInt(Right(ws.Name, 2))
            a = ws.Index
        End If
    End If
Next ws
Sheets(a).Select
End Sub

Bonne journée,

Ninbihan

 

[Gregh74]

Re : Ouverture classeur + affichage feuille avec le nom le plus grand VBA

Salut Ninbihan,

J'ai testé et ça marche nickel!! Je te remercie pour ton temps et ta réponse.

Bonne journée,

Greg

 

[ninbihan]

Re : Ouverture classeur + affichage feuille avec le nom le plus grand VBA

Oups, j'ai reposté par erreur

Bonne journée à tous,

Ninbihan