Importation page web

[NICOALBERT]

Bonjour,

J'ai un souci d'importation de page web dans excel.
J'utilise une macros mais elle plante à chaque fois à cause de l'adresse qui contient un point d'interrogation.

Je n'arrive pas à trouver de solution. pouvez vous m'aider merci d'avance


Voici la macros que j'utilise(que j'ai récupérer sur le web)

Sub Mois1()

With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.geny.com/reunions-courses-pmu?date=2008-01-01",Destination:=Range("A15"))

.Name = "GENY.COM"
.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 Sub

 

[kjin]

Re : Importation page web

Bonjour et bienvenu,
Aucun pb rencontré hormis
.WebDisableRedirections = False
que j'ai désactivé car non géré sous xl2000
A+
kjin

 

[NICOALBERT]

Re : Importation page web

bonjour,

en faite la macros comprend 31 jours. et au bout d'un moment j'ai ce message d'erreur:

erreur d'exécution '1004':

Fichier inaccessible. Essayer l'une des opération suivantes:

. Vérifier que le fichier spécifier existe
. Vérifier que le dossier dans lequel se trouve le fichier n'est pas en lecture seule
. Vérifier que le nom du fichier ne comporte pas les caractères suivant:!<>?: ni*

donc je ne comprend pas

 

[kjin]

Re : Importation page web

re,
Un extrait du fichier avec la macro complète serait bienvenu
A+
kjin

 

[NICOALBERT]

Re : Importation page web

voici en faite la macro complète

Sub Mois1()



With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.geny.com/reunions-courses-pmu?date=2008-01-01",Destination:=Range("A15"))

.Name = "GENY.COM"
.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
'
With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.geny.com/reunions-courses-pmu?date=2008-01-02",Destination:=Range("F15"))

.Name = "GENY.COM"
.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

With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.geny.com/reunions-courses-pmu?date=2008-01-03",Destination:=Range("K15"))

.Name = "GENY.COM"
.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 Sub

 

[kjin]

Re : Importation page web

Re,
Si tu veux bien édité ton post et effacer, se serait sympa, merci
Je n'ai toujours pas de pb avec le code
Tu peux le simplifier

Sub Mois1()
For i = 1 To 31
    Dat = Format(i & "/01/2009", "yyyy-mm-dd")
    With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.geny.com/reunions-courses-pmu?date=" & Dat, Destination:=Cells(15, i * 6))
        .Name = "GENY.COM"
        .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
Next
End Sub

Ou bien récupérer le mois dans une cellule et boucler sur le nombre de jour de ce mois
A+
kjin

 

[NICOALBERT]

Re : Importation page web

Qu'est ce que tu entend par "édité ton post et effacer"

et merci pour le code.

 

[NICOALBERT]

Re : Importation page web

moi je tourne sous excel 2003 est ceque sa peut jouer?

 

[NICOALBERT]

Re : Importation page web

Je suis desoler mais j'ai toujours le même problème.

pourquoi sur excel 2000 sa fonctionne et pas sur excel 2003?

 

[kjin]

Re : Importation page web

Bonjour,
Lorsque tu est connecté, dans ton précédent message tu as un bouton "Modif" en bas à droite; efface toutes les lignes inutiles de ton message, la macro en l'occurence.
Je n'ai pas de soucis avec la macro, donc le pb est ailleurs; joint ton fichier allégé pour y voir plus clair
En outre, je n'avais pas bien compris l'incrémentation de la colonne cible

'...,Destination:=Cells(15, ((i - 1) * 5) + 1))

A+
kjin

 

[NICOALBERT]

Re : Importation page web

Bonjour KJIN,

J'ai essayer votre apliction au début elle fonctionnait bien et ensuite toujours ke même problème.

Je pense que le problème est du au temps de connection au site qui doit être trop long , mai je ne sais pas comment faire pour attendre la connection à la page avant de poursuivre la macro.

je vous remercie énormément pour cette application et au temps que vous avez passé pour le réalisé.

Cordialement.

 

[GCFRG]

Re : Importation page web

salut,
place ceci avant de pousuivre ta macro

Do Until .readyState = READYSTATE_COMPLETE
DoEvents
Loop

Gilbert


GC

 

[kjin]

Re : Importation page web

Bonsoir, bonsoir Gilbert,

Gilbert :
- DoEvents pourquoi pas mais je ne vois pas en quoi ça résoud le pb
- .readyState, là je vois pas du tout, d'autant que je suis sous FFox
Je suis pas très doué, je précise

Nico :
As tu essayé

On Error Resume Next 'au début de la procédure

Le pb c'est que je n'arrive pas à reproduire ton soucis et donc pour les tests 😱
A+
kjin

 

[GCFRG]

Re : Importation page web

Bonjour, nicoalbert,kjin, vous pouvez jetez un coup d'oeil su mon fichier, j'utilise une macro pour me connecter sur 1 site internet,et récuperer les infos qui m'interessent.
un extrait de mon code:
Adresse est la variable qui contient L'EURL du site

    Set IE = CreateObject("internetExplorer.Application")
    With IE
        .Visible = True
        .Silent = True
        .navigate Adresse
        Do Until .readyState = READYSTATE_COMPLETE
            DoEvents
        Loop 'attend la fin du chargement
        nFile = FreeFile

boucle tant que la page n'est pas chargée entierement, puis exécute le reste de la macro

https://www.excel-downloads.com/thr...e-html-dans-une-feuille-excel-via-vba.116215/

ou ici également j'y ai trouvé une partie du code que j'utilise, mis en ligne par MichelXld que je salue bien bas, grace à lui j'ai résolu en partie mon problème.

https://www.excel-downloads.com/threads/ref-wiki-page-7-de-michelxld.92375/

Bonne journée Gilbert.

 

[NICOALBERT]

Re : Importation page web

Bonjour,

je fait de nouveau appel à vous , j'ai essayer tous les ce que vous m'avez proposer mais sa ne marche toujours pas. soit sa marche sur un mois complet et ensuite sa ne marche plus , ou je n'arrive pas du tout à importer.

je vous joint le fichier pour voir ou sa coince, juste pour infos je tourne sous Vista et internet Exploreur.

Cordialement.