Discussion :

[noftal]

Bonjour,

J'ai réalisé le code suivant :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub MySub()
Dim GenericElem As HTMLGenericElement
 
Dim IE As New InternetExplorer
 
Dim htmlTabElement() As IHTMLElement
Dim PEE As IHTMLElement
 
 
URL_fonds = "http://… "
    IE.navigate URL_fonds
    Pause (4)
 
    Set GenericElem = IEDoc.body.all("content")
    htmlTabElement = getElementsByClassName(GenericElem, "tab0", False)
    Set PEE = htmlTabElement(0)
 
Set htmlTagCol = PEE.getElementsByTagName("a")
    Dim htmlTagCol_Croissance As HTMLGenericElement
    Set htmlTagCol_Croissance = htmlTagCol(3)
    Dim htmlTagCol_Ouvert As HTMLGenericElement
    Set htmlTagCol_Ouvert = htmlTagCol(6)
    Call Télécharge_CSV_Titre(htmlTagCol_Croissance)    
  ...
 
End Sub
 
 
Sub Télécharge_CSV_Titre(ByVal index As HTMLGenericElement)
    Dim htmlTagCol_Historique As IHTMLElementCollection
    Dim GenericElem As HTMLGenericElement
    Set GenericElem = index
    GenericElem.Click
    Pause (4)
   Set htmlTagCol_Historique = IEDoc.getElementsByTagName("a")
...
End Sub

A coup d'espions et de points d'arrêt je m'aperçois que, dès la ligne 34, mes variables htmlTagCol_Croissance et htmlTagCol_Ouvert perdent leur contenu.

Or j'en ai besoin dans la suite du code de Mysub

A quoi est-ce dû et comment y remédier ?

Merci d'avance pour vos réponses .

[jijie]

et si tu inscrivait tes variable en Public?

[noftal]

J'ai essayé de mettre

Code :

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

1
2
Public htmlTagCol_Croissance As HTMLGenericElement
Public htmlTagCol As IHTMLElementCollection

en tête de module mais rien n'y fait.
C'est vrai que je tatonne un peu parce que je me doute que la solution se trouve par là mais je ne maîtrise pas encore très bien les public/private/global que ce soit pour les variables ou les fonctions/procédures.

En même temps, mes variables incriminées ne sont utilisées que dans MySub. Donc je ne vois pas pourquoi il faudrait les déclarer à un échelon au-dessus.

[jijie]

alors pourquoi souhaite-tu les avoirs en ligne 34?

Ce sujet intéresse, mais je suis vraiment pas assez calé sur ça!!

[noftal]

Comme expliqué, parce que j'en ai besoin dans la suite de MySub (symbolisée par les ... de la ligne 24)
Or, je chope une erreur sur cette variable dans la suite de mon code ("Objet requis" sur une ligne ou j'utilise la variable htmlTagCol_Croissance à nouveau).

C'est en cherchant moi-même avec des espions et points d'arrêt que j'ai identifié que le contenu de la variable, dont l'affectation se trouve en ligne 20, est perdu après le click de la ligne 33 (point d'arrêt sur la ligne 34), d'où la présentation de mon problème à partir de ce moment là.

[SfJ5Rpw8]

Bonjour,

est tu en as besoin pourquoi ?

avec l'instruction Set tu affecte un pointeur vers un objet à ta variable, un "IHTMLElement" , ensuite si tu change l'affichage dans ta page html .. ( par le click) l'objet est détruit , et donc ta variable ne pointe plus sur rien ..