Actualiser une page web sur excel [Résolu]

Signaler
Messages postés
110
Date d'inscription
lundi 12 décembre 2011
Statut
Membre
Dernière intervention
6 septembre 2020
-
Messages postés
7275
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 février 2021
-
Bonjour…
Comment actualiser une page web (une course du PMU avec les cotes des chevaux) à partir d'Excel.
Mon navigateur est IE11.
J'ouvre bien la page web du PMU sur une course à partir de "DONNEES" puis "A PARTIR DU SITE WEB",… la page de la course apparait bien, je fais bien la sélection de la page entière. Mais lorsque j'importe sur Excel, seulement un texte qui est juste le bas de cette page PMU…. avec en dernière ligne la mention "Le site pmu.fr nécessite l'activation de javascript dans votre navigateur".
Or javascript est bien activé dans le navigateur

Merci de votre aide
Bonne journée

7 réponses

Messages postés
14329
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 février 2021
806
bonjour,
tu ne nous donnes aucune information précise, ni ton code, ni ton fichier, ni description de comment se fait l'importation.

comme tu ne nous donnes pas le contexte, je suppose que c'est un nouveau code qui n'a jamais fonctionné. est-ce exact?
Messages postés
110
Date d'inscription
lundi 12 décembre 2011
Statut
Membre
Dernière intervention
6 septembre 2020
3
salut yg-be... merci pour ton intérêt à la question.

Dans excel, à partir du chapitre "DONNEES" puis "A PARTIR DU SITE WEB", après avoir indiqué l'url de la page web cherché, il suffit de sélectionner la page entière comme demandé par excel puis de cliquer sur le bouton "importer"
Il s'agit d'une procédure proposée par excel et non pas d'une programmation.

Je l'utilisais une dizaine d'année auparavant
Messages postés
14329
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 février 2021
806
peux-tu partager le lien vers le site?
Messages postés
110
Date d'inscription
lundi 12 décembre 2011
Statut
Membre
Dernière intervention
6 septembre 2020
3
Messages postés
110
Date d'inscription
lundi 12 décembre 2011
Statut
Membre
Dernière intervention
6 septembre 2020
3
Messages postés
110
Date d'inscription
lundi 12 décembre 2011
Statut
Membre
Dernière intervention
6 septembre 2020
3
voici le texte qui apparait au lieu de la page avec la course




Voir la version mobile
Skip to main content
Où parier ?
PMU entreprise
Entraide
Home
Programme et résultats
Promotions
MyPMU
Comment parier ?
Programme et résultats
Pronostic du Quinté+ du jour
Actualités
Live et Replay
Calendrier
Blog Hippique
Journal de la course
Actualités sur les courses
Pronostic du Quinté+ du jour
Calendrier des reunions
Mon compte
Ouvrir un compte Carte PMU
Découvrir la Carte PMU
Aide sur le compte PMU
Les points de vente PMU
Rechercher un point de vente
Comment parier en point de vente ?
Application mobile My PMU
Entreprise
Qui sommes-nous ?
Ressources Humaines
Espace Presse
Entreprise
Carrières
Infos légales
Aide
Contact
Ouvrir un compte
Nouveau Quinté+
Blog hippique
Pronostic Foot
Home
Javascript désactivé
Le site pmu.fr nécessite l'activation de javascript dans votre navigateur.
Messages postés
7275
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 février 2021
616
Bonjour,

Je me suis servi de l'enregistreur de macro , tu n'as qu'a essayer ce code:

Option Explicit
Sub Macro1()
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://www.zeturf.fr/fr/course/2020-09-05/R1C1-vincennes-prix-emile-wendling/turf" _
        , Destination:=Range("$A$1"))
        .Name = "turf"
        .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
    ActiveWindow.SmallScroll Down:=9
End Sub

Messages postés
110
Date d'inscription
lundi 12 décembre 2011
Statut
Membre
Dernière intervention
6 septembre 2020
3
Bonjour cs_Lepivert...
Bien essayé ce code pour Zeturf, cependant les cotes (dernières colonnes) n'apparaissent pas. J'ai le même résultat en suivant la procédure d'excel (chapitre "DONNEES" puis "A PARTIR DU SITE WEB")
Pour le PMU ça ne marche pas, toujours le même texte indiqué ci-dessus.

Peut-être une "activation" dans mon paramétrage qui manque, je ne sais pas !!?

En tout cas sympa ton temps passé à m'aider.

J'ai surtout besoin du PMU

Bonne journée
Messages postés
7275
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
25 février 2021
616
Cela provient certainement de ton navigateur, car cela fonctionne très bien chez moi avec Google Chrome!

voir ceci pour les dernières mises à jour de IE11:

https://support.microsoft.com/fr-fr/topic/ex%C3%A9cuter-la-derni%C3%A8re-version-d-internet-explorer-11-ea628df4-50ce-8019-f9f4-468e39685cea

sinon passe à Edge ou tout autre navigateur

@+ Le Pivert