Discussion :

[Banosjo]

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 :

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

<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 :

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
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 !!

[mercatog]

Bonjour
Essaies comme ceci

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
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

[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 :

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

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

J'ai aussi essayé sans succès :

Code :

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

.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 !!