Débutant en Macro Excel, essai double click

Bonjour,
j'esaye de faire marcher la macro indiquée ci-dessus...
C:\D9.xls existe est est chargé.
le double click ne donne rien !!!
Que manque-t-il ???
Remerciemeznts

bien@vous

Sub essaiD9()
BaseD9 = "C:\D9.xls"
Workbooks.Open Filename:=BaseD9
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox "J'aidouble cliqué sur la cellule " & Target.Address
Cancel = True
End Sub

La macro

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox "J'aidouble cliqué sur la cellule " & Target.Address
Cancel = True
End Sub

doit se trouver dans la feuille du double clic

elle ne fonctionnera pas dans le fichier fraichement ouvert par

Sub essaiD9()
BaseD9 = "C:\D9.xls"
Workbooks.Open Filename:=BaseD9
End Sub

Salutations

Gilbert_RGI

Bonsoir,

Mille fois Merci pour la rapide réponse...

TRES Débutant... Comment l'y mettre ???

bien@toi

Bonjour

voir ceci http://silkyroad.developpez.com/VBA/VisualBasicEditor/#LVI

Salutations

Gilbert_RGI

ce qui doit donner :

IMPORTANT : charger la bibliothèque

Microsoft Visual Basic for Applications Extensibility 5.3

Sub mon_test()

BaseD9 = "C:\test2.xls"
Workbooks.Open Filename:=BaseD9
With ActiveWorkbook.VBProject.VBComponents("Feuil1").CodeModule
X = .CountOfLines

.InsertLines X + 1, "Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)"
.InsertLines X + 2, "MsgBox ""J'ai double cliqué sur la cellule """ & Chr(38) & " Target.Address"
.InsertLines X + 3, "Cancel = True"
.InsertLines X + 4, "End Sub"

End With

End Sub

Espérant avoir répondu à votre attente

Salutations

Gilbert_RGI

PS: Joyeuses fêtes de Noël

Bonjour et bon Noël

Mille fois merci pour cette réponse rapide

Vais essayer...

Je clique sur Résolu !!!