Urgent

Bjr tt le monde svp j ai un souci là,
beh je travail sur VBA
je vé vs éxpliqué : 1 )j ai deux balance, je vx au début comaprer les 2 balances et j ai instaler un logiciel
                                qui pré occupé de ça c le " Diff Doc" alors dans ce logiciel je px choisi les 2 balnce 
                                mé il falé cliqué sur une boton play " R.C : F5" pour démarrer la comparaison .  
                                ok jusqu à la c bon

le souci : " moi je vx savoir si je px crée un batch ou un code VBA qui permet de lancer l application et executer la boton de comparaison ?!!!!"

idés moi svp c urgent et merci d avanace 

Salut
tu peux lancer ton programme avec un shell.
après untilise les api pour rechercher le handle du programme par son nom, après tu cherche les handle enfants (boutton...) toujours via l'api et tu simule un click sur celui qui t'interresse!

 Drikce 06

ui c possibl ^^ aveK la fonction cole (à traduire en vrai language pas en texto ;)

Chris...
Web : Firstruner

---- Sevyc64  (alias Casy) ----

---

# LE PARTAGE EST NOTRE FORCE #

Trop balèze Casy, je l'adopte ce Gif ^^

Chris...
Web : Firstruner

En .Net ça donne à peu près ça à toi de l'adapter!
Const GW_HWNDFIRST = 0

Const GW_HWNDLAST = 1

Const GW_HWNDNEXT = 2

Const GW_HWNDPREV = 3

Const GW_CHILD = 5

Const WM_LBUTTONDOWN = 513

Const WM_LBUTTONUP = 514

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( ByVal hwnd As Integer , _

ByVal wMsg As Integer , ByVal wParam As Integer , ByVal lParam As Object ) As Integer

Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" _

(

ByVal hwnd As Integer ) As Integer

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" ( ByVal hwnd As Integer , _

ByVal lpString As String , ByVal cch As Integer ) As Integer

 

Public Declare Function SetForegroundWindow Lib "user32" ( ByVal hwnd As Integer ) As Integer

Declare Function GetActiveWindow Lib "user32" Alias "GetActiveWindow" () As Integer

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( ByVal lpClassName As String , _

ByVal lpWindowName As String ) As Integer

Dim hwnd, hwnd1 As Integer

Dim NbChr As Integer

hwnd = Int(FindWindow(vbNullString,

"PDFCreator 0.9.0" ))

SetForegroundWindow(hwnd)

hwnd1 = GetWindow(hwnd, GW_CHILD)

Do While hwnd <> 0

Dim MyStr As String = ""

NbChr = GetWindowTextLength(hwnd1)

MyStr = MyStr.PadLeft(NbChr)

GetWindowText(hwnd1, MyStr, NbChr + 1)

If MyStr = "Enregistrer" Then

SetForegroundWindow(hwnd1)

SendMessage(hwnd1, WM_LBUTTONDOWN, 0, 0)

SendMessage(hwnd1, WM_LBUTTONUP, 0, 0)

Exit Do

End If

hwnd1 = GetNextWindow(hwnd1, GW_HWNDNEXT)

Loop

 Drikce 06

D'accord avec chris et casy pour le language SMS !

 Drikce 06

On dit cela car c'est déjà assez compliquer de comprendre les problèmes des autres alors si en plus on doit décrypter le language on y passe la nuit, fait juste quelques efforts s'il te plait

pour info : http://www.vbfrance.com/reglement.aspx

Chris...
 Web : Firstruner

Casy ralenti un peu le défilement de ton gif ça va trop vite!
Mais une vitesse à peu près comme celui de Kenji avec le règlement!

 Drikce 06

Le pire c'est qu'à coup sûr, ce n'est même pas fait exprès...
Il y a tellement de gens qui ne savent pas "écrire" (dans tous les sens du terme), et à défaut de prendre cela comme une marque de provocation, prendre cela comme un fléau, à une échelle non mesurable !
A qui la faute ? On peut rejeter les torts sur l'éducation, les parents, le système, mais on ne fera pas avancer le schmilblick.
Il est clair que l'écrit est un des moyens de communication les plus déployés sur Internet, et que ce forum n'est pas fait pour polémiquer sur ce genre de problème. Autant je suis un défenseur de la langue française, autant je suis conscient de la lacune qui pèse sur les épaules d'une partie trop importante de la population.
Je m'arrête là.
----------------------
<<< AmigaINC >>>