erreur d'exécution :fichier introuvable Fermé

Question

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

Dino · Answer

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 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 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

Erreur d'exécution :fichier introuvable

1 réponse

Discussions similaires