Ce navigateur n’est plus pris en charge.
Effectuez une mise à niveau vers Microsoft Edge pour tirer parti des dernières fonctionnalités, des mises à jour de sécurité et du support technique.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Bonjour
Cette routine fonctionnait correctement sous XP et depuis que je suis sous W8.1 elle ne fonctionne plus. J'ai déjà posé cette question il y a quelque temps, si il y a du nouveau à ce propos; bien aimable de me tenir au courant. Merci
Sub CherchecodeSource()
Dim CodeSource As String, IE As Object
Dim TempFile As String
On Error Resume Next
Feuil10.[A:A].ClearContents
Set IE = CreateObject("InternetExplorer.application")
TempFile = "c:\Fred.txt"
IE.Visible = False ' Ou True
IE.navigate URL:="http://www.tierce-magazine.com/accueil/pid107-les-reunions-du-jour.html?day=tomorrow"
Do Until IE.ReadyState = 4
DoEvents ' soit la boucle ne sort pas, soit elle sort et "Laligne" est vide dans la boucle suivante
Loop
CodeSource = IE.document.body.innerHTML
Open TempFile For Output As #1
Print #1, CodeSource
Close #1
Open TempFile For Input As #1
Do While Not EOF(1)
Input #1, LaLigne
a = a + 1
Feuil10.Range("A" & a) = LaLigne
If a > 20 And Application.CountA([IDcours!A:A]) = 0 Then
Exit Do
End If
Loop
Close #1
Kill TempFile
IE.Quit
Set IE = Nothing
End Sub
Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.
Bonjour
Comme je l'ai indiqué le code tourne avec Office 2010 et IE11/w7.
Par contre on récupère du texte html et non les valeurs qui vous intéressent.
Je ne peux pas aller plus loin n'ayant plus ni IE8, ni Excel 2007.
J'ai un problème avec ton lien (j'ai un message comme quoi je me suis trop servi de OneDrive et je suis puni pour 24 heures). J'aurai aimé voir le résultat final après :
Du texte, je retire ensuite tous les nombres placés après le mot "Race_ID" qui sont affiliés à chaque course.
Daniel
Ce que je t' ai transmis est le résultat d'un clic droit>code source>tout sélectionner>copier sur la page HTML, il n'y a pas malheureusement d'amélioration en VBA. Je sais que sous XP j'ai eu ce problème de même nature et aprés une manip sur IE cela s'est réglé mais je ne me souviens plus de quelle manip il est question ou alors, je n'ai pas retrouvé sur IE11 le menu qu'il y avait sur IE8.
Mais j'ai toujours espoir.
Et qu'est-ce que tu obtiens, au final ?
Bonjour,
C'est vrai que le temps de connexion est long. Est-ce que tu as coché la référence "Microsoft Internet Coltrols" ? Voici ce que j'obtiens avec Excel 2007 et Windows 10 :
§§ Oui Microsoft Internet Controls est bien coché
Internet Explorer est hors de cause, j'utilise Chrome.
§§ Ah oui et mon code VBA, il utilise bien IE, lui!
J'obtiens le résultat suivant :
Est-ce que tu peux poster un exemple du résultat souhaité.
Du texte, je retire ensuite tous les nombres placés après le mot "Race_ID" qui sont affiliés à chaque course.
Daniel