copier données de IE vers excel

Marsh Posté le 03-02-2010 à 09:41:01

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

Reply

Marsh Posté le 03-02-2010 à 09:41:01

Reply

Marsh Posté le 18-02-2010 à 10:03:43

Petit up...merci !

Reply

Marsh Posté le 19-02-2010 à 00:24:30

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

Reply

Marsh Posté le 19-02-2010 à 10:20:00

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

Reply

copier données de IE vers excel

Sujets relatifs:

Leave a Replay