Bonjour,![]()
Je pilote un logiciel intranet avec VBA Excel avec le code suivant :
… et je plante!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 ' Formulaire 'Remplie les champs nécessaires... IE.DOCUMENT.All("NumExp").Value = CodeEctien IE.DOCUMENT.All("motDePasse").Value = Pass IE.DOCUMENT.All("envoyer").Click 'clique sur le bouton... Do While IE.ReadyState <> 4 DoEvents Loop IE.navigate "http://www.intranet-ecti.org/asp/Missions/menu.asp" 'new/new.asp" IE.navigate <a href="http://www.intranet-ecti.org/asp/Missions/New/new.asp" target="_blank">http://www.intranet-ecti.org/asp/Missions/New/new.asp</a> If IE.DOCUMENT.All("MISS_ETR").value= "MISS_ETR " then IE.DOCUMENT.All("MISS_ETR").click 'clique sur le bouton Do While IE.ReadyState <> 4 DoEvents Loop--> variable objet ou bloc with non défini
… et voila le code source
Quelqu'un peut-il m'aider ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 <tr> <td colspan="1" class="cellBold"><input type="radio" name="TypeDocument" value="MISS_FR" checked onClick="afficheFraisSelonTypeDocument()">Mission France</td> <td colspan="3" class="cellBold"><input type="radio" name="TypeDocument" value="MISS_ETR" onclick="afficheFraisSelonTypeDocument()">Mission Hors de France</td>
Merci.
Partager