si tu comptes récupèrer tes données de “bourins” de cette manière, eh bien c’est tout faux
Donne simplement l’adresse du site (je l’ai vu dans le classeur) et ce que tu veux récupèrer (je suppose chaque jour) car là tu es mal barré
La macro automatique, c’est bien, mais pas pour en faire un roman
Une p’tite macro
regarde avec trés peu de ligne ce que tu récupères
A mettre dans un module
Sub ImportCourses()
Dim Ws As Worksheet
Dim qt As QueryTable
Dim URL As String
URL = "http://www.turfoo.fr/programmes-courses/"
Set Ws = Worksheets.Add
Set qt = Ws.QueryTables.Add( _
Connection:="URL;" & URL, _
Destination:=Range("A1"))
With qt
.RefreshOnFileOpen = True
.Name = "MonTest"
.WebFormatting = xlWebFormattingRTF
.WebSelectionType = xlAllTables
.Refresh
End With
End Sub
Bonjour,
J’ai rajouté un bout de macro sur la tienne pour récupérer les “Réunions du jour”
Mais cela bug plus loin,et comme je ne vois pas la finalité de la recherche
Je te laisse le soins de choisir et de corriger
Morceau de macro rajouté :
'*******************************************************************************
'* 1 faire un point d'arret
'* Reunions du Jour
'*******************************************************************************
Dim NoLigne%, Deb%, Fin%
Range("H1").Select
Cells.Find(What:="Réunions du jour", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Activate
NoLigne = ActiveCell.Row 'Attribue le N° de la ligne
Deb = NoLigne
Cells.Find(What:="Réunions de demain", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Activate
NoLigne = ActiveCell.Row - 1 'Attribue le N° de la ligne
Fin = NoLigne
'******************************************
Range(Cells(Deb, 9), Cells(Fin, 9)).Select 'Plage des Reunions du Jour
'******************************************
Teste avec ta macro “Préparation” ou la modif est faite pour trouver les liens
Ma macro était un exemple et je n’ai pas été plus loin, pour la simple raison que je ne sais pas ce que tu recherches ensuite, une fois les liens ouverts
Dans ta macro non plus, je ne vois pas qu’elles données tu veux récupérer, car elle ne sélectionne que des cellules vides
Laissez tomber non, mais si tu créés une feuille “exemple final”, avec dedans tous ce que tu veux avoir dans les cellules, cela me fera comprendre la finalité de ta demande,
car là, depuis ta macro “préparation”, je ne vois rien qui peut te servir
Crée un onglet que tu nommes "Course du jour"
Place cette macro dans un module
et dis moi si tu as tous les liens désirés
Sub ImportCourses()
Dim Ws As Worksheet
Dim qt As QueryTable
Dim URL As String
Sheets("Course du jour").Activate
Cells.Select
Selection.Delete Shift:=xlUp
URL = "http://www.turfoo.fr/programmes-courses/"
Set Ws = ActiveSheet
Set qt = Ws.QueryTables.Add( _
Connection:="URL;" & URL, _
Destination:=Range("A1"))
With qt
.RefreshOnFileOpen = True
.Name = "MonTest"
.WebFormatting = xlWebFormattingAll
.WebSelectionType = xlAllTables
.Refresh
End With
Range("A3").Select
End Sub