[VBA] copier données de IE vers excel
Chico95
-
elbosador -
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 !!
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:
- [VBA] copier données de IE vers excel
- Liste déroulante excel - Guide
- Trier des données excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Comment copier une vidéo youtube - Guide
2 réponses
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
J'ai trouvé çà.
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://tonsite.fr", _
Destination:=Range("a1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
End With