Prendre le contrôle d'une application Windows avec VBA (Application. DDEInitiate)

Version imprimable

Bonjour à tous.
C'est un sujet que j'essaie de creuser depuis longtemps mais qui n'est que très peu documenté sur le web: Comment contrôler une application tierce a MS Office sous windows via VBA?

L'objectif est de créer un lien (pont-connexion) d'un outil Office (Excel/Access) afin d'effectuer des manipulation sur une application windows, par exemple coller le clipboard dans paint ou dans notepad. Par soucis d'efficacité, je ne souhaite pas utiliser la commande sendkeys à laquelle nous ne pouvons pas faire confiance.

A ma connaissance il existe une methode DDE qui le permettrait mais il semble qu'elle soit obsolète. Pouvez-vous confirmer ?

Voici un code utilisant DDE afin de se connecter à Word et de lui envoyer la commande Impression
"
Code:

1 2 3 4 5 channelNumber = Application.DDEInitiate( _ app:="WinWord", _ topic:="C:\FORMLETR.DOC") Application.DDEExecute channelNumber, "[FILEPRINT]" Application.DDETerminate channelNumber
En essayant de le modifier afin de coller notre clipboard sur paint, voici le code qui ne fonctionne pas :
Code:

1 2 3 4 5 channelNumber = Application.DDEInitiate( _ app:="mspaint", _ topic:="C:\Test.png") Application.DDEExecute channelNumber, "[PASTE]" Application.DDETerminate channelNumber
Resultat:
J'ai une erreur "Run time error '13': Type missmatch" à la première ligne bien que le fichier s'ouvre.

Essayons avec le notepad:
Code:

1 2 3 4 5 6 7 8 Sub DDEtoBlocNotes() Dim Datarange As Range chan = Application.DDEInitiate(app:="NOTEPAD", topic:="C:\Users\User1\Documents\Access\Test.txt") Set Datarange = ThisWorkbook.Worksheets("Sheet1").Range("A1") Datarange.Copy Application.DDEExecute chan, "[EDITIONCOLLER]" Application.DDETerminate chan End Sub
Resultat: même erreur que précédement malgré l'ouverture du document.
"Run time error '13': Type missmatch"

Pouvez-vous m'aider à résoudre ce problème svp ?
Avez vous de la documentation sur les attributs des commandes DDE?
Connaissez vous une autre façon de se connecter à une application tierce afin de lui envoyer des commandes ? (OLE/ODBC/ADO) ?

Merci d'avance pour vos réponses.

26/04/2020, 14h43
Nullosse

Salut,
petit rappel : wikipedia nous dit cela :

Citation:

Dynamic Data Exchange, ou DDE, (en français : « Échange dynamique de données ») est un protocole client-serveur défini par Microsoft depuis Windows 2 et OS/2 pour l'échange de données entre applications. Le protocole OLE est basé sur celui-ci. Il a été présenté en 1987. Microsoft l'a ensuite remplacé par COM et OLE mais malgré cela, il est toujours utilisé dans certaines parties de Windows.
DDE permet d'ouvrir une session avec une autre application, envoyer une commande à l'application qui sert de serveur et recevoir une réponse. Il ne permet pas d'incorporer l'interface graphique de l'application serveur dans l'application cliente. Pour pouvoir utiliser correctement DDE, l'application cliente doit connaître les commandes disponibles sur l'application serveur qui ne sont généralement pas standardisées.

A mon avis DDE n'est presque plus utilisé et il peut y avoir des bugs (comme celui que tu nous montres) qui subsistent depuis un bon nombre d'années car pas remonter.
Le meilleur moyen de converser avec une autre application sous windows est le OLE , COM utilisés dans les activeX. Manque de chance les petites applications comme paint et notepad n'ont pas d'interface COM. Pour voir les applications qui sont interfacées en COM, on peut par exemple regarder tous les références qui sont proposés dans Outils/Références de VBA.
Nullosse
26/04/2020, 17h56
Mandragore99

Citation:

Envoyé par Nullosse

Le meilleur moyen de converser avec une autre application sous windows est le OLE , COM utilisés dans les activeX. Pour voir les applications qui sont interfacées en COM, on peut par exemple regarder tous les références qui sont proposés dans Outils/Références de VBA.
Nullosse

Merci pour tes informations.
L'intérêt de ma requête est en fait de copier coller le contenu de cellules excel dans un programme "maison" de la société pour laquelle je travaille.
Je sais que certain ont réussi à le faire via DDE, mais je ne sais pas comment faire pour passer par le moyen OLE / COM
Cela va sans dire que ce programme "Maison" programmé en cobalt n'est pas disponible dans la liste de référence excel.

Pourrais tu développer comment contrôler ce programme, avec un exemple peut etre ?

Merci d'avance

Bonjour.
Je n'interviens ici que pour la partie qui concerne la mémorisation des données dans le presse-papier pour les restituer dans une autre application avec Ctrl-V, sans utiliser Sendkeys qui pose souvent des problèmes.
Ici c'est du texte mais je pense que ça peut être adapté pour une image ou autres objets (voir l'argument de GetClipboardData), et ça peut vous donner des idées...

Code:

1
2
3
4
5
6
7
8
9
10
11
'---------------------------------------------------------------------------------------
Sub test()
'---------------------------------------------------------------------------------------
' Met le contenu de la cellule A1 dans le presse-papier:
Call ClipBoard_SetData(Range("A1"))
 
' Affiche le contenu du presse-papier dans un message = idem Ctrl-V (c'est juste un exemple):
MsgBox ClipBoard_GetData
 
