Bonjour
j ai une macro que me permet de "Copier/Coller" une page web
je souhaite intègre une boucle du genre "do" qui permet d'attendre que le site est bien charger avant de copier coller

j'utilise pour l'instant ce code, j arrive a trouver la class mais je sais pas comment récupérer la valeur "connect"

le ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1) c'est juste pour voir ce que je récupère

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    'on cr?? notre collection contenant toutes les balises <div>
Set coll_Li = IEDoc.getElementsByTagName("div")
'on boucle sur toutes les balises <div> de notre collection
 
For Each Li In coll_Li
 
    'Si la className de la balise <div> est "progress"
    If Li.className = "progress" Then
       ActiveSheet.Range("A" & Rows.Count).End(xlUp).Offset(1) = Li.className
        'on quitte
'        Exit For
    End If
Next



Nom : Capture.PNG Affichages : 158 Taille : 6,1 Ko


merci pour votre aide