Discussion :

[funckfot]

Bonjour

Je suis en train de créer mon propre menu sur Excel via VBA.
Je suis en train de m'inspirer de ce tutoriels pour réaliser mon menu
http://fring.developpez.com/vba/excel/barremenu/

Cependant, lors de l'exécution de ma macro, j'ai l'erreur N°91 -> "Variable objet ou variable bloc With non définie (erreur 91)"

Or je ne suis qu'au balbutiement de mon code :

Code :

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

1
2
3
4
 
     Dim Cbar As CommandBar
     'creation de la barre de menus
     Set Cbar = CommandBars.Add(Name:="MaBarrePopup", Position:=msoBarPopup, temporary:=True)

Le programme plante directement sur la ligne "Set Cbar = CommandBars.Add(Name:="MaBarrePopup", Position:=msoBarPopup, temporary:=True)"

J'avoue que je suis un peu dépassé. je suis juste a l'init et j'ai déjà une erreur d'init...

merci de votre soutient

[Qwazerty]

Salut
J'ai eu a créer une Cbar, voila le code que j'avais employé

Code :

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

1
2
3
4
5
6
On Error Resume Next
'On supprime un eventuel reste d'un fichier passé
CommandBars("Popup_Prepa").Delete
On Error GoTo 0
'création de la barre de menu de type Popup
Set Cbar = CommandBars.Add(Name:="Popup_Prepa", Position:=msoBarPopup, temporary:=True)

Il est identique au tien, je m'assure juste de supprimer une barre existante.

Essai de regarder les différentes variables pour savoir quel mot n'est pas reconnu dans ton code, chez moi ton code s’exécute parfaitement. enfin si le code se lance... par ce que ça se bloque peut être bien dés le lancement? la zone jaune pointe ta ligne ou pointe Sub Macro().

Quelle version d'Excel utilises tu?

++
Qwaz

[funckfot]

J'ai excel 2007
J'ai essayé ton code. en version 2003 et 2007. Pas moyen! ça ne marche pas!

Mais j'ai peu être oublier un truc. Je sais pas une référence ou un truc du genre, car là je bute...


je sens l'erreur de débutant arriver

[Qwazerty]

Salut
Fais suivre ton fichier, mais je vois pas ce que tu as put oublier...
++
Qwaz

[funckfot]

Voici mon fichier...

si tu vois le problème

sinon passe moi en un qui marche sTP

[Qwazerty]

Salut

Alors ne me demande pas pourquoi... Enfin si j'ai une petite idée. Lorsque tu déclares une variable dans un feuille ou dans un worksheet, celui ci n'est accessible qu'à partir de la feuille ou du worksheet en question.
Si tu veux le rendre accessible de tous, y compris de l'application elle même, il faut travailler dans un Module, les variables déclarées dans un Module ont une porté plus grande (voir des tutoriel au sujet des déclarations de variables). Il semble donc logique, pour un menu qui sera placé au niveau Application, de travailler dans un module.

Il faut que tu mettes le code de création de ta barre dans un module donc.
Et dans l’évènement Open de ton worksheet au lieu d'avoir ton code, tu fais appelle à la procédure de création qui se trouve dans le Module.

Modules1:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit 'te force a declarer tes varibales
 
Sub CreationBarre()
Dim CBar As CommandBar
 
    'Call verificationFichier
    On Error Resume Next
    'On supprime un eventuel reste d'un fichier passé
    CommandBars("Popup_Prepa").Delete
    On Error GoTo 0
    'création de la barre de menu de type Popup
    Set Cbar = CommandBars.Add(Name:="Popup_Prepa", Position:=msoBarPopup, temporary:=True)
End Sub

Et dans ton ThisWorkbook:

Code :

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

1
2
3
4
5
Private Sub Workbook_Open()
'On fait appelle à la sub de création
CreationBarre
 
End Sub

++
Qwaz

[mayekeul]

bonjour,

met ton code dans un module et appelle la procedure via l'événement open
cela devrais fonctionner

edit : sorry , le temps que je poste.... je me suis fait griller