puis cela (extrait de la charte du forum)La Loterie Nationale gère les droits relatifs aux Données. La Loterie Nationale est autorisée à (faire) modifier ou à supprimer unilatéralement les Données à tout moment. Un tel acte ne constitue aucunement une faute et ne crée pas de précédent.
L’utilisateur dispose exclusivement d’une licence d’utilisation stricte eu égard aux données (Data) dans le cadre de l’utilisation normale du site Internet sur un ordinateur et à des fins privées. Il est interdit à l’utilisateur de copier, de distribuer, d’adapter, de transformer, de traduire, etc. les Données à d’autres fins sans l’autorisation explicite de la Loterie Nationale et, le cas échéant, du titulaire initial des droits de propriété intellectuelle.
Il lui est également interdit de placer un hyperlien renvoyant au site Internet de la Loterie Nationale ou un ‘deep link’ (l’encadrement d’un site internet dans un autre site internet) sans l’autorisation écrite préalable de la Loterie Nationale.
8 - Les demandes de développements relatives à des extractions de données sur des sites interdisant ces pratiques dans leurs conditions générales sont interdites.
ne semble pas compatible avec:Il est interdit à l’utilisateur de copier, de distribuer, d’adapter, de transformer, de traduire, etc. les Données à d’autres fins sans l’autorisation explicite de la Loterie Nationale et, le cas échéant, du titulaire initial des droits de propriété intellectuelle.
juste copier le contenu de leur page
Merci, mais dans ce tirage , en effet les numéros sortis étaient en effet dans la "A73" , mais cela varie à chaque tirage, donc comment retrouver la suite de numéro?
A+
Claudy
Sub Querry_aa()
'Macro écrite par Claudy
'Corrigée le 18/10/2014
Application.ScreenUpdating = False
'source:
Application.ScreenUpdating = False
Feuil1.Visible = True
Sheets(1).Activate
Cells.Select
Selection.ClearContents
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.voleur/fr/toto/kiki" _
, Destination:=Range("A1")) 'adapter avec l'URL réelle
.Name = "lastresults"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Range("A73").Select
'///
Dim var
Dim i&
Dim k&
Dim bool As Boolean
var = ActiveSheet.UsedRange
For i& = 1 To UBound(var, 1)
If Len(var(i&, 1)) > 7 Then
For k& = 1 To Len(var(i&, 1))
If Not IsNumeric(Mid(var(i&, 1), k&, 1)) And Mid(var(i&, 1), k&, 1) <> " " Then
bool = True
Exit For
End If
Next k&
'---
If Not bool Then
ActiveWindow.ScrollRow = i&
Range("a" & i& & "").Select
Exit For
End If
bool = False
End If
Next i&
'///
Exit Sub
End Sub
Dernière modification par Staple1600 Aujourd'hui à 19h31. Motif: maj suite édition