Discussion :

[speedturf]

bonjour, je suis une personne qui ne demande qu'à apprendre la programmation mais depuis que j'ai changer de version et refais mon ordi, mon code VBA ne fonctionne plus, comment corriger les erreurs car la personne qui me la fait, n'est plus disponible

Pièce jointe 216215
Pièce jointe 216216
Pièce jointe 216217
Pièce jointe 216218

je vous joint le fichier en pièce jointe

Pièce jointe 216219

merci à toutes personnes qui pourras m'aider

[patricktoulon]

Bonjour

bon ben ca faisait longtemps!!.... un turfiste

j'ai regarder ton fichier ou lah!.... c'est cotton


1° déjà !!! je pense que tu travaille sur html de la mauvaise façon

2 tes procédures sont lourdes.... très lourdes


3° ton erreur est semble t il que cet Object = nothing donc si ce code n'a pas été modifié il est impossible qu'il ai fonctionné un jour car "Lstpartant" n'existe pas

je suppose que par cette variableet vu le code !!! tu parle de ta listview et bien regarde dans VBE comment elle s'appelle et dis moi encore qu'en l'état ton code a fonctionné un jour



je te suggère de faire une recherche avec mon pseudo ou "sebphyto" qui lui aussi est un mordu des dadas on a fait pas mal de chose ensemble notamment avec Gény aussi et d'autre site

cela dit pour moi la moitié au minimum du code n'est absolument pas nécessaire

ton fichier même si tu arrive a le faire fonctionner te causera bien des soucis ne serait ce que pour les mise a jour il faut prévoir la journée pour trouver ce que quoi correspond a qui

bonne lecture

[joe.levrai]

Bonjour,

au vu du message d'erreur, mais également de ton code, je dirais que ton ListView (puisqu'utilisation de ColumnHeaders.add) ne s'appelle plus Lstpartant

[patricktoulon]

re
je viens de m'apercevoir que dans l'userform c'est une listbox et non une listview

y a du copier collé dans l'air et tout le monde sait ce que le copier coller donne hein!!!!

juste une petite question c'est quoi inet1 il est ou celui la

[patricktoulon]

Bon après avoir remplacé ta listbox par une listview
j'ai une erreur sur cette sub l'erreur c'est "object requis "

c'est bien ce que je pensait ( drole de requete perso jamais vu

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'--------QUAND ON CLIQUE SUR LE BOUTON IMPORTER
Private Sub Bt_Importer_Click()
Frame3.Visible = False
'on recupere la date dans le format qui nous interesse
Tdate = Txdate.Text
Tdate = Right(Tdate, 4) & "-" & Mid(Tdate, 4, 2) & "-" & Left(Tdate, 2)
 
' et on lance la recuperation de la page au  format HTML 'attention geny change souvent le format de son url
'http://www.geny.com/reunions-courses-pmu/_d2016-01-19? (format de l'url actuelle de geny)
Dim sURL As String
sURL = "http://www.geny.com/reunions-courses-pmu/_d" & Tdate & "?"
datahtml = Inet1.OpenURL(sURL) 'on sauvegarde le code source de l'url dans la variable data
 
'et on lance la recuperation
recupere_reunionscourse (datahtml)
 
End Sub

' mais perso j'aurais fait comme suit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Bt_Importer_Click()
Dim Tdate As String, sURL As String, ReQ
Tdate = Format(Txdate.Text, "yyyy-mm-dd")
sURL = "http://www.geny.com/reunions-courses-pmu/_d" & Tdate & "?"
Set ReQ = CreateObject("microsoft.xmlhttp")
ReQ.Open "POST", sURL, False
' peut etre ici faudra il mettre le header de la requette
ReQ.send
' peut etre aussi ici un test sur le statuts de la requête afin d'éviter le erreurs avec tes autre sub qui décante ton code source 
datahtml = ReQ.responseText
End Sub

bref je ne vais pas plus loin ,quand je règle un soucis c'est ailleurs que ca décorne

tout a revoir en terme de conception

[speedturf]

merci pour les réponses
pour le fonctionnement du fichier, oui il à fonctionner mais depuis le reformatage de mon pc et de l’installation d'excel 2013 en 2016 plus rien ne fonctionne.

pouvez vous m'aider ?

[unparia]

