hello a tous :
je manipule un fichier excell comme le montre le programme.
mais dès que j'execute la procedure j'ai l'erreur de code 6: depassement de capacité

excuser moi pour ne pas avoir indenté mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub importExcell()
Dim i As Integer
Dim chd As String
On Error GoTo erreur
Open "C:\Documents and Settings\Poste Aubin\Bureau\Classeur1.xls" For Input As #1
chd = ""
i = 1
 
Do While Not EOF(1)
i = i + 1
Loop
MsgBox i
Exit Sub
erreur:
If Err.Number = 55 Then
Close #1
MsgBox "cliquer a nouveau sur le bouton importer", vbOKOnly, "info"
Else
MsgBox Err.Number & "  :  " & Err.Description, vbCritical, "erreur survenue"
End If
End Sub