Discussion :

[apprenti_VBA]

Bonjour à tous,

Je suis en train de créer une macro sous VBA Excel (2003) qui me permet d'aller cherche certains fichiers sur l'intranet de mon entreprise.

Pour arriver sur la page ou je dois telecharger le fichier je dois d'abord selectionner une valeur dans une liste déroulante ce qui lance un doPostBack et m'envoi sur ma page.

j'arrive bien a selectionner la bonne valeur dans la liste déroulant grace à cette commande :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
IEdoc.getElementsByName("blablabla").Item.Value = "2"
'IEdoc correspond à ma page internet explorer

probléme --> la page correspondante à la valeur sélectionné ne se charge pas... j'en déduit que le doPostBack n'est pas lancé...

Quelqu'un sait-il comment je peux faire pour que j'ai accés à la bonne page??

Je vous remercie pour votre aide.
Bonne journée.

[apprenti_VBA]

Je viens de trouver donc je me réponds

il faut utiliser la méthode submit

ça donne 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
Dim ie As InternetExplorer
Dim IEdoc As Object
 
Set ie = New InternetExplorer
ie.Visible = True
 
ie.navigate ("http://www.votresite.com")
 
' attente de fin de chargement
Do Until ie.ReadyState = 4
    DoEvents
Loop
 
Set IEdoc = ie.document
 
IEdoc.getElementsByName("nom_de_la liste_deroulante").Item.Value = "2" 'nombre correspondant à l'entrée choisi dans la liste
IEdoc.form1.submit 'form1 est a remplacer par le nom du formulaire dans le code source javascript de la page (c'est souvent form1)

voila j'espére que ça pourra aider quelqu'un, chez moi ça marche trés bien!