Bonjour,

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