Ouvrir sur complements

Résolu
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -  
eriiic Messages postés 24581 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

7 réponses

  1.
    Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   957
     
    Salut le forum

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

    Mytå
    0
  2. 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
  3. Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   957
     
    Re le forum

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

    Mytå
    0
  4. 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

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

    Posez votre question
  6. Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482
     
    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 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
    2. Mytå Messages postés 4246 Date d'inscription   Statut Contributeur Dernière intervention   957
       
      Re le forum

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

      Mytå
      0
  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
  8. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    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 Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
       
      bonjour
      je regarde et vous tiens au courant
      merci
      0
    2. 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
    3. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      As-tu remarqué qu'il manque juste la partie qui pourrait être intéressante ?
      eric
      0
    4. 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
    5. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      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