Ouvrir sur complements

Résolu
surplus -  
Bonjour,
est il possible a l'ouverture du classeur de se positionner dans l'onglet compléments?
merci
a bientot

7 réponses

  1.  Mytå Contributeur
    Salut le forum

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

    Mytå
    0
    1. surplus Auteur
      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
      1. Mytå Contributeur
        Re le forum

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

        Mytå
        0
        1. surplus Auteur
          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
          2. Raymond PENTIER Contributeur
            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
            1. surplus Auteur
              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
            2. Mytå Contributeur
              Re le forum

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

              Mytå
              0
          3. surplus Auteur
            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
            1. eriiic Contributeur
              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
              1. surplus Auteur
                bonjour
                je regarde et vous tiens au courant
                merci
                0
              2. surplus Auteur
                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
              3. eriiic Contributeur
                As-tu remarqué qu'il manque juste la partie qui pourrait être intéressante ?
                eric
                0
              4. surplus Auteur
                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
              5. eriiic Contributeur
                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