OnAction, Comment faire.

Bonjour,

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

Code:

---

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:

---

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 .

Bonjour Bruno

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

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

Code:

---

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

---

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.