Excel : invite à l'ouverture

Résolu
PdU Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
PdU Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -
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 1181 Date d'inscription   Statut Membre Dernière intervention   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 Date d'inscription   Statut Membre Dernière intervention  
 
ça marche !!
Merci beaucoup de ta réponse et surtout de la rapidité !
0