fermer un autre programme dans l’exécution d'une macro
1 réponse
pellet15
Bonjour =E0 tous
La proc=E9dure suivant fonctionne bien,
La proc=E9dure est que j'ouvre un programme et ex=E9cute la fontion CTRL-P=
=20
(qui copie une donn=E9)
et la je voudrait fermer le programme que je vient d'ouvrir=20
("C:\g7towinwithhelp\g7towin64.exe", 1)...=20
car j'ex=E9cute plusieurs fois cette proc=E9dure et ils reste tous en arri=
=E8re plan.
De retour dans EXCEL coll=E9 la donn=E9 acquise. =20
Sub Ouvrir_g7()=20
MyAppID =3D Shell("C:\g7towinwithhelp\g7towin64.exe", 1)=20
SendKeys "^p", True ' ----copie la longitude et la latitude----=20
=20
' ICI ----fermer le programme ( g7towin64 ) ---=20
SendKeys "%{tab}", True '-- retourne a EXCEL -- cela ne sera plus requi=
s...=20
Dim Presspp As New DataObject=20
Set Pressp =3D New DataObject=20
Presspp.GetFromClipboard=20
Sheets("Donne").Select=20
Range("AZ1").Select=20
ActiveSheet.Paste ' ----colle la donn=E9 longitude et la latitude----=
=20
End Sub=20