Discussion :

[Kutoh]

Bonjour, j'écris une macro qui à partir du sendkeys va dans Bloomberg, enregistre les images dans le Presse-Papier, et la colle sur uen feuille Excel.
La première étape qui consiste à enregistrer l'image dans le Presse-Papier marche bien, mais la seconde étape qui consiste à la coller dans la feuille excel ne marche pas.

Voici le code

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
33
34
35
36
37
38
39
40
41
42
 
Sub ImportPic()
Dim  suite As String, coller As String
Dim i As Long, j As Long, nIndex As Long
 
 
nIndex = WorksheetFunction.CountA(Range("B1:B100"))
 
coller = "^V"
 
    For i = 2 To nIndex
If ActiveSheet.Name = "Feuil1" Then
     GoTo suite
    Else
  Worksheets("Feuil1").Activate
    End If
suite:
'Etape consistant a récupérer le nom de l'objet pour lequel je veux l'image
'et à enregistrer l'image dans le Papier Presse
 
        Range("B" & i).Select
            Selection.Copy
            AppActivate "2-BLOOMBERG"
            Application.SendKeys "{TAB}", True: Application.SendKeys coller, True
            Application.SendKeys "{F10}", True: Application.SendKeys "~", True
            Application.SendKeys "GP": Application.SendKeys "~"
            Application.Wait Time + TimeSerial(0, 0, 2)
            Application.SendKeys "MACD~"
            Application.Wait Time + TimeSerial(0, 0, 2)
 
'Enregistrement de l'image dans le Presse-Papier
            Application.SendKeys "97~"
            Application.SendKeys "5~"
 
AppActivate "Microsoft Excel"
Workbooks("Classeur1.xls").Activate
Worksheets("Feuil2").Activate
Application.SendKeys coller, True
 
Next i
 
End Sub

Une idée de comment coller l'image contenue dans le papier-presse?!!
Ma méthode ne fonctionne pas.
Merci d'avance.

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Paste

devrait faire ton affaire, non ?

[nibledispo]

Bonjour KUTOH,

Je suis un peu surpris de ce nouveau post qui n'est semble-t-il que la continuation du post précédent "mise à jour des formules dans une feuille EXCEL".

Sur ce dit post - suite à ton annonce des formules Bloomberg- je n'ai pas obtenu de réponse aux questions posées dans ma dernière intervention.

Du coup, je ne suis pas plus instruit des formules que tu as posé sur ta feuille et d'une manière générale, des formules Bloomberg. Penses à moi!

cordialement.

[Kutoh]

Daniel.C j'ai déjà éssayé, mais sans grand succès (Ca ne me colle rien du tout)

nibledispo j'espère que ma reponse sur l'autre sujet te conviendra.

[nibledispo]

re .....,

merci pour la réponse. je vais essayer de trouver un site qui explique les formules Bloomberg et surtout leur utilité (simple curiosité).

pour ton présent problème: ne manque-t-il pas les parenthèses autour de "(^v)".

je dis cela par rapport à ta formulation "sendkeye" plus bas dans le code.

cordialement.

re....,

autant pour moi.
d'après le livre que je viens de consulter les crochets ne semblent pas nécessaires avec entre autres les touches ctrl, alt, maj

[Kutoh]

De rien,........
Ah voilà
Je crois plutot qu'il faut que je cherche comment coller une image du presse-papier dans une feuille excel. Parce que mon code permet d'enregistrer les images dans le presse papier

[parmi]

Peut-être devrais-tu regarder du côté des API concernant le Clipboard
OpenClipBoard
CloseClipBoard
EmptyClipBoard
....