Ouvrir sous-écran sur web
Résolu/Fermé
dadacourse
Messages postés
129
Date d'inscription
lundi 12 décembre 2011
Statut
Membre
Dernière intervention
5 mars 2023
-
4 janv. 2015 à 09:28
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 5 janv. 2015 à 16:19
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 15 mars 2023 - 5 janv. 2015 à 16:19
A voir également:
- Ouvrir sous-écran sur web
- Ecran noir pc - Guide
- Retourner ecran windows - Guide
- Double ecran - Guide
- Ouvrir fichier rar - Guide
- Enregistrer son ecran - Guide
6 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
5 janv. 2015 à 07:43
5 janv. 2015 à 07:43
Bonjour,
Pour nous permettre de vous aider dans le développement de votre macro, il nous faudrait déjà savoir comment vous ouvrez cette page Internet. Merci de nous donner des détails (Userform? Webbrowser?) ainsi que le code correspondant...
Pour nous permettre de vous aider dans le développement de votre macro, il nous faudrait déjà savoir comment vous ouvrez cette page Internet. Merci de nous donner des détails (Userform? Webbrowser?) ainsi que le code correspondant...
dadacourse
Messages postés
129
Date d'inscription
lundi 12 décembre 2011
Statut
Membre
Dernière intervention
5 mars 2023
3
Modifié par pijaku le 5/01/2015 à 09:08
Modifié par pijaku le 5/01/2015 à 09:08
Bonjour Franck,
Merci de votre rapide réponse et de votre intérêt à mon problème...
Je suis loin d'être un connaisseur, mais voici la macro (Excel 2007) qui ouvre à l'écran
une course du PMU (depuis IE11)
En A1, l'URL de la course, par exemple :
https://www.pmu.fr/turf/index.html#03012015/R1/C1
Ensuite, je voudrais simplement ouvrir à l'écran le tableau des « Rapports probables » de cette course R1/C1.
(Je copierai l'écran de la même façon que précédemment pour le coller en BB1)
J'espère ces informations utiles pour vous
Merci encore et bonne journée !!
Jean-Luc
Merci de votre rapide réponse et de votre intérêt à mon problème...
Je suis loin d'être un connaisseur, mais voici la macro (Excel 2007) qui ouvre à l'écran
une course du PMU (depuis IE11)
En A1, l'URL de la course, par exemple :
https://www.pmu.fr/turf/index.html#03012015/R1/C1
Sheets("01").Select
ActiveWorkbook.FollowHyperlink Address:="" & [A1].Value
Application.Wait Now + TimeValue("00:00:03")
Application.SendKeys "^a"
Application.Wait Now + TimeValue("00:00:01")
Application.SendKeys "^c"
Windows("Récup Web.xlsm").Activate
Sheets("01").Select
Range("AA1").Select
ActiveSheet.Paste
Ensuite, je voudrais simplement ouvrir à l'écran le tableau des « Rapports probables » de cette course R1/C1.
(Je copierai l'écran de la même façon que précédemment pour le coller en BB1)
J'espère ces informations utiles pour vous
Merci encore et bonne journée !!
Jean-Luc
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
5 janv. 2015 à 09:20
5 janv. 2015 à 09:20
Ce n'est malheureusement pas si simple.
Le "bouton" en question n'est ni un lien, ni un bouton... Il s'agit d'un élément <li> faisant apparaitre, au clic, une <div> contenant une <table>. C'est le contenu de cette table qu'il te faudrait récupérer. Dans l'état des choses, je ne vois malheureusement pas comment...
Le "bouton" en question n'est ni un lien, ni un bouton... Il s'agit d'un élément <li> faisant apparaitre, au clic, une <div> contenant une <table>. C'est le contenu de cette table qu'il te faudrait récupérer. Dans l'état des choses, je ne vois malheureusement pas comment...
dadacourse
Messages postés
129
Date d'inscription
lundi 12 décembre 2011
Statut
Membre
Dernière intervention
5 mars 2023
3
5 janv. 2015 à 09:54
5 janv. 2015 à 09:54
Tant pis et dommage, j'avais espéré...
Si une solution se présentait pour récupérer cette fameuse table, peut-être auprès de tes "amis", je serais bien sûr preneur
Bonne journée... et Bonne année 2015 !!!
Si une solution se présentait pour récupérer cette fameuse table, peut-être auprès de tes "amis", je serais bien sûr preneur
Bonne journée... et Bonne année 2015 !!!
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
Modifié par pijaku le 5/01/2015 à 10:58
Modifié par pijaku le 5/01/2015 à 10:58
Je n'ai pas dit que c'était impossible...
J'ai juste dit que "dans l'état des choses (autrement dit comment ta macro se présentait), ce n'est pas si simple".
Regarde ce que fait ce code, chez toi :
J'ai juste dit que "dans l'état des choses (autrement dit comment ta macro se présentait), ce n'est pas si simple".
Regarde ce que fait ce code, chez toi :
Option Explicit
'sources :
'http://qwazerty.developpez.com/tutoriels/vba/ie-et-vba-excel/
Sub DadaCourse()
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim DivParent As HTMLSelectElement
Dim Enfants As HTMLSelectElement
Dim Petits_Enfants As HTMLSelectElement
Dim Flag As Boolean
IE.Navigate "https://www.pmu.fr/turf/index.html#03012015/R1/C1"
IE.Visible = True
WaitIE IE
Set IEDoc = IE.document
Set DivParent = IEDoc.getElementById("course-info-plus")
For Each Enfants In DivParent.Children
For Each Petits_Enfants In Enfants.Children
If Petits_Enfants.innerText = "Rapports probables" Then Petits_Enfants.Click: Flag = True: Exit For
Next
If Flag Then Exit For
Next
Set IE = Nothing
End Sub
Sub WaitIE(IE As InternetExplorer)
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
End Sub
dadacourse
Messages postés
129
Date d'inscription
lundi 12 décembre 2011
Statut
Membre
Dernière intervention
5 mars 2023
3
Modifié par pijaku le 5/01/2015 à 13:18
Modifié par pijaku le 5/01/2015 à 13:18
Sub essai01()
'
' essai01 Macro
'
'
Option Explicit
'sources :
'http://qwazerty.developpez.com/tutoriels/vba/ie-et-vba-excel/
Sub DadaCourse()
Dim IE As New InternetExplorer
Dim IEDoc As HTMLDocument
Dim DivParent As HTMLSelectElement
Dim Enfants As HTMLSelectElement
Dim Petits_Enfants As HTMLSelectElement
Dim Flag As Boolean
IE.Navigate "https://www.pmu.fr/turf/index.html#03012015/R1/C1"
IE.Visible = True
WaitIE IE
Set IEDoc = IE.document
Set DivParent = IEDoc.getElementById("course-info-plus")
For Each Enfants In DivParent.Children
For Each Petits_Enfants In Enfants.Children
If Petits_Enfants.innerText = "Rapports probables" Then Petits_Enfants.Click: Flag = True: Exit For
Next
If Flag Then Exit For
Next
Set IE = Nothing
End Sub
Sub WaitIE(IE As InternetExplorer)
Do Until IE.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
End Sub
la ligne 27 est surligné et une fenêtre indique:
Erreur de compilation
Type défini par l'utilisateur non défini
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
5 janv. 2015 à 12:30
5 janv. 2015 à 12:30
Oui, il faut activer deux références : « Microsoft Internet Controls » et « Microsoft HTML Object Library ». Pour accéder aux références dans VBA, menu Outils -> Références, puis cocher les cases correspondantes à ces deux références.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
dadacourse
Messages postés
129
Date d'inscription
lundi 12 décembre 2011
Statut
Membre
Dernière intervention
5 mars 2023
3
5 janv. 2015 à 14:42
5 janv. 2015 à 14:42
Après activation des 2 référence...
la ligne 18 est surligné et une fenêtre indique:
Erreur d'exécution '91':
Variable objet ou variable de bloc With non définie
la ligne 18 est surligné et une fenêtre indique:
Erreur d'exécution '91':
Variable objet ou variable de bloc With non définie
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
Modifié par pijaku le 5/01/2015 à 14:47
Modifié par pijaku le 5/01/2015 à 14:47
Ah oui.
C'est dû à certaines "lenteurs" de chargement de la page. J'ai résolu cela en ajoutant une "tempo" de 2 secondes après la ligne Set IEDoc = IE.Document :
Tu trouveras : ci-joint mon fichier test
C'est dû à certaines "lenteurs" de chargement de la page. J'ai résolu cela en ajoutant une "tempo" de 2 secondes après la ligne Set IEDoc = IE.Document :
Application.Wait Time + TimeSerial(0, 0, 2)
Tu trouveras : ci-joint mon fichier test
dadacourse
Messages postés
129
Date d'inscription
lundi 12 décembre 2011
Statut
Membre
Dernière intervention
5 mars 2023
3
5 janv. 2015 à 16:01
5 janv. 2015 à 16:01
Carrément génial, ça marche très bien !!!
Un grand merci Franck pour ton travail et le temps que tu y as consacré !
Je te souhaite une excellente année 2015, à toi et tes proches
Un grand merci Franck pour ton travail et le temps que tu y as consacré !
Je te souhaite une excellente année 2015, à toi et tes proches
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
5 janv. 2015 à 16:19
5 janv. 2015 à 16:19
Merci. A toi également.
A+
A+