Discussion :

[RickGod]

BOnjour,
J'ai fait des recherches sur le site mais je ne trouve rien sur mon problème.

Probablement que c'est une question bien simple mais je suis loin d'être un expert en programmation.

j'ai une macro qui va chercher des valeurs sur un site internet. Mon problème est que je ne sais pas combien de valeur le iedoc.all contient donc j'ai fait un for avec un nombre très élevé ( 5000 dans l'exemple ). Le problème est que quand le iedoc.all(x) n'existe plus, j'ai un message d'erreur.

donc si mon site internet contient seulement 100 ligne quand mon for arrive à 101 j'ai un message d'erreur.

Je cherche un code pour dire à la macro si iedoc.all(x).innertext N'existe pas, faire un exit for.

C'est quand même difficilie à expliquer étant donner que je ne peux pas donner tout la macro. Si quelque chose n'est pas claire, n'hésitez pas a m'écrire.

Merci et bonne journée

Code :

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

1
2
3
4
5
6
7
8
For x = 1 To 5000
 
        If ieDoc.all(x).innerText = "salairebrut" Then
                a = ieDoc.all(x - 8).ID
                Z = ieDoc.all(x).innerText
                Exit For
        End If
        Next x

[patricktoulon]

Bonjour

Tu peux très bien mettre au début de ta boucle.

Code :

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

on error resume next

Cela dit quand on peut se passer de gérer des erreurs éventuelles on ne s'en prive pas.

Car je je pense que tu t'y prends mal, en effet quand on travaille sur X éléments on peut utiliser le "GET" :
getelementbyclassename
getelementbyid
etc...

Tu as cela dans le tutoriel de qwazerty, et ce "get....." te donne le nombre d'éléments disponibles.
A partir de la tu boucles de cette manière :

Code :

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

1
2
3
4
5
for i= 0 to ubound(get......)
if get.....(i)="cequetuveux " then
'reste du code 
end if 
next

Si tu veux envoie une partie du code source où il y a les données que tu veux récupérer je te ferais un exemple.

au plaisir

[RickGod]

Merci pour la réponse,

c'Est exactement ce que je voulais.

C'est sur que s'il y a moyen d'améliorer mes codes je suis toujours partant. J'ai joint un fichier avec 2 impression d'écran + mes lignes de code (dans le module 1)

En passant le tutoriel qwazerty est vraiment bien c'est avec lui que j'ai réussi a faire mon programme malgré le fait que je n'avais presque jamais programmer.

voici le code de la page web (voir en piece jointe car je ne sais pas comment l'insérer dans le texte.

owa_reser_perso38 est la case à cocher que j'ai besoin.

mais avant, je dois rechercher le terrain (ici c'est le terrain 3) et l'heure désirer. Je dois aussi vérifier s'il est disponible (donc vérifier si owa_no_client est vide).

La raison pour la quel je fais un x allant jusqu'a 5000 c'est qu'il peut y avoir 4 terrains comme il peut y en avoir 20 donc je ne sais pas combien de ligne va avoir mon iedoc.all.

quel serait ta solution pour empêcher l'erreur d'exécution lorsque les terrains demander ne sont pas disponible ??

merci et bonne journée

Voici mon code:

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
For x = 1 To 5000
        If ieDoc.all(x).innerText = "Terrain 3" Or ieDoc.all(x).innerText = "Terrain 4" Or ieDoc.all(x).innerText = "Terrain 5" Then
           If ieDoc.all(x - 6).Value = HRSUN Then  'vérification de l'heure
              If ieDoc.all(x + 1).innerText = " " Then 'vérification de la disponibilité
                a = ieDoc.all(x - 8).ID 'va chercher le nom de ma case à cocher
                Exit For
               End If
            End If
        End If
Next x
 
 ieDoc.all(b).Click 'chose la case trouver dans la boucle 
 
Sleep 1000
ieDoc.parentWindow.execScript "javascript:valideEnregistrer();" 'enregistre
 
 
1 Set IE = Nothing 'On libère la variable IE
 
End Sub

[SfJ5Rpw8]

Bonjour,

si tu veux rester dans ta boucle .. utiliser une boucle For .... each..

Code :

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

1
2
3
4
5
6
7
8
 
dim oItem
(..)
For each oItem in ieDoc.all
        If oItem.innerText = "Terrain 3" Or ieDoc.all(x).innerText = "Terrain 4" Or ieDoc.all(x).innerText = "Terrain 5" Then
(...)
 
Next

[RickGod]

Je vous remerci enormement ma macro fonctionne parfaitement sans toujour m' envoyer d'erreur

Tres bonne reponse

Je vous souhaite bonne journee et bon temps des fetes