Worksheet_BeforeDoubleClick ne donne rien
Bonjour à tous,
Voici deux macros que j'ai mis en place afin que lorsque je double clique sur une cellule, si celle-ci est dans la colonne C, la macro quandclic se lance.
A mon grand regret il ne se passe rien. La macro quandclic fonctionne parfaitement toute seule et fait appel à Bloomberg
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
| Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = True
If Target.Column = 3 Then
Cancel = True
quandclic
End If
End Sub
Sub quandclic()
Dim blp As Long
Dim path As Variant, x As Variant, F3 As Variant
blp = DDEInitiate("winblp", "bbk")
Call DDEExecute(blp, "<blp-0>")
Call DDEExecute(blp, "<MENU>")
Call DDEExecute(blp, "<MENU>")
Call DDEExecute(blp, "" & ActiveCell.value & "")
Application.SendKeys "{F3}", True
Call DDEExecute(blp, " DES <GO>")
en espérant que vous pourrez m'aider.
Bonne soirée
End Sub |
