Erreur d'exécution :fichier introuvable
Fermé
sammama
Messages postés
2
Date d'inscription
samedi 5 février 2005
Statut
Membre
Dernière intervention
7 février 2005
-
7 févr. 2005 à 22:36
0sef_Du_Pseudo - 29 avril 2011 à 19:39
0sef_Du_Pseudo - 29 avril 2011 à 19:39
A voir également:
- Erreur d'exécution :fichier introuvable
- Erreur 0x80070643 - Guide
- Erreur d'execution 1004 - Forum Programmation
- Iptv erreur de lecture - Forum TV & Vidéo
- Erreur d'execution 13 ✓ - Forum Programmation
- Code erreur f3500-32 ✓ - 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 :
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+1i = i + 1 Loop MsgBox "Nombre total d'employés : " & i - 1 a.Close End Sub
29 avril 2011 à 19:39