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
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Erreur d'execution 1004 - Forum Programmation
- Erreur 1004 vba ✓ - Forum VB / VBA
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