ERREUR d'exécution '6' Dépassement de capacité

Option Explicit

Sub liste()
Dim page As New HTMLDocument, lien As Object, lig As Integer, url As String, invit As String, i%, depuis%, jusque%

Sheets("liens").Select
Range("A1").CurrentRegion.Offset(1, 0).ClearContents
lig = 2
With Sheets("parametres")
depuis = IIf(.Range("B2") = "", 1, .Range("C2"))
jusque = IIf(.Range("B2") = "", 1, .Range("D2"))
For i = depuis To jusque
    page.body.innerHTML = pageHTML(IIf(.Range("B2") = "", .Range("A2"), .Range("A2") & .Range("B2") & i))
    For Each lien In page.getElementsByTagName("a")
        url = lien.getAttribute("HREF")
        invit = lien.innerHTML
        'If url Like "*puzzle-*" And Not invit Like "<IMG*" Then
            Cells(lig, 1) = Replace(url, "about:/", "https://www.laposte.fr/")
            Cells(lig, 2) = invit
            lig = lig + 1
        'End If
    Next lien
    ' MsgBox "Page " & i & " chargée !"
Next
End With
MsgBox "Fin !"
End Sub

Function pageHTML(url As String) As String
    With CreateObject("WINHTTP.WinHTTPRequest.5.1")
        .Open "GET", url, False
        .send
        pageHTML = .responseText
    End With
End Function

Bonjour,

Le type Integer s'arrête à 32 767 de mémoire. Si la variable lig est destinée à recevoir un nombre plus grand, il faut lui appliquer le type Long.

J'ai remplacer lig par long mais ca fait bugger la macro

Bonjour

non il ne faut pas remplacer lig par long...

mais comme l'a dit Pedro...

remplacer

lig as integer 

par

lig as long

Fred