Bonsoir,
Je suis entrain de réaliser un code qui permettra de remplir un formulaire sur le net à partir de données issues d'une feuille excel. je suis arrivé à renseigner différents champs de la page web.
Différentes routines de validation des données saisies sur la page web existent (écrites en js). si les données sont correctes, j'arrive à télécharger (ouvrir) un fichier pdf par macro vba.
ci joint cette partie:Mon problème réside dans le fait que je n'arrive pas à récupérer le hwnd d'une msgbox d'erreurs lorsque les données saisies ne sont pas valides. (pour arrêter le code au cas de la présence d'erreurs de données).
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 ... Do hwnd = FindWindow(vbNullString, "Téléchargement de fichiers") PauseTimer 1 'wait 1 seconde k = k + 1 Loop While hwnd = 0 SendKeys "%v" 'ouvre le fichier récupéré PauseTimer 1 IE.Quit 'quitter IE End If ...
Ce msgbox à pour intitulé: Message de la page Web. avec une indication sur les champs invalides et un boutton OK
peut être je suis à côté de la plaque du fait que je suis novice dans les API
ou que je cherche à compliquer les choses.
J'espère une aide.
Merci
Partager