Bonjour
- Je ne télécharge en aucun cas un fichier. Désolé.
tout donne à penser que tu n'as pas installé et enregistré convenablement le contrôle msinet.ocx (Microsoft Internet Transfert Control)
Il est probable que le classeur originel a été créé sous Windows XP ou une version ultérieure de Windows en 32 bits et que ta version actuelle de Windows et en 64 bits..
J'ignore (tu n'en parles pas) si ta version actuelle Office est en 32 bits ou en 64 bits.

Normalement (si tout avait été bien installé), on devrait voir coché l'activex msinet.ocx (Microsoft Internet Transfert Control version #.# ) parmi les composants complémentaires. Et on devrait voir alors également cochée (automatiquement) la référence à Microsoft Internet Control #.#

Attention : Si ta version Excel est en 32 bits et que ton OS est en 64 bits, c'est dans le fichier Syswow64 qu'il convient d'installer et enregistrer le fichier msinet.ocx avant de le cocher parmi les contrôles supplémentaires

Voilà pour ce qui est de l'essentiel.
Je crois que tu ferais mieux, si tu n'y connais vraiment rien, de laisser un professionnel faire tout cela pour toi sur ta machine, après en avoir examiné toutes les versions (Office et OS) et ce qui se trouve dans les dossiers système (y compris au besoin syswow64)

[speedturf]

exact, je suis sous windows 10 et system 64

comment faire pour remédier à cela ?

[speedturf]

Bonjour
- Je ne télécharge en aucun cas un fichier. Désolé.
tout donne à penser que tu n'as pas installé et enregistré convenablement le contrôle msinet.ocx (Microsoft Internet Transfert Control)
Il est probable que le classeur originel a été créé sous Windows XP ou une version ultérieure de Windows en 32 bits et que ta version actuelle de Windows et en 64 bits..
J'ignore (tu n'en parles pas) si ta version actuelle Office est en 32 bits ou en 64 bits.

Normalement (si tout avait été bien installé), on devrait voir coché l'activex msinet.ocx (Microsoft Internet Transfert Control version #.# ) parmi les composants complémentaires. Et on devrait voir alors également cochée (automatiquement) la référence à Microsoft Internet Control #.#

Attention : Si ta version Excel est en 32 bits et que ton OS est en 64 bits, c'est dans le fichier Syswow64 qu'il convient d'installer et enregistrer le fichier msinet.ocx avant de le cocher parmi les contrôles supplémentaires

Voilà pour ce qui est de l'essentiel.
Je crois que tu ferais mieux, si tu n'y connais vraiment rien, de laisser un professionnel faire tout cela pour toi sur ta machine, après en avoir examiné toutes les versions (Office et OS) et ce qui se trouve dans les dossiers système (y compris au besoin syswow64)

j'ai installer et cela ne fonctionne toujours pas

[unparia]

1)

j'ai installer et cela ne fonctionne toujours pas

on ne sait pas comment tu l'as fait (et ce sont des gestes très techniques et très précis, qui nécessitent en plus des interventions "en tant qu'administrateur", qui va au-delà de ce qui est fait depuis un compte ayant les droits "administrateur")
2) vraiment : si tu n'as pas les connaissances suffisantes, il serait quasiment vain de tenter de te dicter, pas à pas et en fonction de ce que l'on découvre au fur et à mesure, les gestes précis à faire.
Je te rappelle donc ce que j'ai éirit plus haut :

Je crois que tu ferais mieux, si tu n'y connais vraiment rien, de laisser un professionnel faire tout cela pour toi sur ta machine, après en avoir examiné toutes les versions (Office et OS) et ce qui se trouve dans les dossiers système (y compris au besoin syswow64)

un professionnel te fera cela en moins de 5 minutes et cela te coûtera finalement moins cher que le temps que tu perdrais en voulant "bricoler" toi-même.
Le choix fait par le concepteur de ton classeur (utilisation du contrôle activex msinet.ocx) est loin d'être "lourdaud" ou "maladroit". Il nécessite toutefois une bone compréhension d'ensemble.

[jurassic pork]

hello,
comme le disait Patrick dans son premier message :

ton erreur est semble t il que cet Object = nothing donc si ce code n'a pas été modifié il est impossible qu'il ai fonctionné un jour car "Lstpartant" n'existe pas

Je ne vois nulle part de Lstpartant qui doit être la liste des partants.
Ensuite Patrick a dit :

