Erreur d'exécution :fichier introuvable
sammama
Messages postés
2
Statut
Membre
-
0sef_Du_Pseudo -
0sef_Du_Pseudo -
bonjour,
j'écris le programme suivant-VB
--------------------------------------------------------------
Option Explicit
Dim MonEnregistrement As String
Dim fs, a, i
Sub main()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.openTextFile"C:\equipe.txt")
i = 1
Do While a.atEndOfStream <> True
MonEnregistrement = a.readline
MsgBox "Le salarié numéro " & i & " a pour nom " & Left(MonEnregistrement, 7)
i = i + 1
Loop
MsgBox "Nombre total d'employés : " & i - 1
a.Close
End Sub
--------------------------------------------------
je cherche à ouvrir un petit fichier texte :equipe.txt, que j'ai placé sur C :
----------------------------
1 jacques
2 alain
3 jules
4 antoine
5 sophie
---------------------------
le problème c'est qu'à l'exécution, il donne le message d'erreur :
erreur d'exécution 53
fichier introuvable
Alors qu'il s'exécute NORMALEMENT sur le micro d'un ami !!!!!
j'ai essayé de le placer partout et à chaque fois 'fichier introuvable !
cela me rend fou !!
si vous avez une idée n'ésitez pas
merci
j'écris le programme suivant-VB
--------------------------------------------------------------
Option Explicit
Dim MonEnregistrement As String
Dim fs, a, i
Sub main()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.openTextFile"C:\equipe.txt")
i = 1
Do While a.atEndOfStream <> True
MonEnregistrement = a.readline
MsgBox "Le salarié numéro " & i & " a pour nom " & Left(MonEnregistrement, 7)
i = i + 1
Loop
MsgBox "Nombre total d'employés : " & i - 1
a.Close
End Sub
--------------------------------------------------
je cherche à ouvrir un petit fichier texte :equipe.txt, que j'ai placé sur C :
----------------------------
1 jacques
2 alain
3 jules
4 antoine
5 sophie
---------------------------
le problème c'est qu'à l'exécution, il donne le message d'erreur :
erreur d'exécution 53
fichier introuvable
Alors qu'il s'exécute NORMALEMENT sur le micro d'un ami !!!!!
j'ai essayé de le placer partout et à chaque fois 'fichier introuvable !
cela me rend fou !!
si vous avez une idée n'ésitez pas
merci
1 réponse
-
Hello
Option Explicit
C'est bien ca te force à déclarer les variables
Dim MonEnregistrement As String
Dim fs, a, i
Déclare les variables de type général avecDim fs As Variant Dim a As Variant Dim i As Variant
Sub main()Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.openTextFile"C:\equipe.txt")
il manque une parenthèse
i = 1
C'est pas obligatoire, mais pour faire la différence entre l'affectation de variable (numérique) LET et la sauvegarde d'un objet(pointeur), il me semble judicieux d'explicitement utiliser Let et Set
exemple :Let i=1</Code>
Do While a.atEndOfStream <> True MonEnregistrement = a.readline MsgBox "Le salarié numéro " & i & " a pour nom " & Left(MonEnregistrement, 7)
Sert à koi ton left ? Pourquoi toujours à 7 ?
idem pour la ligne suivante Let i=i+1i = i + 1 Loop MsgBox "Nombre total d'employés : " & i - 1 a.Close End Sub
</pre>
