VBA Webbrowser leboncoin

Bonjour,

Je suis en train de faire un ptit programme qui permet de remplir le formulaire leboncoin pour déposer une annonce. Celui-ci => http://www2.leboncoin.fr/ai/form/0

Je fait à avec le webbrownser. Quand je lance l'appli ça rempli les cases niquel mais les problème viennent quand il faut mettre les photos. Impossible de mettre les 3 photos, j'ai bien réussi à mettre une photo mais quand j'essaye de mettre les 3 c'est toujours la dernière photo qui se met. A votre avis d'ou peut venir ce problème ??

Voici le code que j'utilise:
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 Range("A80:A80").Copy 'contient le lien de la 1ere photo ctlNav.document.all("image0").Focus ' focus sur la 1ere image sur le site leboncoin SendKeys (Chr$(32)) 'click sur espace pour ouvrir l'explorateur windows Application.Wait Now + TimeValue("00:00:01") 'attente d'une sec SendKeys "^v" 'colle le lien de la 1ere photo SendKeys "^v" 'colle le lien de la 1ere photo SendKeys "{ENTER}" simule un click sur entrée donc ceci fonctionne parfaitement pour une photo donc logiquement j'ai fait la même chose pour les 2 autres photos, ce qui donne Range("A81:A81").Copy 'contient le lien de la 2eme photo ctlNav.document.all("image1").Focus ' focus sur la 2eme image sur le site leboncoin SendKeys (Chr$(32)) 'click sur espace pour ouvrir l'explorateur windows Application.Wait Now + TimeValue("00:00:01") 'attente d'une sec SendKeys "^v" 'colle le lien de la 2eme photo SendKeys "^v" 'colle le lien de la 2eme photo SendKeys "{ENTER}" simule un click sur entrée Range("A82:A82").Copy 'contient le lien de la 3eme photo ctlNav.document.all("image2").Focus ' focus sur la 3eme image sur le site leboncoin SendKeys (Chr$(32)) 'click sur espace pour ouvrir l'explorateur windows Application.Wait Now + TimeValue("00:00:01") 'attente d'une sec SendKeys "^v" 'colle le lien de la 3eme photo SendKeys "^v" 'colle le lien de la 3eme photo SendKeys "{ENTER}" simule un click sur entrée
mais quand je fait les 3 ca met que la 3eme photos et non les 3...

Et aussi j'ai mit 2 fois SendKeys "^v" parce que avec 1 seul ça fonctionne pas.

Après des heures de tentatives toujours rien mais j'ai trouver le problème, ça vient de cette ligne "ctlNav.document.all("image0").Focus" en faite dès que le programme exécute cette ligne il y a un explorateur window qui s'ouvre pour choisir la photo et sans mon intervention il ne se passe rien c'est comme si le programme c'était mit en pause. Moi ce que je voudrait c'est que ça fasse SendKeys "^v".