Bonjour,

Je souhaiterais le remplissage d'un site internet mais je ne comprend pas pourquoi mon code ne fonctionne pas.
Je veux donc entrer une séquence fasta présente dans une cellule de l'Excel dans le champs dédié dans : https://services.healthtech.dtu.dk/service.php?SignalP

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub VBAExcel()
'Déclaration des variables
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim InputZoneTexte As HTMLInputElement
 
   'Chargement d'une page Web Google
   IE.navigate "https://services.healthtech.dtu.dk/service.php?SignalP"
 
   'Affichage de la fenêtre IE
   IE.Visible = True
 
   'On attend le chargement complet de la page
   WaitIE IE
 
   'On pointe le membre Document
   Set IEDoc = IE.document
 
   'On pointe notre Zone de texte
   Set InputZoneTexte = IEDoc.getElementsByName("fasta").Item
 
   'On définit le texte que l'on souhaite placer à l'intérieur
   InputZoneTexte.Value = "text"
 
   'On attend la fin de la recherche
   WaitIE IE
 
   'On libère les variables
   Set IE = Nothing
   Set IEDoc = Nothing
End Sub
 
Sub WaitIE(IE As InternetExplorer)
   'On boucle tant que la page n'est pas totalement chargée
   Do Until IE.readyState = READYSTATE_COMPLETE
      DoEvents
   Loop
End Sub
Merci