Bonjour  
 
Je suis débutant  ^^et ....
Je dois allez chercher un dossier dans un serveur grâce une macro ....
 
je dois faire à  l'aide d'un bouton à  ouvrir  la page internet ... inscrire un nom d'utilisateur , et un  code , puis une fois dedans le serveur allez chercher le contenu d'un  dossier ...
 
Pour l'instant j'arrive juste à ouvrir la page internet ...( ce qui est deja pas mal ^^)
 

Private Sub CommandButton4_Click()
 
'L'utilisateur vient sélectionner le répertoire
 
Dim a
a = Shell("C:\Program Files\Internet Explorer\iexplore.exe http://controld.gicm.net/bmc-ctd-w [...] ndow", vbNormalFocus)
 
End Sub

 
merci de votre aide  
cdt

Il y a sendKeys pour taper du texte mais faut arriver à mettre le focus là où il faut et ça j'ai aucune idée sur comment faire...

euh pk ne pas essayer plutot de créer un objet IE?
du genre :

Set ie = CreateObject("InternetExplorer.Application" ) 
ie.Navigate ("tonadresse.html" ) 
Do While ie.Busy 
WScript.Sleep (100) 
Loop

du coup plus de difficulté pour s'y adresser non?

Je suis pas un beau gosse de vb  
 
un objet ie ?  
dans quel mesure cela facile le truc ?
comment faire pour entrer le nom de l'utilisateur et le code ?
puis pour continuer la recherche sur le serveur ?
 
merci

L'interet d'avoir un objet Ie c'est de passer outre le besoin du focus
Dès que tu veux t'adresser à ta page internet tu ferra objetie. quelque chose
Je ne connais pas trop cette objet donc faut chercher et en ce moment j'ai pas trop le temps
objetie.Document.jesaispasquoi
Devrai te permettre d'obtenir tout ce que tu veux
Il faudrait cherche de la doc sur l'objet
Je ne sais pas si c'est toi qui gère le site que tu vises mais en gros je crois qu'il te suffit de faire des ie.Document.leurid. Si tu ne sais pas ce qu'est un id en html je te renvoie au cours du siteduzero qui sont très bien fait
 
Il me semble que ce site réponds à tes besoins
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#mdp
 
sinon google  

re merci bcp pour le sit mais j'arrive pas à rentrer toto et zaza sur le sit ud mec , dou cela provient ?
 
ie.Navigate ("http://jacxl.free.fr/cours_xl/mdp.html" )  
ie.visible=true  
Do While ie.Busy  
wscript.sleep (100)  
Loop  
wscript.sleep (2000)  
Set dct = ie.Document.parentwindow.frames.Item(1).frames.Item(1).document  
dct.frm.user_name.value="toto"  
dct.frm.pass.value="zaza"  
dct.frm.submit  

J'ai le choix entre:
- un gros coup de pas de moule
- me demander si tu ne vaux même pas la corde pour te pendre    
 
mon code

[#ff0000]Set ie = CreateObject("internetexplorer.application" ) [/#ff0000]
ie.Navigate ("http://jacxl.free.fr/cours_xl/mdp.html" )  
ie.visible=true  
Do While ie.Busy  
    wscript.sleep (100)  
Loop  
wscript.sleep (2000)  
Set dct = ie.Document.parentwindow.frames.Item(1).frames.Item(1).document  
dct.frm.user_name.value="toto"  
dct.frm.pass.value="zaza"  
dct.frm.submit

fonctionne très bien chez moi
Donc si comme je le présume tu as oublié le  

Set ie = CreateObject("internetexplorer.application" )

T'as le droit à mon pied dtc
Sinon va falloir me présicer ton erreur  

non je l'avais mis lol quand même  
Il m'affiche une erreur  
 
membre introuvable (j'ai enlevé l'histoire si occupé attendre ^^ il aimait pas lol )
 
Set dct = ie.document.parentwindow.frames.Item(1).frames.Item(1).document
 
 
merci de maide lol  
Au faite je m'avance deja sur les questions ... si ca marche,  je l'espere , c'est uniquement pour des disposition super classique non ?  
ca marchera pour le sit ou je dois aller ?  
( cf 1er post en bleu )  
 
merci , ( j'attend un peu pour mon coup de pied , ma corde , mon flingue...etc) ^^

Alors je ne comprends plus grand chose
Si tu copie exactement ce code

Set ie = CreateObject("internetexplorer.application" ) 
ie.Navigate ("http://jacxl.free.fr/cours_xl/mdp.html" )  
ie.visible=true  
Do While ie.Busy      
    wscript.sleep (100)  
Loop  
wscript.sleep (2000)  
Set dct = ie.Document.parentwindow.frames.Item(1).frames.Item(1).document  
dct.frm.user_name.value="toto"  
dct.frm.pass.value="zaza"  
dct.frm.submit

Et que tu nommes ton fichier jenesaisquoi.vbs
Que se passe-t-il?  
 
 
Edit : o put*** de  m**** je sens que tu fais du vba e que je donne des conseils en vbs  

lol oui je fais que du vba ,et je viens te passer ma corde ( humuor ) , mais je prend tout ce qui marche lol , si ton truc marche dans mon usual form ... mais non lol

re
je viens de tester ce code là dans mon excel

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 07/08/2009 par 568341
'
 
'
Set ie = CreateObject("internetexplorer.application" )
ie.Navigate ("http://jacxl.free.fr/cours_xl/mdp.html" )
ie.Visible = True
Do While ie.Busy
 
Loop
Set dct = ie.document.parentwindow.frames.Item(1).frames.Item(1).document
dct.frm.user_name.Value = "toto"
dct.frm.pass.Value = "zaza"
dct.frm.submit
End Sub

et ca marche
l'inconvenient par rapport au précédent, c'est que tant que la page internet n'est pas chargée, Excel suce le CPU
Je suis très étonné que la pause ne marche pas sous excel.
Si t'as le temps regarde comment faire une pause en vba, là perso je n'ai malheureusement pas le temps
Par contre n'enleve surtout la boucle While
sinon tu essayes d'acceder à la page ie alors qu'elle n'est pas correctement chargée en mémoire d'ou des comportements imprévisible

Bonjour à tous,
Puis-je avoir le code qui permet de copier le champ de cellules des 4 lignes(A:D) tant que ceux de la ligne D ne sont pas vides vers un fichier "synthèse.xls" (et répéter la même chose avec plusieurs fichiers de même format)
Merci d'avance.

Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 07/08/2009 par 568341
'
 
'
Set ie = CreateObject("internetexplorer.application" )
ie.Navigate ("http://jacxl.free.fr/cours_xl/mdp.html" )
ie.Visible = True
Do While ie.Busy
 
Loop
Set dct = ie.document.parentwindow.frames.Item(1).frames.Item(1).document
dct.frm.user_name.Value = "toto"
dct.frm.pass.Value = "zaza"
dct.frm.submit
End Sub

Bonjour,
avec peut-être un "do events" (vérifier la syntaxe)  en ligne 12