Discussion :

[Le Sage]

Bonjour à toutes et tous !

J'ai créé un onglet personnalisé spécifique à un classeur à l'aide de CustomUiEditor.

Comme indiqué dans le titre, je voudrais que cet onglet s'affiche automatiquement à l'ouverture du classeur, tout en le conservant à la fin du ruban et sans masquer les onglets de base...
Un truc qui devrait être tout simple, mais que des heures de recherches n'ont pas réussi à résoudre !

En vous remerciant par avance de vos réponses, bien cordialement,
Eric.

[BlueMonkey]

Bonsoir,

Pour afficher la dernière feuille d'un classeur dès l'ouverture du fichier Excel, il suffit d'ajouter ces quelques lignes dans le code VBA associé
à la feuille "ThisWorkbook" (<ALT> + <F11> pour afficher l'éditeur VBA)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
    Worksheets(Worksheets.Count).Activate
End Sub

[Le Sage]

Bonjour BlueMonkey, et merci pour cette réponse.

Malheureusement elle est hors sujet

En le relisant mon premier message, on y trouve :

J'ai créé un onglet personnalisé spécifique à un classeur à l'aide de CustomUiEditor.

Comme indiqué dans le titre, je voudrais que cet onglet s'affiche automatiquement à l'ouverture du classeur, tout en le conservant à la fin du ruban et sans masquer les onglets de base...

Il s'agit donc bien de gérer les onglets du ruban et non les feuilles (qui, notons-le en passant, possèdent des onglets, mais ne sont pas des onglets).

Je te remercie en tout cas sincèrement d'avoir pris le temps de me répondre !

Ceci étant, la question reste en suspend, et toute nouvelle réponse ou simple piste de recherche sera la bienvenue !

Dans l'attente et vous remerciant toutes et tous par avance, cordialement,
Eric.

[fring]

Bonjour,

Lorsque tu as ce classeur ouvert, click sur "Alt" et vois les caractères qui s'affichent sous cet onglet, par exemple M2 pour l'onglet Développeur.

Ensuite dans le module ThisWorkbook de ce classeur, tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Et dans un module standard :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Onglet_Perso()
    Application.SendKeys "%M2%" '<-- remplacer M2 par les caractères adéquats
    Application.SendKeys "{Esc}{Esc}"
End Sub

[Le Sage]

Bonjour fring, et merci pour cette réponse !

Pas très catholique, mais ça doit passer ! Je pense que je n'y aurais jamais pensé !

Je teste dès que possible et je reviens pour clôturer le sujet.

Ceci étant, je pense qu'on peut d'ores et déjà admettre qu'on ne peut pas tester l'état de l'onglet, et que l'astuce en question risque de provoquer l'effet inverse si pour une raison ou une autre l'onglet en question est à l'état inverse que celui attendu.
Mais c'est quand même une piste de rattrapage intéressante.

A bientôt pour les résultats de mes essais !

Cordialement, Eric

[fring]

l'astuce en question risque de provoquer l'effet inverse si pour une raison ou une autre l'onglet en question est à l'état inverse que celui attendu.

Non puisque on lance cette procédure à l'ouverture du classeur (c'était le but de ta question) et qu'à l'ouverture c'est l'onglet "Accueil" qui est actif.

Je te l'accorde, c'est une solution un peu brutale mais il faut passer à la version 2010 pour redevenir plus catholique...

[Le Sage]

Salut fring!

Désolé pour ma réponse à côté de la plaque !

Ta solution est tout à fait bonne, c'est moi qui ai confondu deux sujets assez semblables que j'ai postés

Dans l'autre je cherche à résoudre l'affichage d'un onglet ajouté via .xlam à l'ouverture d'un classeur "Toto" pour que les outils soient dispos dans tout nouveau classeur dès lors que "Toto" est ouvert, et le masquage de cet onglet lors de la fermeture de "Toto"... Tout un poême... toujours pas résolu !

D'ailleurs, si tu as un idée

En tout cas merci encore pour cette solution Rock n' Roll mais néanmoins efficace ! (même sous 2010 je n'ai pas trouvé mieux)...

Je marque le sujet résolu !

[Airthé]

Ou alors depuis CustomUiEditor il faut placer ton ruban en première position
<tab insertBeforeMso="TabHome"

Bon ok j'arrive après la bataille