Activer un onglet

Résolu/Fermé
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 22 sept. 2015 à 09:49
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 22 sept. 2015 à 15:09
Bonjour,

J'ai créé un nouvel onglet car plusieurs boutons qui exécutent des macros y sont présents.

Je souhaiterais qu'au lancement du fichier excel, cet onglet soit celui qui soit activé.

Pensez-vous que cela est possible?

Merci d'avance.

Cordialement.
A voir également:

1 réponse

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
22 sept. 2015 à 10:02
Bonjour,

Code VBA a mettre dans ThisWorkbook, adaptez le nom de la feuille

Private Sub Workbook_Open()
    Worksheets("feuil3").Activate
End Sub
0
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
22 sept. 2015 à 10:30
Bonjour,

Je me suis affreusement mal exprimé. Je parlais d'un onglet du ruban en haut du fichier. Activer par exemple l'onglet "Formules" sauf que là il s'agira de l'onglet "POINTAGE" qui regroupe tous les boutons utiles.

Merci.
0
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
22 sept. 2015 à 14:16
Vous pensez que c'est possible?
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019
22 sept. 2015 à 14:30
Re

j'ai trouve ceci, que normalement active l'onglet developpeur du ruban. Donc cherchez les caracteres qui vous amenerait a votre onglet personnalise.

Private Sub Workbook_Open()
    Application.OnTime Now + TimeValue("00:00:01"), "Onglet_Perso"
End Sub

'dans un module
Sub Onglet_Perso()
    Application.SendKeys "%M2%" '<-- remplacer M2 par les caractères adéquats
    Application.SendKeys "{Esc}{Esc}"
End Sub
0
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
22 sept. 2015 à 14:35
OK, j'a bien collé le premier code sur Workbook et le second dans un module. Lorsque j'ouvre le fichier, l'onglet "Développeur" n'est pas activé.
0
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 61
22 sept. 2015 à 14:37
De plus, on est d'accord, je n'ai juste aucune chance de trouver la chaine de caractères pour mon onglet perso.
0