Appel Onglet ouverture EXCEL
Résolu
pygos
Messages postés
185
Date d'inscription
Statut
Membre
Dernière intervention
-
Le_Maniouk Messages postés 317 Date d'inscription Statut Membre Dernière intervention -
Le_Maniouk Messages postés 317 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Appel Onglet ouverture EXCEL
- Liste déroulante excel - Guide
- Nommez une application d'appel vidéo ou de visioconférence - Guide
- Word et excel gratuit - Guide
- Appel privé - Guide
- Raccourci rouvrir onglet fermé - Guide
2 réponses
Bonjour,
1- Pour ouvrir un fichier excel à la feuille souhaitée, il faut un petit code VBA qui se lance à l'ouverture dudit classeur.
pour cela :
- Ouvrir le classeur,
- Taper : ALT + F11 (visual basic s'ouvre)
- dans la petite fenêtre en haut à gauche (fenêtre "Projet") double clic sur "ThisWorkbook"
- Fenêtre centrale, liste "général" choisir WorkBook, liste "déclarations", choisir Open (si ce n'est pas déjà fait...)
Vous obtenez donc :
Tout code VBA placé entre ces lignes sera effectué à chaque ouverture de ce classeur.
2- Pour activer automatiquement la feuille correspondant à la feuille du jour, dès l'ouverture du classeur :
Cf le post de michel_m (serait-ce le même???) ici, sur des sources de Laurent Longre...
3- pour activer, toujours au démarrage, l'onglet souhaité par l'utilisateur, il suffit de placer une InputBox au démarrage :
Cordialement,
-- Il n'y a rien de tel qu'une question idiote, seulement une réponse idiote. A.Einstein --
1- Pour ouvrir un fichier excel à la feuille souhaitée, il faut un petit code VBA qui se lance à l'ouverture dudit classeur.
pour cela :
- Ouvrir le classeur,
- Taper : ALT + F11 (visual basic s'ouvre)
- dans la petite fenêtre en haut à gauche (fenêtre "Projet") double clic sur "ThisWorkbook"
- Fenêtre centrale, liste "général" choisir WorkBook, liste "déclarations", choisir Open (si ce n'est pas déjà fait...)
Vous obtenez donc :
Private Sub Workbook_Open() End Sub
Tout code VBA placé entre ces lignes sera effectué à chaque ouverture de ce classeur.
2- Pour activer automatiquement la feuille correspondant à la feuille du jour, dès l'ouverture du classeur :
Private Sub Workbook_Open()
D = Int(Date)
num_sem = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 - 3), 1, 1)
num_sem = ((D - num_sem - 3 + (Weekday(num_sem) + 1) Mod 7)) \ 7 + 1
Sheets("S" & num_sem).Activate
End Sub
Cf le post de michel_m (serait-ce le même???) ici, sur des sources de Laurent Longre...
3- pour activer, toujours au démarrage, l'onglet souhaité par l'utilisateur, il suffit de placer une InputBox au démarrage :
Private Sub Workbook_Open()
Dim result As String
result = InputBox("Indiquez uniquement le N° de la semaine (ex : 51)", "N° de semaine")
Sheets("S" & result).Activate
End Sub
Cordialement,
-- Il n'y a rien de tel qu'une question idiote, seulement une réponse idiote. A.Einstein --
J'ai obtenu les réponses à toutes es questions.
Cordialement,
Pygos