Ouvrir sur complements

Résolu
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -  
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
est il possible a l'ouverture du classeur de se positionner dans l'onglet compléments?
merci
a bientot
A voir également:

7 réponses

Réponse 1 / 7
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
Salut le forum

Oui avec un code dans le module ThisWorkbook 
Private Sub Workbook_Open()
Sheets("Complements").Activate
End Sub

Mytå
0
Réponse 2 / 7
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
bonjour
Sheets("Complements").Activate
ne fonctionne pas excel bloque dessus
Sheets c'est pour une feuille non?
la c'est pour activer l'onglet excel Compléments a l'ouverture
je travaille avec excel 2010 peut être ça à de l'importance
a bientôt
0
Réponse 3 / 7
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
Re le forum

Tu parles de Fichier » Options » Compléments (File » Options » Add-Ins)

Mytå
0
Réponse 4 / 7
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
Re
je pense oui je voudrais faire que quand le classeur s'ouvre je me trouve dans la barre d'outils du ruban que j'ai faite
car quand on ouvre le classeur on se trouve sur l'onglet du haut excel "Fichier" du ruban
je sais pas si je suis clair mais je crois que c'est le ruban en haut donc me retrouver sur "Complements" au lieu de "Fichier "
Surplus
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
Raymond PENTIER Messages postés 58988 Date d'inscription   Statut Contributeur Dernière intervention   17 353
 
Bonjour surplus.

Impossible d'enlever l'onglet "fichier" de sa première place : c'est l'équivalent du bouton Office dans la version 2007.
Par contre tu peux mettre l'onglet "Compléments" en position 2, avant "Accueil" :
- clic sur la flèche "Personnaliser la barre d'outils Accès rapide"
- clic sur l'option "Autres commandes" puis sur "Personnaliser le Ruban"
- dans le volet de droite, sélectionner "Compléments" et utiliser la flèche "Monter".
0
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
bonjour Raymond PENTIER
je veux pas déplacer les onglets juste me trouver positionné sur Compléments
si je trouve pas mieux j'appliquerai peut être ta solution
a bientôt
0
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
Re le forum

Le code Application.Sendkeys ("%X") permet d'activer l'onglet "Compléments" (Add-Ins)

Mytå
0
Réponse 6 / 7
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
bonsoir Mytä
le code ne fonctionne pas j'ai fait ça et rien ne bouge a aucun niveau

Private Sub Workbook_Open()
Application.Sendkeys ("%X")
End Sub
si c'est cela que je devais faire
alors que j'ai fait un bouton pour la calculatrice
Sub Calc()
Application.ActivateMicrosoftApp Index:=0
End Sub
qui lui fonctionne bien d'ailleurs si je change l'index a 1,2,3 j'ai differentes applications qui s'ouvrent
si ça peut faire avancer
à bientôt
0
Réponse 7 / 7
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonjour,

X était un exemple...
Appuie sur Alt et regarde quelle est la lettre apparue sur Complément.
Remplace X par cette lettre dans Application.Sendkeys ("%X").

Mais c'est sans doute mieux de passer par ActivateTab. Voir ici.

eric


Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.
0
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
bonjour
je regarde et vous tiens au courant
merci
0
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
bonjour
si je fais marcher la macro faite cela fonctionne quand je la mets dans Workbook_Open
ca marche pas je sais pas si c'est correct comme je l'ai rentré je vous mets le code
Private Sub Workbook_Open()
Dim onglet
Dim couleur As Integer

couleur = 1 ' Noir
For Each onglet In ActiveWorkbook.Sheets
Sheets(onglet.Name).Tab.ColorIndex = couleur
couleur = couleur + 1
Next onglet
Creer_BO
activ_comp
End Sub
j'ai une macro pour colorier les onglet auto puis Creer_BO qui affiche ma barre perso et après activ_comp qui est ma macro pour me positionner dans compléments qui elle ne fonctionne pas
merci
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
As-tu remarqué qu'il manque juste la partie qui pourrait être intéressante ?
eric
0
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
je crois que tu veux parler de ce-ci
https://www.cjoint.com/?BKeqZOaDpes
la macro se trouve dans le module "Reinit_class" qui elle fonctionne la commande est "%M"
a bientot
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Je parlais juste de la partie activ_comp, que l'on voit au moins cette partie de code...

Sinon désolé mais je préfère ne pas tester sur mon micro des macros qui modifient l'environnement.
Trop d'emm... pour tout rétablir en cas de pb.

Si dans activ_comp tu mets Application.SendKeys ("%N") tu verras à l'ouverture le ruban Affichage actif
Le pb ne doit pas être dans l'activation mais dans la construction de ta barre.

eric

PS: essaie de privilégier l'autre méthode, sendkeys ayant la désagréable manie de désactiver le pavé numérique
0