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 .