Discussion :

[phal2ip]

Bonjour,
je suis en train de créer un fichier Excel qui a besoin d'information tirer d'un site internet protégé par mon mot de passe et j'y accède par Excel en cliquant sur un lien. Je voudrais tout simplement qu'en cliquant sur ce lien, la page internet s'ouvre et mes données et mot de passe s'y inscrivent automatiquement.
Est-ce possible? Et si oui comment.

Merci

[SfJ5Rpw8]

La Méthode dépend de ton site internet , qu'elle allure à la boite de dialogue te permettant la saisie du mot de passe ... "type page html" voir :
Comment piloter Internet Explorer pour envoyer des informations à un site internet ?

[phal2ip]

Bonjour
en fait cela doit être une page HTML avec comme dans toutes les pages de demande de nom d'utilisateur et mot de passe, une simple case pour chacun à remplir (voir image en pièce jointe).
J'ai essayer de rajouter la méthode que vous m'avez soumis mais il ne reconnait pas l'objet
En fait il me marque un message d'erreur "objet requis sur IE", apparemment il ne reconnait pas le WScript. Je rapelle juste que je suis sur Excel 2003.

Code :

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

Set IE = Wscript.CreateObject("InternetExplorer.Application")

Voici une partie de ce que j'ai préparé mais il doit y avoir une erreur.

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
Sub auto_open()
'et ici tu ecris ta ou tes ligne de commande qui lance ta vrai macro"
'Sheets("code Kart").Range("E", 24).Select
'Sheets("code Kart").clic
 
'    On Error GoTo Nexte
    Sheets("code Kart").Select
 
    'cognos
    Range("E22:F22").Select
    'ouverture du lien
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
 
    'Communauté J+1 CS QNE
'    Range("E24:G24").Select
 '   Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
 
Dim IE1
Set IE1 = Wscript.CreateObject("InternetExplorer.Application")
IE1.Visible = 1
IE1.Navigate "http://www.siteintranet.com"
Do While (IE1.Busy)
    WScript.Sleep 10
Loop
Set Helem = IE1.Document.getElementById("vb_login_username")
Helem.Value = "util"
Set Helem = IE1.Document.getElementById("vb_login_password")
Helem.Value = "MdP"
Set Helem = IE1.Document.Forms(0)
Helem.Submit

Merci encore pour tout

[SfJ5Rpw8]

sous excel pas besoin de wScript :

Code :

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

Set IE = CreateObject("InternetExplorer.Application")

[phal2ip]

Super ça marche nickel...

Merci pour tout

Je passe en résolu