Forums XLPages

Excel & VBA Forum principal [résolu] récuperation d'une page web

récuperation d'une page web
#1
Slijack
Aspirant XLPages

Inscription: 22/11/2011
De Champeaux (Seine et Marne)

Messages: 21

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 22-11-2011 22h41
Bonsoir à tous !
je suis tous nouveau sur le forum et novice en langage VBA
j'ai un code qui récupère les données d'une page web "https://www.fdj.fr/jeux/euromillions/tirage"
le problème est qu'il créer une nouvelle feuille a chaque fois et moi je voudrai qu'il copie les données dans l'onglet "DonnéesWeb"
je joins mon fichier
je vous remercie d'avance pour l'aide apportée

Pièce jointe:
xlsm euromillions1.xlsm   [ Taille: 50.23 Ko - Téléchargements: 562 ]
"Le plus lent à promettre est toujours le plus fidèle à tenir."
Hors Ligne
 Rapport   Haut 

Re: récuperation d'une page web
#2
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 23-11-2011 00h34
Salut le forum

Tiens, Slijack vient de déménagé 

Code modifié
ActiveSheet.Cells.ClearContents
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://www.fdj.fr/jeux/euromillions/tirage", Destination:=Range( _
        "A1"))
        .Name = "search?hl=fr&q=fdj="
        .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
Hors Ligne
 Rapport   Haut 

Re: récuperation d'une page web
#3
Slijack
Aspirant XLPages

Inscription: 22/11/2011
De Champeaux (Seine et Marne)

Messages: 21

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 23-11-2011 02h11
bonsoir Mytå

tout d'abord merci pour ta réponse, mais ton code colle les données sur l'onglet Euro Millions et non sur l'onglet DonnéesWeeb je ne sais pas comment faire pour modifier cela

J'ai pas déménagé j'explore une autre partie du monde de la toile qui finalement est pas si grande que cela.

enfin j'espère que tu pourras m'aider pour mon problème

Merci d'avance et bonne nuit à+
Edité par Slijack le 23/11/2011 18:00:07
"Le plus lent à promettre est toujours le plus fidèle à tenir."
Hors Ligne
 Rapport   Haut 

Re: récuperation d'une page web
#4
Mytå
Accro XLPages

Inscription: 17/08/2007
De Québec, Canada

Messages: 180

Système d'exploitation:
PC
Version Excel utilisée:
Excel 2003, 2007 (FR) & MsProject 2003
Posté le : 24-11-2011 02h51
 Re le forum

Je croyais que tu lançais la macro depuis la feuille "DonnéeWeb"
Sub Macro3()
With Sheets("DonnéeWeb")
  .Select
  .Cells.ClearContents
    With .QueryTables.Add(Connection:= _
        "URL;https://www.fdj.fr/jeux/euromillions/tirage", Destination:=Range( _
        "A1"))
        .Name = "search?hl=fr&q=fdj="
        .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
End With
End Sub
Hors Ligne
 Rapport   Haut 

Re: récuperation d'une page web
#5
Slijack
Aspirant XLPages

Inscription: 22/11/2011
De Champeaux (Seine et Marne)

Messages: 21

Système d'exploitation:
PC
Version Excel utilisée:
2010
Posté le : 24-11-2011 22h08
Bonsoir Mytä
Avec se nouveau code je saurai comment diriger les données récupérées sur une page Web.
merci pour tout

Edité par Slijack le 25/11/2011 17:14:53
"Le plus lent à promettre est toujours le plus fidèle à tenir."
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes