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)