[VBA] copier données de IE vers excel

Chico95 -  
 elbosador -
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 :


1. intFic = FreeFile
2. Open "C:\test.html" For Output As intFic
3. Print #intFic, Sheets("efront_datasheet" ).Range("N" & row_datasheet)
4. Close intFic
5.
6. Dim ie As Object
7. Set ie = CreateObject("InternetExplorer.application" )
8. ie.Navigate ("C:\test.html" )
9. ie.Visible = True
10.
11. 'Copy datas from ie
12. Application.SendKeys "^a^c"
13. ie.Quit
14. Sheets(template).Select
15. Range("F" & row_template + 8 & ":" & "J" & row_template + 10).Select
16. Application.SendKeys "^v"





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

2 réponses

Chico95
 
Up...en esperant que vous ayez des réponses à m'apporter !

Merci !
0
elbosador
 
Je reponds tard mais si une perso cherche est en à besoin,
J'ai trouvé çà.

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://tonsite.fr", _
Destination:=Range("a1"))

.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
End With
0