Avec ce code je réussi pour la partie 2 (URL courriers) à récupérer les pièces voulues mais cela ne fonctionne plus pour la partie 1 (URL OET) et je ne comprends vraiment pas pourquoi. Merci de votre aide.
Public Function listeLiens(ByVal ie As InternetExplorerMedium, ByVal ID As String, ByVal phpsessid As String, ByVal chemin As String, ByVal ligne As Integer) As Boolean
' COMPTE RENDU
Dim URL As String
Dim liensEtNoms As Variant
URL = "http://distri-raccordement.enedis.fr/index.php?PHPSESSID=" & phpsessid & "&obj=affaires&AFF_ID=" & ID & "&PTF_ID=2&onglet=OET"
ie.navigate URL
'chargement complet de la page
Application.Wait Time + TimeSerial(0, 0, 1)
Do While ie.readyState <> READYSTATE_COMPLETE
DoEvents
Loop
Set els = ie.document.getElementsByTagName("a")
For Each el In els
If el.innerText = "Compte-rendus" Then
el.Click
End If
Next el
liensEtNoms = listeLiensCompterendu(ie)
listeLiens = telPJ(ie, liensEtNoms, chemin, ligne)
If (Not listeLiens) Then
Exit Function
End If
URL = "http://distri-raccordement.enedis.fr/index.php?PHPSESSID=" & phpsessid & "&obj=affaires&AFF_ID=" & ID & "&PTF_ID=2&onglet=courriers"
ie.navigate URL
'chargement complet de la page
Application.Wait Time + TimeSerial(0, 0, 1)
Do While ie.readyState <> READYSTATE_COMPLETE
DoEvents
Loop
liensEtNoms = listeLiensListeDocs(ie)
listeLiens = telPJ(ie, liensEtNoms, chemin, ligne)
End Function
Cdt
Pb pour récupérer des fichiers sous Excel 2013
× Après avoir cliqué sur "Répondre" vous serez invité à vous connecter pour que votre message soit publié.
× Attention, ce sujet est très ancien. Le déterrer n'est pas forcément approprié. Nous te conseillons de créer un nouveau sujet pour poser ta question.