programmer un code vba qui automatise le virement de données d'un tableau excel à un formulaire dans le web

Version imprimable

20/01/2011, 16h12
skipeemed

programmer un code vba qui automatise le virement de données d'un tableau excel à un formulaire dans le web

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

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

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

21/01/2011, 10h21
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
21/01/2011, 15h03
mercatog

Oui c'est ça. et aussi les cellule que tu veux exporter vers ta page web
24/01/2011, 11h07
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:

Sub IE_ATTENTE(ByVal IE As InternetExplorer)

Vous savez pas de quoi s'agit il exactement?

Cdt,
SKIP
24/01/2011, 11h14
mercatog

Citation:

Activer la référence Microsoft Internet Controls

tu n'avais pas lu cette ligne
25/01/2011, 15h54
skipeemed
ça y est ça marches.

Juste une chose: quand j'affecte à une liste déroulante dans le formulaire la valeur qu'elle doit avoir, il y'a d'autres informations du formulaire qui s'affichent. Mais quand je fais l'affectation par Macro, les autres informations ne s'affichent pas.
Normalement le code source de la page quand je procède en macro c'est celui là:

Code:

<option value="1">pc portable</option>

Mais quand je le fais manuellement le code source est :
Code:

1 2 <option value="1" selected="selected">pc portable</option>
Vous ne saurez pas comment faire pour intégrer cette opération directement dans la Macro.

et merçi d'avance.

Cdt,
SKIP
25/01/2011, 16h54
mercatog

essaie juste après l'envoi de la valeur de ta listbox d'ajouter

Code:

IE_ATTENTE IE

pour attendre la mise à jour des autres champs
25/01/2011, 17h26
skipeemed

Non ça marches pas.

En fait moi je veux que les informations complémentaire du formulaire s'affichent, pour que je puisse procéder au virement des valeurs qui sont dans excel vers le formulaire.
Parce qu'en premier lieu, je dois choisir une première catégorie dans une liste, après une deuxième liste s'affiche qui contient des sous catégories et j'en choisis une, et en dernier 2 boutons s'affiche et j'en sélectionne un. Enfin le formulaire dont les informations doivent être importés du fichier excel s'affichent.

Voilà!
Merçi de m'éclairer.
SKIP
25/01/2011, 18h36
mercatog

Je ne peux pas deviner plus, ton site est confidentiel ou public? tu peux mettre le lien?
26/01/2011, 10h24
skipeemed

Bonjour,

Désolé, mais je ne peux pas c'est confidentiel.

Mais vous ne savez pas de quoi il s'agit. Normalement je vous ai bien expliqué le problème:

Quand je sélectionne manuellement la catégorie, la sous catégorie s'affiche.
Mais quand je le fais avec la Macro, la sous catégorie ne s'affiche pas.

Cdt,
SKIP

Et comment tu sélectionne un item de ta liste déroulante?
je crois que tu devrais mettre
Code:

1 2 3 .getElementsByName("NomdeTaListe").Item.Value = 1' Il faut mettre "l'index ou l'id" et nom la valeur affichée 'Pour le pc-portable la valeur à mettre est 1 IE_Attente IE 'pour attendre la mise à jour de la sous Liste liée à ta liste de départ
Ce sont là des suppositions

26/01/2011, 12h26
skipeemed
Le code qu'il fallait que j'ajoute c'est celui là:
Code:

1 2 3 .Forms(0).submit IE_ATTENTE IE
Merçi encore!!!

Cdt,
SKIP