Discussion :

[modus57]

Bonjour le forum

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 ?

[modus57]

Bonjour fring

Erreur sur la ligne suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

@ +

[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

[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

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

@ +

[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

[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.

beaucoup à vous deux, sujet clos

cordialement modus57