Discussion :

[BRUNO71]

Bonjour,

J'ai beau chercher, je ne trouve pas.
Voilà une macro:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
Dim OuvrirFichier As MenuBars
With Selection
MenuBars(xlWorksheet).Menus.Add Caption:="&PGI", before:=9
MenuBars(xlWorksheet).Menus("&PGI").MenuItems.Add _
Caption:="Recherche Fichier", OnAction:="OuvrirFichier()"
End With
End Sub

Le but;

a) ouvrir une macro complémentaire et à l'ouverture du fichier une commande Nommé PGI vient se mettre dans la barre menu. Ok, ça marche.

b) un sous menu, Recherche Fichier. Ok, ça marche.

C) lorsque l'on clic sur Recherche Fichier, la macro ci-dessous par l'intemédiaire de OnAction, fonctionne:

Code :

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

1
2
3
4
 Sub OuvrirFichier()
Sheets("Feuil1").Select
Sheets.Add
End Sub

ET BIEN, NON....
Le seul message que j'ai, c'est :
Impossible de trouver la macro 'OuvrirFichier()'.

Que dois-je faire ?

Merci de votre aide .

[wilfried_42]

Bonjour Bruno

ta macro ouvrirfichier() tu l'as mise ou ?

[Boonichou]

Salut,
Dans OnAction, faut pas mettre les parenthèses, non?

Code :

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

1
2
3
4
5
6
7
8
Private Sub Workbook_Open()
Dim OuvrirFichier As MenuBars
With Selection
MenuBars(xlWorksheet).Menus.Add Caption:="&PGI", before:=9
MenuBars(xlWorksheet).Menus("&PGI").MenuItems.Add _
Caption:="Recherche Fichier", OnAction:="OuvrirFichier"
End With
End Sub

[zazaraignée]

Faudrait peut-être mettre le nom du module. Comme Module1.OuvrirFichier... ? Mais je n'ai pas testé.

Mieux encore, si a macro OuvrirFichier n'est pas dans le même fichier (Workbook) que ton OnAction... NomDuWorkbook.OuvrirFichier.