Erreur 6 Dépassement de capacité lors de la copie de donnée

Bonjour à tous,

J'essaie de créer une macro permettant de copier des données d'un classeur dans un autre dans le but de créer des stats dessus.
Seul problème mes données contiennent des numéros de téléphone de la forme 336XXXXXXXX. Et ça me génère des erreurs 6 Dépassement de capacité.

Quelqu'un aurait une idée de comment évité cela ?

Ci-joint mon code.

Sub Launcher_add()

    Application.ScreenUpdating = False

    Set wbmacro = ThisWorkbook
    folderpath = wbmacro.Path
    foldername = wbmacro.Sheets(1).Cells(3, 13)
    newFolderPath = folderpath & "\" & foldername
    filename = "calls"
    Source = Dir(folderpath & "\" & filename & "*" & ".*")

    If Source = "" Then GoTo missingfile
    Set wbdata = Workbooks.Open(folderpath & "\" & Source, Local:=True)

    totdata = wbdata.Sheets(1).UsedRange.Rows.Count
    totentry = wbmacro.Sheets(2).UsedRange.Rows.Count

    ' Copie la donnée par ligne
    For i = 2 To totdata
        For y = 1 To 27 ' Copie de A à AA
            wbmacro.Sheets(2).Cells(totentry + i - 1, y).Value = wbdata.Sheets(1).Cells(i, y).Value

        Next y
    Next i

    ' Initialisez FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")

    ' Créez le nouveau dossier s'il n'existe pas
    If Not fso.FolderExists(newFolderPath) Then
        fso.CreateFolder newFolderPath
    End If

    ' Fermez et ne pas enregistrer wbData
    wbdata.Close SaveChanges:=False

    ' Déplacez le fichier vers le nouveau dossier
    fso.MoveFile folderpath & "\" & Source, newFolderPath & "\" & Source

    Application.ScreenUpdating = True

    Exit Sub

missingfile:
    MsgBox ("Pas de fichier nommé " & filename)

End Sub

L'érreur se situe sur la lignre

wbmacro.Sheets(2).Cells(totentry + i - 1, y).Value = wbdata.Sheets(1).Cells(i, y).Value

Merci beaucoup.

Hello,

A tout hasard, as tu essayé de basculer le format de ta colonne Téléphone en texte ?

Bonjour,

Vérifiez que le nombre de lignes utilisées : totdata et totentry est bien inférieur au nombre de lignes maximum de la feuille. Il peut arriver que toutes les lignes d'une feuille soient utilisées à tort même si elles ne sont pas remplies, dans certains cas de formatage par exemple.

Bonjour à vous deux,

Merci pour vos réponses.

J'ai continué de creuser le problème. Et ce n’était pas ça.

Thev ta réponse m'a fait penser que c'était peut-être lié au nombre de ligne du coup j'ai creusé le sujet avec Chat GPT et bim.

Le format integer ne peut contenir des données allant de -32,768 à 32,767.

Et bien entendu je me situe en dehors de cela. Du coup la correction était super simple, il suffisait de déclarer mes variables en LONG au lieu de INTEGER.

Merci beaucoup pour vos réponses.