Actualiser une page web sur excel

Résolu/Fermé
dadacourse Messages postés 128 Date d'inscription lundi 12 décembre 2011 Statut Membre Dernière intervention 5 mars 2023 - 4 sept. 2020 à 08:01
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 - 6 sept. 2020 à 10:45
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

yg_be Messages postés 23223 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 septembre 2024 Ambassadeur 1 537
Modifié le 4 sept. 2020 à 18:37
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?
0
dadacourse Messages postés 128 Date d'inscription lundi 12 décembre 2011 Statut Membre Dernière intervention 5 mars 2023 3
5 sept. 2020 à 08:10
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
0
yg_be Messages postés 23223 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 24 septembre 2024 1 537
5 sept. 2020 à 09:45
peux-tu partager le lien vers le site?
0
dadacourse Messages postés 128 Date d'inscription lundi 12 décembre 2011 Statut Membre Dernière intervention 5 mars 2023 3
5 sept. 2020 à 10:40
0
dadacourse Messages postés 128 Date d'inscription lundi 12 décembre 2011 Statut Membre Dernière intervention 5 mars 2023 3
5 sept. 2020 à 10:41
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
dadacourse Messages postés 128 Date d'inscription lundi 12 décembre 2011 Statut Membre Dernière intervention 5 mars 2023 3
5 sept. 2020 à 10:46
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.
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
5 sept. 2020 à 11:10
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

0
dadacourse Messages postés 128 Date d'inscription lundi 12 décembre 2011 Statut Membre Dernière intervention 5 mars 2023 3
6 sept. 2020 à 07:38
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
0
cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
6 sept. 2020 à 10:45
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
0