Discussion :

[skipeemed]

Bonjour,

Comme vous l'avez compris je veux allouer à chaque donnée dans une cellule d'un tableau d'un fichier excel un emplacement dans un formulaire qui se trouve dans le web.

Est ce que c'est possible et si c'est le cas merçi de m'aider.

Cordialement,
SKIP

[mercatog]

Une exemple
Activer la référence Microsoft Internet Controls

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
Sub IE_ATTENTE(ByVal IE As InternetExplorer)
 
Do While IE.readyState <> READYSTATE_INTERACTIVE
    DoEvents
Loop
Do While IE.readyState <> READYSTATE_COMPLETE
    DoEvents
Loop
End Sub
 
Sub REMPLISSAGE()
Dim IE As New InternetExplorer
Dim Sh As Worksheet
 
Const stURL As String = "http://www.xxx.yyy"
 
IE.navigate stURL
IE.Visible = True
IE_ATTENTE IE
Set Sh = ThisWorkbook.Worksheets("BASE")
With IE.Document
'MATRICULE
    .getElementsByName("Stagiaires_CIn").Item.Value = Sh.Range("A1").Value
'SEXE (Liste M/F)
    .getElementsByName("v_sexestag").Item.Value = Sh.Range("B1").Value
'NOM & PRENOM
    .getElementsByName("Stagiaires_nom").Item.Value = UCase(Trim(Sh.Range("C2").Value))
'ADRESSE
    .getElementsByName("Stagiaires_Adresse").Item.Value = UCase(Trim(Sh.Range("D2").Value))
'VILLE (Liste)
    .getElementsByName("Stagiaires_ville").Item.Value = Sh.Range("E2").Value
'DATE DE NAISSANCE
    .getElementsByName("Stagiaires_Datenaiss").Item.Value = Format(CDate(Sh.Range("H2").Value), "dd/mm/yyyy")
End With
End Sub

les .getElementsByName("toto") correspondent au nom de champs de ta page web (regarde le code source de ta page pour dénicher ces noms)

[skipeemed]

Bonjour Mercatog,

Qu'est ce que je dois changer dans le code, moi à ce que je vois les éléments à changer sont:
Le nom du site internet qui est "http://www.xxx.yyy".
Le nom de la feuille qui est "BASE".
Et les noms des éléments que je dois faire rentrer dans le formulaire comme:
"Stagiaires_CIn","v_sexestag","Stagiaires_nom","Stagiaires_Adresse",etc...

Est ce que c'est bon?

Et merçi d'avance.
SKIP

[mercatog]

Oui c'est ça. et aussi les cellule que tu veux exporter vers ta page web

[skipeemed]

Bonjour,

J'ai un problème c'est que quand j'exécute la macro il y a une erreur de compilation qui survient : "Type défini par l'utilisateur non défini". Et il fait fait à la première ligne du code c'est à dire:

Code :

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

Sub IE_ATTENTE(ByVal IE As InternetExplorer)

Vous savez pas de quoi s'agit il exactement?

Cdt,
SKIP

[mercatog]

Activer la référence Microsoft Internet Controls

tu n'avais pas lu cette ligne