copier données de IE vers excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : copier données de IE vers excel

chico95

Bonjour a tous, je suis au boulot et j'ai un problème urgent...

Voila, j'aimerais copier les éléments de internet explorer et les copier dans excel...
Je récupère dans excel, des éléments d'une base de données, pour ça pas de soucis, or certains éléments ressortent en HTML et il me les faut en texte...

Le seul moyen que j'ai trouvé pour les convertir est d'enregistrer ces données dans un fichier .html , d'ouvrir ce fichier, et de copier-coller les données du fichier ouvert dans excel, et tout ceci via une macro VBA !!!

Pour le début pas de soucis, là ou je coince c'est au moment de copier-coller les données se trouvant sur IE jusqu'à excel... J'ai essayé les SendKeys, mais ils ne marchent pas !

HELP !!

voila mon code :

Code :

intFic = FreeFile
Open "C:\test.html" For Output As intFic
Print #intFic, Sheets("efront_datasheet" ).Range("N" & row_datasheet)
Close intFic
Dim ie As Object
Set ie = CreateObject("InternetExplorer.application" )
ie.Navigate ("C:\test.html" )
ie.Visible = True
'Copy datas from ie
Application.SendKeys "^a^c"
ie.Quit
Sheets(template).Select
Range("F" & row_template + 8 & ":" & "J" & row_template + 10).Select
Application.SendKeys "^v"

Ce que j'ai essayé pour copier les données ne fonctionne pas...
Merci !!

Publicité

chico95

Petit up...merci !

otobox

Maison fondée en 2005

Je n'ai pas trop de solution à t'apporter, mais en lisant ton code pour rapatrier les données de IE vers Excel, je me dis que tu ne suis pas le bon chemin en faisant un copier-coller.
Il y a des procédures pour télécharger des données sur internet vers Excel :
http://excel.developpez.com/faq/?p [...] sTableHtml
ou directement sur le site de Microsoft :
http://msdn.microsoft.com/fr-fr/li [...] 11%29.aspx

Je complète mon message avec le code trouvé sur la page de microsoft et qui fonctionne très bien chez moi :

Sub URL_Static_Query()

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://forum.hardware.fr/hfr/Programmation/VB-VBA-VBS/copier-donnees-excel-sujet_127424_1.htm#bas", _
Destination:=Range("a1" ))

.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
End Sub

Bon courage

Message édité par otobox le 19-02-2010 à 00:33:46

---------------
OtObOxBlOg - - - Etre seul à avoir tort c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons

chico95

Merci beaucoup...je vais essayer !

Mais j'ai peut être trouvé une autre solution :

En faite il me manque les balises <html><body></body></html> pour que excel puisse le lire directement sans passer par IE !

Message édité par chico95 le 19-02-2010 à 10:20:49

FORUM HardWare.fr

Programmation

VB/VBA/VBS

copier données de IE vers excel

Sujets relatifs
Probleme incompatibilité excel 2010	Script pour recuperer des données dans une page .htm
Rendre un diapo cliquable vers un lien	Je n'arrive pas à le faire avec Excel seul.
Graphe sur excel	Access vers excel
Applet vers salon IRC	TUTO/COURS apprendre excel/vba
validation modele conceptuel de données
Plus de sujets relatifs à : copier données de IE vers excel

Page générée en 0.036 secondes