Bonjour,
Je pilote un logiciel intranet avec VBA Excel avec le code suivant :
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
… et je plante! --> variable objet ou bloc with non défini

… et voila le code source
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>
Quelqu'un peut-il m'aider ?
Merci.