Macro Excel VBA IE - VB/VBA/VBS - Programmation
Marsh Posté le 27-05-2010 à 15:38:59
Hello
Oula oula oula...!!!
Pas besoin de créer un objet IE...
Tu ouvres betement ton fichier Excel, et tu copies ce que tu veux...
Code :
|
Ou tu peux directement enregistrer le dit fichier ailleurs.
Code :
|
Marsh Posté le 27-05-2010 à 15:45:27
oui effectivement je me suis peut etre embarqué dans un chemin compliqué ....
Je teste tes solutions et fais un retour.
Merci
Marsh Posté le 27-05-2010 à 15:54:23
Qd j execute j'ai une erreur sur la ligne Workbooks.Open
Erreur d'execution 1004
Erreur définie par l'application ou par l'objet
Marsh Posté le 27-05-2010 à 15:58:01
Cette erreur est due je pense , et j'ai oublié de le préciser, à une demande d'authentification (user/pwd) sur l'intranet
Marsh Posté le 27-05-2010 à 16:28:42
Tu dois pouvoir les mettre dans l'url
Quelque chose comme ca :
Http://user:mdp@urlIntranet/fichier.xls
Marsh Posté le 27-05-2010 à 16:33:49
non ca marche pas, j'ai essayé cette methode et le système ne comprend pas la syntaxe .....
Marsh Posté le 27-05-2010 à 16:49:50
Alors comment passais tu le mot de passe avant ??
Marsh Posté le 27-05-2010 à 16:53:57
Moi je ferai ca mais ca n'engage que moi :
Code :
|
En fait ouvrir IE ne sert qu'a entrer le mot de passe...
Marsh Posté le 27-05-2010 à 17:01:21
Je viens de me monter vite fait un mini site avec IIS. Mot de passe et user requis...
Quand je fais ca :
Workbooks.Open Filename:="http://.../fichier.xls"
Excel me demande mon user et mon mdp, je les tape, et derriere le fichier s'ouvre bien sans souci...
C'est quoi comme securité ?
Marsh Posté le 27-05-2010 à 17:03:19
avant je faisais ce que tu as automatisé ; à savoir => ouvrir une fenetre IE ou je rentre user + pwd et ensuite je lance ma macro.
je vais tester ta solution
Marsh Posté le 27-05-2010 à 17:06:47
je vais laisser tombé pour ce soir et m'y remettre demain.
merci pour vos contributions
Marsh Posté le 27-05-2010 à 15:09:29
Bonjour,
Dans le cadre d'un projet je souhaite recupérer des données sur Intranet et les copier dans un fichier excel.
Sur l'intranet, j'arrive a charger mon fichier http://......./fichier.xls par contre je n'arrive pas à sélectionner l'ensemble des cellules du fichier ouvert dans IE pour ensuite les copier dans ma feuille Excel ......
QQ a-t-il une solution ou deja rencontré ce probleme ?
Merci.
Voici ma procedure :
Sub ExporterTexte_PageInternetDansCellule()
Dim IE As InternetExplorer
Set IE = CreateObject("InternetExplorer.Application" )
With IE
.Visible = False
.Silent = True
.Navigate "http://....../fichier.xls"
.Visible = True
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop 'attend la fin du chargement
Cells(1, 1) = .Document.DocumentElement.InnerExcel
.Quit
End With
End Sub