Selection de texte avec la souris [Résolu]

picdon68 4 Messages postés mercredi 14 septembre 2016Date d'inscription 7 décembre 2016 Dernière intervention - 14 sept. 2016 à 00:57 - Dernière réponse : picdon68 4 Messages postés mercredi 14 septembre 2016Date d'inscription 7 décembre 2016 Dernière intervention
- 16 sept. 2016 à 23:18
VBA Office (Excel, Word ...) Posez votre question Signaler Répondre au sujet
Bonjour, ayant une liste de client, je souhaite savoir la distance en km qui les sépare les uns des autres. Comme il y en a beaucoup, j'ai crée un userform avec un contrôle webbrowser. Avec le code, j'arrive à aller sur bing maps et y inscrire les deux adresses. Je souhaiterai sélectionner les km obtenus en pilotant la souris par le code. J'arrive à la positionner avec Call SetCursorPos(x, y), mais après je suis perdu,
voici le code
x = 165
y = 530
Call SetCursorPos(x, y)
Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, 0, 0, 0, 0) '
x = 250
Call SetCursorPos(x, y)
Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, 0, 0, 0, 0)
Si quelqu'un pourrai m'aider ça me serait bien utile.
En vous remerciant d'avance.
Afficher la suite 

2 réponses

Répondre au sujet
jordane45 19233 Messages postés mercredi 22 octobre 2003Date d'inscriptionModérateurStatut 13 décembre 2017 Dernière intervention - 14 sept. 2016 à 23:26
0
Utile
1
Bonjour,
On ne manipule pas via la simulation de click ou de positionnement de la souris..(enfin.. autant qu'on peut l'éviter !)
Documente toi plutôt sur la manipulation du DOM (des pages internet si tu préfères....)

pour info, il semble que sur bing maps, les KM sont contenus dans le champ :
<td class="drTitleRight" data-tag="descriptionDistance">7,3 km</td>

Tu pourrais donc cibler la class drTitleRight via l'instruction
getElementsByClassName("drTitleRight")

Puis boucler sur tous les éléments retournés pour trouver celui dont l'attribut data-tag = descriptionDistance
Et enfin.. lire son contenu (via un innerHTML par exemple) pour récupérer le kilométrage.

Je te laisse trouver le code qui va avec tout ça
reviens nous voir lorsque tu auras avancé ..... si tu rencontres encore des soucis.



picdon68 4 Messages postés mercredi 14 septembre 2016Date d'inscription 7 décembre 2016 Dernière intervention - 16 sept. 2016 à 23:18
Merci Jordane45
En fait quand tu as répondu, j'avais déjà trouvé la solution, je n'avais pas déclaré les constantes
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Je vais explorer ta solution qui est certainement meilleure.
Encore une fois merci
Commenter la réponse de jordane45

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.