utilisation nom de variable pour le nom d'une commandbars

Version imprimable

Bonjour le forum :D

J'essaye d'utiliser le nom d'une variable (nom du classeur actif sans extention) pour l'attribuer au nom de la CommandBars, avec la procédure ci-dessous cà bug ???

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub CreationCB()
 
    Dim NameCeClasseur As String
    NameCeClasseur = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4)
    'MsgBox NameCeClasseur
 
    Dim CB As CommandBar    ' Concerne la barre d'outils
    Dim msoCCB As CommandBarComboBox   ' Concerne le controle ComboBox msoControlComboBox)
    Application.ScreenUpdating = False
    Set CB = Application.CommandBars.Add(NameCeClasseur, Position:=msoBarFloating, temporary:=True)
 
    With CB
        ' Attribuer la référence (msoCCB) à la ComboBox à créer
        Set msoCCB = CB.Controls.Add(msoControlComboBox, , , , True)
        With msoCCB
            .Width = 160
            .TooltipText = "C'est une ComboBox"
            .OnAction = "SelectComboBox"
            .Tag = "cbo1"
            .AddItem "Menu"
            .AddItem "Masquer les lignes"
            .AddItem "Afficher les lignes"
            .AddItem "Nouvelle ligne"
        End With
        .Visible = True
         With CB
            .Left = 1395
            .Top = 106
        End With
    End With
    Dim strTxt As String
    Set msoCCB = CommandBars(NameCeClasseur).FindControl(, , "cbo1")
    strTxt = msoCCB.Text
    msoCCB.Text = "Menu"
 
End Sub

Pourriez-vous m'expliquer svp si j'ai fait une erreur de syntaxe, merci d'avance

Cordialement Modus57

11/09/2008, 16h56
fring

Bonjour,

Elle fonctionne très bien ta procédure, pas de bug chez moi.

Tu as une erreur sur quelle ligne et quel est le message d'erreur ?
11/09/2008, 17h15
modus57

Bonjour fring

Erreur sur la ligne suivante

Code:

Set CB = Application.CommandBars.Add(NameCeClasseur, Position:=msoBarFloating, temporary:=True)

Message : Erreur d'exécution '5':
Argument ou appel de procédure incorrect

@ +
11/09/2008, 17h22
Invité

Bonjour

As-tu bien la référence Microsoft Office XX.0 Object Library de cocher dans le menu Outils/Référence (avec XX la version d'Excel).

Elle est par défaut sous Excel contrairement à Access, mais peut-être a t-elle été décochée.

Starec
11/09/2008, 17h36
modus57

Bonjour Starec

La référence Microsoft Office 9.0 Object Library est cocher dans le menu Outils/Référence (avec la version d'Excel 2000).

J'ai compléter mon message précédent

Citation:

Message : Erreur d'exécution '5':
Argument ou appel de procédure incorrect

@ +
11/09/2008, 17h54
fring

A tout hazard...regarde dans ton menu

Outils --> Personnaliser --> onglet Barres d'outils

Si tu n'as pas déjà une barre de menu qui porte le nom de ton classeur, au cas où lors d'un test une barre aurait été crée mais non effacée.

Si c'est le cas tu la sélectionne et tu la supprimes
11/09/2008, 18h11
modus57

Re fring

J'ai regardé dans le menu

Outils --> Personnaliser --> onglet Barres d'outils

Une barre de menu qui porte le nom du classeur, a été crée mais non effacée, certainement lors d'un test.

Je l'ai supprimé, et çà fonctionne.

:merci: beaucoup à vous deux, sujet clos

cordialement modus57