Discussion :

[Qosmio]

Bonjour, j'ai un problème sur ce code, il est sensé créer un fichier texte avec des données de 2 autres fichiers (clients et appels). Le programme plante avec l'erreur notée (erreur 55) mais je ne trouve pas mon erreur sur le code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Rapport_Click()
Dim FichRapport As Integer
 
FichRapport = FreeFile
 
Open "C:\tmp\Fichier appels.txt" For Random As #FichAppel Len = Len(UnAppel)
Open "C:\tmp\Fichier clients.txt" For Random As #FichClient Len = Len(UnClient)
Open "C:\tmp\Fichier.txt" For Output As #FichRapport
Do Until EOF(FichAppel)
Get #FichAppel, , UnAppel
If LTrim(UnAppel.Réponse) = "" Then
Seek #FichClient, 1
Do
Get #FichClient, , UnClient
Loop Until UnClient.Num = UnAppel.Num
Print #FichRapport, UnAppel.Horaire & " " & UnClient.Nom & _
UnClient.Prénom & " " & UnClient.Téléphone
Print #FichRapport, " " & UnAppel.Raison
End If
Loop
Close #FichClient
Close #FichAppel
Close #FichRapport
 
End Sub

Merci pour votre aide.

[OhMonBato]

Bonjour,

D'ou viennent les valeurs FichAppel et FichClient ? Il y a toute les chances pour que FichRapport prennent la valeur de l'une d'entre elle puisque tu mets ta ligne : "FichRapport = FreeFile" avant d'ouvrir les 2 autres fichiers.

Il faudrait plutot mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Open "C:\tmp\Fichier appels.txt" For Random As #FichAppel Len = Len(UnAppel)
Open "C:\tmp\Fichier clients.txt" For Random As #FichClient Len = Len(UnClient)
FichRapport = FreeFile
Open "C:\tmp\Fichier.txt" For Output As #FichRapport

[Qosmio]

Donc j'ai modifié mon code comme tu l'as dit et là plus de message d'erreur par contre le click reste inactif

et oui ce fichRapport prend des valeurs des deux en fait cela récupère le nom du client inscrit dans fichClient et le message inscrit dans fichAppel

Non non je dis des bêtises, le bouton est actif, le fichier existe et la notation dans le fichier aussi.

MERCI OhMonBato !

[OhMonBato]

Merci alors de cliquer sur le bouton "Résolu" en bas de cette page