Onglets et Menu

[Stéphane]

Bonjour à tous,
J'aimerais savoir comment faire disparaitre les onglets en bas et les retrouver dans un menu volant se chargeant automatiquement à l'ouverture du fichier. Dans ce meme menu j'aimerai avoir la possibilité d'ouvrir un userform afin de choisir les différentes feuilles du classeur afin d'en archiver certaines dans un nouveau fichier,via un enregistrer sous, mais nommé par défaut par une date figurant dans une cellule au format date, par exemple cellule A1 : NOM et
B2 : janvier 2006 (au format date), ce qui donnerai NOM_janvier2006.xls
Merci de votre aide,
Nota: je débute et je suis sous excel97 et au boulot excel2003 et souhaiterai que cela marche sous les 2 versions.
Encore merci d'avance.
Stef

 

[Jacques87]

Bonsoir Stéphane,

Je ne vois pas très bien où tu veux en venir, car tu peux très bien cacher tes onglets et faire apparaître la liste des onglets(cachés) sous forme d'une liste en cliquant droit à l'extrémité gauche de ces onglets

Mais surtout je te précise que faire tourner un produit 'élaboré' à la fois sous Excel 97 et Excel 2003 peut dans certains cas être très périlleux

Bonne soirée

 

[Stéphane]

Bonsoir,
Je suis daccord, mais je voulais que cela se présente dans un petit menu contextuel volant pour les novices excel car mon fichier est appelé à être utiliser par d'autres utilisateurS;
Et j'aimerais que ce menu comporte les différentes feuilles du classeur, et également une possibilité d'afficher une liste de ces feuilles afin de sélectionner celles que l'on veut sauvegarder en ouvrant un enregistrer sous reprenant le nom de deux cellules dont une au format date.
Par ex :
A1 : NOM
A2 : janvier2006 (au format date) ce qui donnerait NOM_janvier2006.xls.
Merci pour ceux ou celles qui pourront m'aider.
Stef.

 

[Stéphane]

Bonsoir à tous,
Bon ben pas trop de solution !?
Tant pis, merci quand même :huh:
Stef

 

[Dan]

Bonsoir,

Bon ton projet est tout à fait faisable. J'ai d'ailleurs un fichier qui te permet de retrouver les onglets de ta feuille dans une liste par un clique droite.
La démo me semble être de _Thierry. Laisse moi donc le temps de le retrouver. A moins qu'il ne passe ici ....



Message édité par: Dan, à: 08/03/2006 21:42

 

[Stéphane]

Merci d'avance...

 

[Dan]

Re,

C'est pas ce à quoi je pensais mais regarde par ici --> une solution trouvée sur le site de nos amis VERITI --> Ce lien n'existe plus

Cela devrait te convenir.

 

[pat1545.]

Salut,

je ne sais pas si je comprends bien ce que tu demande, mais j'ai un code XLA *macro complémentaire*) de Fred SIGONNEAU (mvp excel) qui permet de se passer des noms d'onglets en bas et de sélectionner les onglets dans un mini menu du meme genre que celui des polices , est ce cela ?

Patrick

 

[Stéphane]

Dan je te remercie et je regarde de suite.
Pat1545, ce que tu me dis pourrais m'interresser effectivement puis je voir comment cela se présente ?
Merci encore.

 

[Dan]

Bonjour Stéphane,

Voici la macro que j'ai pu récupérer il y pas mal de temps sur ce forum.
Elle te donnera une boite qui te permettra d'accéder à la feuille de ton choix.

Place la en VBA (ALT+F11 --> CTRL+R) dans 'Thisworkbook' puis enregistre ton fichier avant de le fermer.
A l'ouverture de ton fichier tu verras cette boite avec les feuilles de ton classeur.

Private Sub Workbook_Open()
Application.CommandBars('Workbook tabs').ShowPopup 500, 200
End Sub

N'oublies de vérifier ton niveau de sécurité des macros dans menu / outils / macros / sécurité --> à mettre sur niveau moyen minimum.

Si pb n'hésite pas

 

[pat1545.]

re Stephane,

voilà, à installer dans le répertoire macrolib


Patrick [file name=FeuillesClasseurs_20060309142645.zip size=17857]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/FeuillesClasseurs_20060309142645.zip[/file]

 

[Stéphane]

Merci dan, mais sais tu comment laisser afficher ce petit menu ?
Merci pat, mais chez moi avec excel 97 ca marche pas ....
Merci kan meme les gars , sympa...

 

[Dan]

Re,

Dans VBA THISWORBOOK en dessous de celle que je t'ai proposée tu replacer le code ci-dessous:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.CommandBars('Workbook tabs').ShowPopup  '500, 200
End Sub

Bon travail

 

[Stéphane]

Merci à tous,

sinon j 'ai une autre question, lors d'un déplacer/copier d'une feuille dans un nouveau classeur , peut on éviter d'y copier les boutons et les macros qu'il y a sur l'original ???
car j'ai trouvé une macro qui me permet de sélectionner les feuilles à archiver dans un nouveau classeur, mais il faudrait que j archive ces dites feuilles sans leurs macros !?
merci encore
vraiment sympa ce forum et une vrai mine d'or
bonne soirée à tous

 

[Dan]

Re,

Suis ce lien --> Lien supprimé

A bientôt