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
Partager