Discussion :

[bendu31]

Bonjour,

J'ai beaucoup aimé ce tutoriel, il est extrêmement puissant et facile à mettre en oeuvre !

J'ai cependant une question sur les déclarations en late binding.

Pour des raisons de compatibilité du fichier sur plusieurs postes, je souhaite tout déclarer en late binding afin de ne pas avoir à activer les références sur chaque machine ou le fichier sera exécuté.
J'ai trouvé pour internetexplorer (message ci dessus) et HTMLDocuments qui est dans create object ("htmlfile"), cependant pour HTMLInputElements je ne trouve pas la bonne syntaxe de déclaration.

Je déclare mes variables "as Object", et ensuite dans le "Set variable = CreateObject("....")"
Je ne sais quoi mettre entre les guillemets.

Pourriez vous me renseigner ?

Merci

[Qwazerty]

Salut

bendu31, la déclaration en tant qu'object suffit, VBA va se débrouiller pour les transtypages, tu n'as pas besoin de faire une déclaration de type Set ... = CreateObject(...).

bonne soirée
++
Qwaz

[Marc-L]

Autre astuce : quand un Click ne déclenche rien, "activer" l'objet juste avant par .Focus peut suffire …

[bendu31]

bendu31, la déclaration en tant qu'object suffit, VBA va se débrouiller pour les transtypages, tu n'as pas besoin de faire une déclaration de type Set ... = CreateObject(...).

Qwaz

Salut,

Je viens de tenter sans déclaration Set.
VBA me renvoi l'erreur "Propriété ou méthode non gérée par l'objet" sur la ligne d'écriture.

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
 
    Dim IE As Object                 
    Set IE = CreateObject("InternetExplorer.application")
 
    Dim IEDoc As Object
    Set IEDoc = CreateObject("htmlfile")
 
    Dim Input_ISIN_Number As Object
 
    IE.navigate "http://www.abcbourse.com/download/historiques.aspx?f=ex"
    IE.Visible = True
 
    waitIE IE
 
 
    'On point la zone de texte IEDoc.all("name", "index si plusieurs noms")
    Set Input_ISIN_Number = IEDoc.GetElementsByName("ctl00$BodyABC$txtOneSico")
 
    'On écrit le texte qu'on veut placer dedans :
    Input_ISIN_Number.Value = "FR0000045072"

L'erreur se produit au niveau de l'exécution de la dernière ligne.

Peut être ai-je loupé une étape ?

[Marc-L]

Le B-A-BA : via la fenêtre des Variables locales, vérifier dans le contenu de la variable objet
si elle pointe bien sur quelque chose et si elle dispose de la propriété Value …

[Qwazerty]

Salut

Alors 2 problème avec ton code :

Tu ne pointes pas le document

Code :

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

Set IEDoc = IE.document

Ensuite lorsque tu cherches ton input, tu utilises GetElementsByName, pourquoi pas mais attention y'a un "s" à "Elements", il te retourne donc un tableau d'objet (voir le tuto)

Si cela ne résout pas ton problème, merci de créer un sujet propre à ta question pour ne pas surcharger celui-la qui ne conserne que des problème liés au tutoriel. N'hésite pas à m'envoyer un MP si tu vois que tu n'obtiens pas de réponse.

Bonne fin de journée
++
Qwaz

[bendu31]

Merci pour vos réponses,


@Marc-L : Apparemment l'objet Input_ISIN_Number ne pointe sur rien...

@QWAZERTY
Alors j'ai essayé de rajouter le fameux "Set IEDoc = IE.document", ça renvoi une erreur.
Pour le deuxième point, c'est une coquille, j'ai recopié à la main cette portion de code, dans mon éditeur VBA il n'y avait pas le "S".

J'ai créé un nouveau sujet pour ne pas polluer celui ci sur tes conseils :
http://www.developpez.net/forums/d14...g/#post8005015


Merci