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
Partager