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 : Sélectionner tout - Visualiser dans une fenêtre à part
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