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.  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
  2. 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. 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
    2. 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. Mytå Contributeur
        Re le forum

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

        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
            Salut le forum

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

            Mytå
            0