un embryon de réponse sur http://forum.hardware.fr/hfr/Progr [...] 6426_1.htm
Sous VBA : Ajouter une référence à Microsoft Internet Controls et insérer le composant sur une UserForm
puis qqch comme
Sub Bouton1_QuandClic()
UserForm1.WebBrowser1.Navigate "http://forum.hardware.fr/hfr/Programmation/VB-VBA-VBS/importation-sous-sujet_99812_1.htm"
UserForm1.Show
End Sub
|
il restera à balayer la feuille pour récupérer les infos désirées
Sinon par exemple via le Macro Recorder on peut obtenir
Option Explicit
Sub Tst()
Workbooks.Open Filename:="http://forum.hardware.fr/hfr/Programmation/VB-VBA-VBS/importation-sous-sujet_99812_1.htm"
Range("B60:B63" ).Copy
Windows(2).Activate
Range("A1" ).Select
ActiveSheet.Paste
Columns("A:A" ).Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlTop
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("B1" ).Select
End Sub
|
Message édité par kiki29 le 03-01-2007 à 08:59:12
