Selection onglet complément

[Lu K]

Bonjour à tous,

Petite question toute simple je suppose, mais pour moi sans réponse !

Il y'a t'il un code pour selectionner directement l'onglet complément lors de l'ouverture d'un fichier ?

Merci d'avance.

 

[Pierrot93]

Re : Selection onglet complément

Bonsoir,

essaye ceci, à placer dans le module "thisworkbook", se déclenche à l'ouverture du classeur :

Option Explicit
Private Sub Workbook_Open()
Sheets("nomfeuille").Activate
End Sub

bonne soirée
@+

 

[Lu K]

Re : Selection onglet complément

Bonjour Pierrot93,

Tout d'abord merci de me répondre.

Désolé de mettre mal exprimer ! Je ne parle pas de l'onglet d'une feuille ! Mais de l'onglet situé dans la barre de menu (ex :Acceuil, Insertion, Mise en page ....).

J'ai créer des menus sous excel 2007 (onglet "complément"), et je souhaite tout simplement afficher dirctement mon menu à l'ouverture du classeur.

Cordialement
Lu K

 

[Pierrot93]

Re : Selection onglet complément

Re,

Aarf, perso pas 2007... suis sous 2003.... pourrais pas t'aider plus...

 

[Lu K]

Re : Selection onglet complément

Re,

Pas grave, Merci comme même Pierrot93

 

[MJ13]

Re : Selection onglet complément

Bonjour Luk, Re Pierrot

Reagarde, mon appli Comptes MJ 2010, normalement elle je fait:

https://www.excel-downloads.com/threads/comptes-mj-2010-version-1.153377/

 

[Lu K]

Re : Selection onglet complément

Bonjour MJ 13,

Merci pour t'as réponse, ton appli à l'air sympa !

J'ai repris ton code :

SendKeys ("%m"), True
SendKeys ("2{Esc}{esc}"), True

mais celui-ci me selectionne l'onglet mise en page !

Peut-tu m'expliquer pourquoi sans vouloir abuser de ton temps.

Merci d'avance.

 

[MJ13]

Re : Selection onglet complément

Re

Sinon, j'ai cela à tester:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
           'Tempo de x millisecondes
 
Sub aller_COMPLEMENT_XL2007()
'Stop
temps = 200
Sleep temps
SendKeys ("%"), True
Sleep temps
Application.SendKeys ("m"), True
Sleep temps
Application.SendKeys ("2"), True
Sleep temps
Application.SendKeys ("{esc}"), True
Sleep temps
Application.SendKeys ("{esc}"), True
End Sub
 
Sub aller_COMPLEMENT_XL2010()
'Stop
Sleep 100
SendKeys ("%"), True
Sleep 100
SendKeys ("y"), True
Sleep 100
SendKeys ("223{Esc}{esc}"), True
End Sub

 

[Lu K]

Re : Selection onglet complément

Bonjour MJ13,

Merci pour t'as réponse, cela à l'air de fonctionner sous excel 2007.

Cordialement