Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDéfinition de la structure de chaque champ Type LigneEntreprise Code As String * 25 Libellé As String * 50 Siret As String * 50 Nom As String * 30 Prénom As String * 20 Adresse1 As String * 50 Adresse2 As String * 50 CodePostal As String * 5 Ville As String * 50 Téléphone As String * 15 Fax As String * 15 Email As String * 50 Radié As String * 1 DateRadiation As String * 10 CodeActivité As String * 25 Fin As String End Type Public Sub CréationFichierEntreprises() Dim Ligne As LigneEntreprise, CanalFichier As Integer Dim Rst As Recordset, NumLigne As Long NumLigne = 0 Const MonFichier As String = "\Entreprises.txt" CanalFichier = FreeFile Screen.MousePointer = vbHourglass If Existe(App.Path & MonFichier) Then Kill App.Path & MonFichier End If Open App.Path & MonFichier For Random As #CanalFichier Len = Len(Ligne) Set Rst = Db.OpenRecordset("Select * from Entreprise", dbOpenSnapshot) While Not Rst.EOF DoEvents NumLigne = NumLigne + 1 Ligne.Code = Rst![Code_Ent] Ligne.Libellé = Rst!Libelle Ligne.Siret = Rst!Siret Ligne.Nom = Rst!Nom Ligne.Prénom = Rst!Prenom Ligne.Adresse1 = Rst!Adresse1 Ligne.Adresse2 = Rst!Adresse2 Ligne.CodePostal = Rst![Code_Post] Ligne.Ville = Rst!Ville Ligne.Téléphone = Rst!Telephone Ligne.Fax = Rst!Fax Ligne.Email = Rst!Email Ligne.Radié = Rst![Date_Radiation] Ligne.DateRadiation = Rst![Date_Radiation] Ligne.CodeActivité = 0 Ligne.Fin = vbCrLf Put #CanalFichier, NumLigne, Ligne Rst.MoveNext Wend Rst.Close Close #CanalFichier Screen.MousePointer = vbDefault End Sub