Ouverture de fichier [Résolu]

hardcore32 19 Messages postés mardi 23 décembre 2003Date d'inscription 21 octobre 2005 Dernière intervention - 27 sept. 2005 à 04:18 - Dernière réponse : hardcore32 19 Messages postés mardi 23 décembre 2003Date d'inscription 21 octobre 2005 Dernière intervention
- 27 sept. 2005 à 13:45
Voila je vous explique mon problème ;



Mon logiciel ouvre des fichiers et lis leur
information, dans ce logiciel je gerre le contenue des fichiers, et je
peux les supprimés, mais si jamais je veux les supprimé, après quand je
veux actualisé la liste le mes fichier, il me dise un érreur *File not
found*, c'est normal je sais car le fichier existe pu, le problème
c'est que j'ai esseyer d'annulé cette érreur pour que mon logiciel
passe simplement par dessu le fichier qui es absent... je vous montre
mon code qui me permet de mettre le nom des fichiers dans mon ListBox :



Private Sub CmdActualiser_Click()



ListeClient.Clear

Dim item As Integer

Dim ClientListe As String

Dim Fichier As String



Call DefNbClient



For item = 1 To NbClient



On Error GoTo erreur



Fichier = "Client" & item



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 & ", " &
item

ListeClient.AddItem ClientListe

erreur:

Next item

ArrangeList ListeClient

End Sub



Comme je disais;



Si il y a erreur, next item, qui mes item sont des fichiers...



Donc, si quelqu'un à la réponce qu'il me manque !



Merci d'avance !
Afficher la suite 

4 réponses

Meilleure réponse
cs_eldim 961 Messages postés lundi 30 mai 2005Date d'inscription 21 août 2014 Dernière intervention - 27 sept. 2005 à 13:44
3
Merci
lol regarde la msdn c'est écrit en clair et en français dedans....

enfin bref :
if dir(MonFichier)<>"" then
Open MonFichier ...
....
endif

Merci cs_eldim 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 93 internautes ce mois-ci

Meilleure réponse
hardcore32 19 Messages postés mardi 23 décembre 2003Date d'inscription 21 octobre 2005 Dernière intervention - 27 sept. 2005 à 13:45
3
Merci
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

Merci hardcore32 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 93 internautes ce mois-ci

cs_eldim 961 Messages postés lundi 30 mai 2005Date d'inscription 21 août 2014 Dernière intervention - 27 sept. 2005 à 10:47
0
Merci
Salut !

Au lieu de faire un on error

Vérifi que ton fichier existe avec la fonction "dir"
hardcore32 19 Messages postés mardi 23 décembre 2003Date d'inscription 21 octobre 2005 Dernière intervention - 27 sept. 2005 à 12:33
0
Merci
Pourrais-tu me donner un peux plus de précision s'il vous plait !?

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.