Macro import de données du web vers Excel

Bonjour,

Je cherche à réaliser une macro qui :

* importe certaines données d'une page web dans certaines cellules d'une feuille excel après avoir lancer elle même la navigation.

Dans le fichier ci-joint , la macro permet quasiment de faire cette opération mais plante sur une erreur 91 au moment de coller la donnée récupérée dans la cellule concernée.

Une bonne âme pourrait-elle m'aider à résoudre ce petit problème ?

Un grand merci par avance.

Ps : pour info, j'ai déjà posté dans un autre forum sans succès pour le moment bien que ledit forum m'ai déjà apporté une grande aide pour construire la macro du fichier que je joint à ce post.

Salut le forum

Modifie la déclaration des variables

Dim TagCol As HTMLDivElement

La partie du code a modifier

    ' pointage sur la collection
    Set IEDoc = IE.Document
    Set TagCol = IEDoc.getElementById("resultatSuivreDiv")

    ' pointage sur l'item qui concerne le statut
    If TagCol.all.Item(1).innerText Like "Numéro de colis invalide*" Then
        Set TagItem = TagCol.all.Item(1)
    Else
        Set TagItem = TagCol.all.Item(14)
    End If

    ' définition du statut
    Statut = TagItem.innerText

Mytå