je viens de m'apercevoir que dans l'userform c'est une listbox et non une listview

la listbox dont il est question, ça doit être LstCR qui est la liste des courses semble-t-il , donc qui n'est pas Lstpartant.

juste une petite question c'est quoi inet1 il est ou celui la

inet1 cela doit être un objet Internet Transfer Control ( InetCtls ) qui est dans l'activex msinet.ocx dont on parle ensuite.
Cet activeX est plutôt du genre obsolète ou ne fonctionne pas en appli 64 bits et il est donc conseillé de le remplacer par un équivalent. Par exemple pour récupérer du HTML la proposition à Patrick avec l'objet microsoft.xmlhttp dans le post #5

En conclusion où est passée la liste Lstpartant qui devrait être dans la Frame2 (tableau des partants) de la boîte de dialogue FReunionsCourses ?

Ami calmant, J.P

[unparia]

Bonjour jurassic pork

où est passée la liste Lstpartant

Réponse sans ouvrir (ce que je ne fais jamais) le fichier joint :
disparue tout simplement du userform si COMCTL32.OCX n'a pas été installé et enregistré sur sa machine "refaite".

[jurassic pork]

hello unparia,
ton explication me semble fort possible mais ce qui m'inquiète c'est ce que dit Microsoft concernant cet activex pour Office 64 bits (du moins pour office 2010, je ne sais pas si cela est toujours vrai pour les nouvelles versions de office) :

Native 64-bit processes in Office 2010 cannot load 32-bit binaries. This includes the common controls of MSComCtl (TabStrip, Toolbar, StatusBar, ProgressBar, TreeView, ListViews, ImageList, Slider, ImageComboBox) and the controls of MSComCt2 (Animation, UpDown, MonthView, DateTimePicker, FlatScrollBar).These controls were installed by previous versions of Microsoft Office and are installed by 32-bit Office 2010. An alternative must be found for existing Microsoft Office VBA solutions that utilize these controls when the code is migrated to 64-bit Office 2010. 64-bit Office 2010 does not provide 64-bit versions of the Common Controls.

Par quoi remplacer alors la Listview dans Office 64 bits ?

Edit : Oops je viens de m'apercevoir que Speedturf ne nous avez pas dit si il était en Office 64 bits car il n'a dit sa version que pour l' O.S :

exact, je suis sous windows 10 et system 64

Ami calmant, J.P

[speedturf]

bonjour et merci pour les réponses
Comment refaire alors le fichier et adapter le code pour récupérer les infos de geny.com ?
où alors comment faire pour importer directement sur ma feuille excel sans userform ?

[patricktoulon]

Re
Bonjour
Je te l ai dis comment. Si tu veux vraiment t amuser a travaillier le. Code source html en string tu faot une requete comme. Je. Re l ai montré sinon tu a IE OU BIEN ENCORE un mixte des deux requete. Inteheation du code dans un htmlfile et travail. Comme avec IE

[jurassic pork]

speedturf tu ne nous as toujours pas dit quel Office tu utilisais : 32 bits ou 64 bits ?

[speedturf]

32 bits

[unparia]

2 bits ?
Il te faut dans ce cas :
1) charger dans le dossier syswow64 msinet.ocx et comctl32.ocx
2) enregistrer ces deux activex dans syswow64 par regsvr32, en exécutant cette commande où xxx est le chemin complet du dossier contenant syswow64 sur ta machine :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

regsvr32.exe C:\xxx\syswow64\ocx_concerné

Attention (je te l'ai dit plus haut) : cette commande doit être lancée "en tant qu'administrateur"

[patricktoulon]

re
réinstaller ton control c'est bien mais peut être faudra t- il un jour travailler avec les outils actuels ne serait ce que pour la durabilité de l'app dont ton cas en est un parfait exemple
A méditer
surtout que finalement si tu remplace la macro que je t'ai donnée ca fonctionne très bien l'Object faisant toujours parti de Windows ne te fera jamais défaut
A bon entendeur

moi j'dis ca j'dis rein hein!!!!

[speedturf]

à patricktoulon

je comprend pas, comment dois je remplacer la macro ?, laquelle ?
je suis nul et j'aimerais apprendre

j'aimerais refaire mon fichier de A à Z, avec un langage approprié
Comment refaire avec de l'aide, peut être tu peut me l'expliquer si tu veut

merci