Envoyer des informations de Excel vers Internet Explorer

Version imprimable

Bonjour,

J'essaie en vain d'envoyer des informations d'une page Excel vers une page Web

Mon classeur est ouvert et la page Web aussi .. je peux faire un ALT-TAB pour passer de un à l'autre. Dans la page Web, les champs à remplir n'ont pas de ID mais des noms ex.:

Code:

<td width="12%" align="right" class="field"> <input type="text" name="8+_+1" value="" size="10" maxlength="8"><input type="hidden" name="taskDataKey" value="8+_+1"><input type="hidden" name="auxTDK8+_+1" value="1302805070000"></td>

Idéalement, si la page Web n'est pas accessible par une seul ALT-TAB, j'aimerais que la macro la trouve parmi les fenêtres ouvertes (mais bon, je rêve peut-être en couleur!)

Voici mon code, qui ne marche malheureusement pas :
Code:

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 39 40 41 42 43 44 45 46 47 48 49 50 Private Sub CommandButton2_Click() Dim IE As InternetExplorer Dim elementHtml As Object SendKeys "%{TAB}" Set IE = activeWindows 'pas sûr du "ActiveWindows" IE.Visible = True Dim bOk As Boolean Set elementHtml = IE.getElementByName("8+_+1") If Not elementHtml Is Nothing Then bOk = True elementHtml.Value = ActiveSheet.Cells(9, 10).Value 'je ne suis pas sûr du format 'elementHtml.Text = ActiveSheet.Cells(9, 10).Value 'option2 'elementHtml.Value = Range("I10").Value 'option3 Else bOk = False End If Set elementHtml = IE.document.getElementByName("6+_+2") If Not elementHtml Is Nothing Then elementHtml.Value = Range("L10").Value End If Set elementHtml = IE.document.getElementByName("7+_+2") If Not elementHtml Is Nothing Then elementHtml.Value = Range("O10").Value End If Set elementHtml = IE.document.getElementByName("3+_+2") If Not elementHtml Is Nothing Then elementHtml.Value = Range("L10").Value End If Set elementHtml = IE.document.getElementByName("4+_+2") If Not elementHtml Is Nothing Then elementHtml.Value = Range("P10").Value End If Set elementHtml = IE.document.getElementByName("9+_+2") If Not elementHtml Is Nothing Then elementHtml.Value = Range("O10").Value End If SendKeys "{TAB}" SendKeys "{TAB}" SendKeys "{TAB}" SendKeys "{ENTER}" DoEvents Set IE = Nothing If bOk Then MsgBox "Transfert réussi !" Else MsgBox "Transfert échoué!" End Sub
J'ai eu beau chercher autant comme autant, je n'ai pas trouvé

Sauriez-vous me dire ce qui cloche dans mon code ?

Votre aide est grandement appréciée !!

Bonjour
Essaies comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton2_Click()
Dim winShell As New ShellWindows
Dim IE As InternetExplorer
Dim Sh As Worksheet
Dim stURL As String
 
stURL = "http://www.dfp......"
For Each IE In winShell
    If IE.LocationURL = stURL Then Exit For
Next IE
If Not IE Is Nothing Then
    Set Sh = ThisWorkbook.Worksheets("BASE")
    With IE.document
        .getElementByName("8+_+1").Value = Sh.Range("J" & 9).Value
        .getElementByName("6+_+2").Value = Sh.Range("L10").Value
        '.....etc
    End With
    Set Sh = Nothing
Else
    MsgBox "Page internet non disponible."
End If
End Sub

17/04/2011, 21h39
Banosjo

Rebonjour,

Merci pour la réponse. Ça me retourne malheureusement une erreur d'exécution 438 (Propriété ou méthode non gérée par cet objet) à la ligne :

Code:

.getElementByName("8+_+1").Value = Sh.Range("I" & 10).Value

J'ai aussi essayé sans succès :

Code:

.getElementByName("8+_+1").Value = Sh.Range("I10").Value

Par ailleurs, la page Internet sécurisée a une adresse du genre :

https://commande.bureaudelatraductio...31643261393634

avec un paquet de chiffres qui peuvent probablement être différents d'une visite à l'autre (je ne suis pas sûr) alors je ne pourrais pas spécifier l'adresser complète ..

Des idées ?

Merci !!