Discussion :

[obydissonn]

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

[OhMonBato]

tu as créé une boucle où tu ne fais qu'incrémenter un compteur, dimensionné comme entier, donc une fois que i est arivé à 32000 et quelques, le prog plante, normal.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Do While Not EOF(1)
i = i + 1
Loop

Le code te permet de sortir de ta boucle quand tu arrives en fin de fichier, (DO While Not EOF(1) ) encore faut-il lire les données dans le fichier pour arriver à la fin
Mais comment comptes tu lire un fichier Excel ?

[jkodio]

Obydissonn
Je pense que vous pouvez consulter tout sur la manipulation des fichiers excel sur le lien : http://drq.developpez.com/vb/tutoriels/Excel/
Néanmoins quelques remarques d'ordre général sur votre code:
1. un fichier excel n'est pas un fichier texte à accès séquentiel; aussi vous ne devez pas l'ouvrir avec :
Open ... for input as ...

2. De plus, votre boucle :

Do While Not EOF(1)
i = i + 1
Loop
provoque forcément un dépassement de capacité de la variable integer i, car vous incrémentez indéfiniment cette variable sans rien faire. Le test :
While Not EOF(1) sera toujours true, car vous ne faites rien avec le fichier dans cette boucle.
J'espère que vous visiterez le lien indiqué en debut de ma reponse.

Merci et cordialement.

[obydissonn]

merci a tous cè resolu
jKodio merci pour le lien qui m'as eclairé
le probleme est resolu.
Que Dieu vous benisse