Excel : invite à l'ouverture

Résolu
PdU Messages postés 2 Statut Membre -  
PdU Messages postés 2 Statut Membre -
Bonjour,

Mon fichier excel (2007) se compose de 7 feuilles (nommées lundi, mardi,mercredi...). Je souhaite mettre en place une invite à l'ouverture qui emmène l'utilisateur directement à la feuille désirée : "Quel jour souhaitez-vous étudier" ?

Merci d'avance pour votre aide
A voir également:

1 réponse

Réponse 1 / 1
Bidouilleu_R Messages postés 1209 Statut Membre 295
 
Bonjour dans visual basic editor ( Alt F11) aller dans Thisworbook
copier / coller ce code 

Private Sub Workbook_Open()
Dim Sht As Variant
Dim S as String
S = InputBox("Quel jour souhaitez-vous étudier ?", "Sélection du jour", "LUNDI")
S = UCase(S)
For Each Sht In Worksheets
    If UCase(Sht.Name) = S Then
        Sht.Select
        Exit For
    End If
Next

End Sub
1
PdU Messages postés 2 Statut Membre
 
ça marche !!
Merci beaucoup de ta réponse et surtout de la rapidité !
0