Ouverture de fichier
Résolu
hardcore32
Messages postés
19
Date d'inscription
mardi 23 décembre 2003
Statut
Membre
Dernière intervention
21 octobre 2005
-
27 sept. 2005 à 04:18
hardcore32 Messages postés 19 Date d'inscription mardi 23 décembre 2003 Statut Membre Dernière intervention 21 octobre 2005 - 27 sept. 2005 à 13:45
hardcore32 Messages postés 19 Date d'inscription mardi 23 décembre 2003 Statut Membre Dernière intervention 21 octobre 2005 - 27 sept. 2005 à 13:45
A voir également:
- Ouverture de fichier
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier json - Conseils pratiques -Javascript
- Afficher userform vba a l'ouverture d'excel ✓ - Forum VBA Office (Excel, Word ...)
- Échec de l'ouverture de session de l'utilisateur sql server ✓ - Forum C# / .NET
- Fichier plat ✓ - Forum C# / .NET
4 réponses
cs_eldim
Messages postés
956
Date d'inscription
lundi 30 mai 2005
Statut
Membre
Dernière intervention
21 août 2014
1
27 sept. 2005 à 13:44
27 sept. 2005 à 13:44
lol regarde la msdn c'est écrit en clair et en français dedans....
enfin bref :
if dir(MonFichier)<>"" then
Open MonFichier ...
....
endif
enfin bref :
if dir(MonFichier)<>"" then
Open MonFichier ...
....
endif
hardcore32
Messages postés
19
Date d'inscription
mardi 23 décembre 2003
Statut
Membre
Dernière intervention
21 octobre 2005
27 sept. 2005 à 13:45
27 sept. 2005 à 13:45
Non laisse tomber j'ai trouvé avec ce que tu mas dis, merci = P !
Pour ceux qui passe après moi et qui on le même problème, je vais mettre le code de mon problème résolu =P !
Private Sub CmdActualiser_Click()
ListeClient.Clear
Dim item As Integer
Dim ClientListe As String
Dim Fichier As String
Dim Exist As String
nbclientliste = 1
Call DefNbClient
For item = 1 To NbClient
On Error GoTo erreur
Fichier = "Client" & item
If Dir(Fichier, vbNormal + vbHidden + vbsytem + vbReadOnly) = "" Then
GoTo erreur
End If
Open Fichier For Input As #1
Line Input #1, NomListe
Line Input #1, PrénomListe
Line Input #1, adresseListe
Line Input #1, VilleListe
Line Input #1, CodePostale1Liste
Line Input #1, CodePostale2Liste
Line Input #1, Téléphone1Liste
Line Input #1, Téléphone2Liste
Line Input #1, Téléphone3Liste
Line Input #1, Marqueliste
Line Input #1, ModèleListe
Line Input #1, SerieListe
Line Input #1, EstimationListe
Line Input #1, ProblèmeListe
Close
ClientListe = NomListe & ", " & PrénomListe & ", " &
nbclientliste
ListeClient.AddItem ClientListe
nbclientliste = nbclientliste + 1
erreur:
Next item
ArrangeList ListeClient
End Sub
Pour ceux qui passe après moi et qui on le même problème, je vais mettre le code de mon problème résolu =P !
Private Sub CmdActualiser_Click()
ListeClient.Clear
Dim item As Integer
Dim ClientListe As String
Dim Fichier As String
Dim Exist As String
nbclientliste = 1
Call DefNbClient
For item = 1 To NbClient
On Error GoTo erreur
Fichier = "Client" & item
If Dir(Fichier, vbNormal + vbHidden + vbsytem + vbReadOnly) = "" Then
GoTo erreur
End If
Open Fichier For Input As #1
Line Input #1, NomListe
Line Input #1, PrénomListe
Line Input #1, adresseListe
Line Input #1, VilleListe
Line Input #1, CodePostale1Liste
Line Input #1, CodePostale2Liste
Line Input #1, Téléphone1Liste
Line Input #1, Téléphone2Liste
Line Input #1, Téléphone3Liste
Line Input #1, Marqueliste
Line Input #1, ModèleListe
Line Input #1, SerieListe
Line Input #1, EstimationListe
Line Input #1, ProblèmeListe
Close
ClientListe = NomListe & ", " & PrénomListe & ", " &
nbclientliste
ListeClient.AddItem ClientListe
nbclientliste = nbclientliste + 1
erreur:
Next item
ArrangeList ListeClient
End Sub
cs_eldim
Messages postés
956
Date d'inscription
lundi 30 mai 2005
Statut
Membre
Dernière intervention
21 août 2014
1
27 sept. 2005 à 10:47
27 sept. 2005 à 10:47
Salut !
Au lieu de faire un on error
Vérifi que ton fichier existe avec la fonction "dir"
Au lieu de faire un on error
Vérifi que ton fichier existe avec la fonction "dir"
hardcore32
Messages postés
19
Date d'inscription
mardi 23 décembre 2003
Statut
Membre
Dernière intervention
21 octobre 2005
27 sept. 2005 à 12:33
27 sept. 2005 à 12:33
Pourrais-tu me donner un peux plus de précision s'il vous plait !?