Bonjour,
Je veux me connecter sur la page http://sistemas.cultura.gov.br/salic...t/Salicnet.php en suite remplir la case n° projet avec une valeur de mon fichier excel et puis click sur OK

J'ai essayé avec ce code mais il n'a pas fonctionné la page s'ouvre sur le navigateur et le macro se plante
Je veux vos aides SVP

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
21
22
 
Sub macro()
 
Dim ie As Object
Set ie = CreateObject("internetexplorer.application")
ie.Visible = True
ie.navigate ("http://sistemas.cultura.gov.br/salicnet/Salicnet/Salicnet.php")
Do While ie.Busy
Application.Wait (Now + 0.1 / 3600 / 24)
Loop
Do While Not ElementExiste("nrprojeto")
Application.Wait (Now + 0.1 / 3600 / 24)
Loop
Set Helem = ie.document.getElementById("nrprojeto")
Helem.Value = "133457"
Set Helem = ie.document.Forms(0)
Helem.Submit
End Sub
Function ElementExiste(stNom)
On Error Resume Next
ElementExiste = ie.document.getElementById("nrprojeto").Name <> ""
End Function