Forums XLPages

Excel & VBA Forum principal Excel 2010 - Onglet 'Compléments' devenu invisible

Excel 2010 - Onglet 'Compléments' devenu invisible
#1
yaka
Débutant XLPages

Inscription: 11/03/2010

Messages: 18

Système d'exploitation:
PC
Version Excel utilisée:
2003-2007-2010
Posté le : 21-04-2011 17h59
Bonjour à tous

J'ai un fichier .xla installé chez un ami (Excel version 2010). Il crée un bouton (dans l'onglet 'Compléments') qui permet de lancer un programme qu'il contient.

J'ai testé il y a 2 mois sur le poste ce fichier sans encombre.

Aujourd'hui mon ami m'appelle pour me dire que l'onglet 'Compléments' n'est plus visible !!!????!!!

Je lui ai demandé si il avait fait une manip particulière = rien de particulier...  hum... quand un truc disparaît comme par enchantement sur Excel (& co) c'est que l'Homme a fait quelque chose... m'enfin... 

Je lui ai fait faire ("par téléphone") un clic droit sur le ruban
> 'Personnaliser le ruban' pour vérifier dans les onglets principaux que l'onglet 'Compléments' soit bien coché = OK

> Centre de gestion de la confidentialité > Paramètres du Centre... > Compléments pour vérifier que la case à cocher 'Désactiver tous les compléments d'application...' ne soit pas cochée = OK

Il a alors désinstallé le .xla > fermé Excel > Ouvert Excel > Réinstallé le .xla  = toujours pas d'onglet 'Compléments'

J'envisage une session de désenvoutement du PC... mais avant cela si vous avez une autre suggestion je suis preneur... (d'ailleurs peut être enregistrer le .xla en .xlam...)

Par avance merci
Y+
Hors Ligne
 Rapport   Haut 

Re: Excel 2010 - Onglet 'Compléments' devenu invisible
#2
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 21-04-2011 23h45
Bonsoir yaka, le Forum,

J'avais eu ce type de remarque d'utilisateurs avec la xla mDF XLdoublonsnotamment et, ne pouvant obtenir le même résultat sur ma config (tout fonctionnait bien chez moi), j'avais fait une vague tentative pour essayer de contourner ce problème à l'occasion de la version 5 de cet utilitaire.
Ce cas est effectivement un grand mystère, jamais éclairci pour ma part. Il semble apparaître avec certaines configurations, mais impossible pour moi de vraiment cerner la raison du dysfonctionnement. Impossible d'ailleurs pour moi de reproduire la situation pour pouvoir analyser le cas.

Par ailleurs, et pour plus de sureté, j'avais ajouté à cette version 5, en supplément, l'accès à cette application depuis le menu contextuel de cellule pour les versions XL 2007.

Je n'ai jamais su si la méthode utilisée fut - ou non - d'une quelconque efficacité sur les configs causant problème à l'origine... Mais je crois que l'accès via le menu contextuel de cellule était en tout cas un bon moyen pour dépanner les utilisateurs puisque je n'ai pas eu de remonté similaire depuis.

Peut-être pourrais-tu poster ici le code VBA utilisé pour créer le bouton de barre d'outil de cette xla afin qu'on puisse voir de plus près la situation...

Cordialement,
Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 

Re: Excel 2010 - Onglet 'Compléments' devenu invisible
#3
yaka
Débutant XLPages

Inscription: 11/03/2010

Messages: 18

Système d'exploitation:
PC
Version Excel utilisée:
2003-2007-2010
Posté le : 22-04-2011 17h32
Hello et merci.

En désespoire de cause je passerai par le menu contextuel...

voici mon code :

dans Thisworkbook :

Private Sub Workbook_AddinInstall()
    creerBoutonMenu
End Sub


Private Sub Workbook_Open()
    creerBoutonMenu
End Sub




Dans un module :

Sub creerBoutonMenu()

    Dim nomBTmenu As String: nomBTmenu = VBA.Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1)
   
   
    On Error Resume Next
    Dim test As String
    test = Application.CommandBars(1).Controls(nomBTmenu).Caption
    If Err.Number > 0 Then 'si le bouton n'existe pas
        Dim BTmenu As CommandBarButton
        Set BTmenu = Application.CommandBars(1).Controls.Add(Type:=1, Temporary:=True)
        With BTmenu
            .BeginGroup = True
                    .Caption = nomBTmenu
            .FaceId = 1106
            .OnAction = "AfficherRH"
            .TooltipText = "Reporting des Heures"
            .Style = msoButtonIconAndCaption
        End With
   
    End If

End Sub




Edité par yaka le 22/04/2011 20:46:01
Hors Ligne
 Rapport   Haut 

Re: Excel 2010 - Onglet 'Compléments' devenu invisible
#4
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 22-04-2011 17h55
Bonjour yaka,

A tout hasard et sans grande conviction, fais faire un test à ton utilisateur avec ce code modifié :
Sub creerBoutonMenu()
Dim BTmenu As CommandBarButton
Dim nomBTmenu As String, NomBar As String, test As String

    NomBar = IIf(Val(Application.Version) > 11, "Worksheet Menu bar", "Standard")
    nomBTmenu = VBA.Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1)
   
    On Error Resume Next
    test = Application.CommandBars(NomBar).Controls(nomBTmenu).Caption
    If Err.Number > 0 Then 'si le bouton n'existe pas
        Set BTmenu = Application.CommandBars(NomBar).Controls.Add(Type:=1, Temporary:=True)
        With BTmenu
            .BeginGroup = True
            .Caption = nomBTmenu
            .FaceId = 1106
            .OnAction = "AfficherRH"
            .TooltipText = "Reporting des Heures"
            .Style = msoButtonIconAndCaption
        End With
    End If
End Sub

Par ailleurs, je te remercie d'utiliser l'outil de l'éditeur de post réservé pour l'insertion du code VBA (ou une formule de calcul) : voir ICI.

Cordialement,
Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   2 Utilisateur(s) anonymes