End Sub
'---------------------------------------------------------------------------------------

Le code des fonctions utilisées :

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
Option Explicit
 
'---------------------------------------------------------------------------------------
' https://msdn.microsoft.com/fr-fr/library/office/ff194373.aspx
' https://msdn.microsoft.com/fr-fr/library/office/ff192913.aspx
'---------------------------------------------------------------------------------------
Private Declare Function OpenClipboard Lib "User32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32.dll" () As Long
Private Declare Function SetClipboardData Lib "user32.dll" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Declare Function CloseClipboard Lib "User32" () As Long
Private Declare Function GetClipboardData Lib "User32" (ByVal wFormat As Long) As Long
Private Declare Function GlobalAlloc Lib "Kernel32" (ByVal wFlags&, ByVal dwBytes As Long) As Long
Private Declare Function GlobalLock Lib "Kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "Kernel32" (ByVal hMem As Long) As Long
Private Declare Function lstrcpy Lib "Kernel32" (ByVal lpString1 As Any, ByVal lpString2 As Any) As Long
'---------------------------------------------------------------------------------------
Private Const CF_TEXT = 1
Private Const MAXSIZE = 65536
Private Const GMEM_MOVEABLE = &H2
Private Const GMEM_ZEROINIT = &H40
Private Const GHND = (GMEM_MOVEABLE Or GMEM_ZEROINIT)
'---------------------------------------------------------------------------------------
 
'---------------------------------------------------------------------------------------
Public Function ClipBoard_GetData() As String
'---------------------------------------------------------------------------------------
Dim hClipMemory As Long
Dim lpClipMemory As Long
Dim MyString As String
Dim RetVal As Long
 
If OpenClipboard(0&) = 0 Then '"Cannot open Clipboard. Another app. may have it open"
    Exit Function
End If
 
' Obtain the handle to the global memory block that is referencing the text.
hClipMemory = GetClipboardData(CF_TEXT)
If IsNull(hClipMemory) Then '"Could not allocate memory"
    GoTo OutOfHere
End If
 
' Lock Clipboard memory so we can reference the actual data string.
lpClipMemory = GlobalLock(hClipMemory)
 
If Not IsNull(lpClipMemory) Then
 
    MyString = Space$(MAXSIZE)
    RetVal = lstrcpy(MyString, lpClipMemory)
    RetVal = GlobalUnlock(hClipMemory)
 
    ' Gestion de la taille maximale du message à récupérer du clavier:
    If InStr(1, MyString, Chr$(0), 0) = 0 Then ' "Chaîne trop grande"
        Call CloseClipboard
        ClipBoard_GetData = ""
        Exit Function
    End If
 
    ' Peel off the null terminating character.
    MyString = Mid(MyString, 1, InStr(1, MyString, Chr$(0), 0) - 1)
 
End If
 
OutOfHere:
RetVal = CloseClipboard()
ClipBoard_GetData = MyString
 
End Function
 
'---------------------------------------------------------------------------------------
Public Function ClipBoard_SetData(MyString As String) As Boolean
'---------------------------------------------------------------------------------------
'32-bit code by Microsoft: http://msdn.microsoft.com/en-us/library/office/ff192913.aspx
Dim hGlobalMemory As LongPtr, lpGlobalMemory As LongPtr
Dim hClipMemory As LongPtr, x As Long
 
' Gestion de la taille maximale du message a envoyer au clavier:
If Len(MyString) >= MAXSIZE Then  ' "Chaîne trop grande"
    Exit Function
End If
 
' Gestion des chaînes vides:
If MyString = "" Then Exit Function
 
' Allocate moveable global memory.
hGlobalMemory = GlobalAlloc(GHND, Len(MyString) + 1)
 
' Lock the block to get a far pointer to this memory.
lpGlobalMemory = GlobalLock(hGlobalMemory)
 
' Copy the string to this global memory.
lpGlobalMemory = lstrcpy(lpGlobalMemory, MyString)
 
' Unlock the memory.
If GlobalUnlock(hGlobalMemory) <> 0 Then '"Could not unlock memory location. Copy aborted."
   GoTo OutOfHere
End If
 
' Open the Clipboard to copy data to.
If OpenClipboard(0&) = 0 Then ' "Could not open the Clipboard. Copy aborted."
   Exit Function
End If
 
' Clear the Clipboard.
x = EmptyClipboard()
 
' Copy the data to the Clipboard.
hClipMemory = SetClipboardData(CF_TEXT, hGlobalMemory)
 
OutOfHere:
If CloseClipboard() <> 0 Then
   ClipBoard_SetData = True
End If
 
End Function
'---------------------------------------------------------------------------------------
'---------------------------------------------------------------------------------------

27/04/2020, 23h11
Nullosse

Salut

Citation:

Envoyé par Mandragore99

Merci pour tes informations.
L'intérêt de ma requête est en fait de copier coller le contenu de cellules excel dans un programme "maison" de la société pour laquelle je travaille.
Je sais que certain ont réussi à le faire via DDE, mais je ne sais pas comment faire pour passer par le moyen OLE / COM
Cela va sans dire que ce programme "Maison" programmé en cobalt n'est pas disponible dans la liste de référence excel.
Pourrais tu développer comment contrôler ce programme, avec un exemple peut etre ?
Merci d'avance

Houla, mol je suis au repos, je peux donner des conseils, quelques bouts de code mais en aucun cas je ne travaillerais pour quelqu'un et le Cobalt je ne connais pas du tout. Sinon même si tu réussi à utiliser le presse papier, comment positionner dans ton programme "Maison" l'endroit où l'on va coller le presse-papier ?

Nullosse