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
A voir également:
- Erreur d'exécution :fichier introuvable
- Erreur upes 1025 - Forum Téléviseurs
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
- Erreur 0x80070643 - Accueil - Windows
- Corriger l'erreur 0x80070643 de la mise à jour KB5034441 de Windows 10 - Accueil - Windows
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
1 réponse
Hello
C'est bien ca te force à déclarer les variables
Déclare les variables de type général avec
Sub main()
il manque une parenthèse
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 :
Sert à koi ton left ? Pourquoi toujours à 7 ?
idem pour la ligne suivante Let i=i+1
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 avec
Dim 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+1
i = i + 1 Loop MsgBox "Nombre total d'employés : " & i - 1 a.Close End Sub</pre>
0sef_Du_Pseudo
Probléme du méme genre quelqun peut m'aider ? Moi "code erreur 267" et pour d'autre programme "Fichier introuvable"
