PB excel et fichiers txt...

[Hervé]

bonjour le forum...

Voila un petit probleme que je pense assez simple même si je n'arrive pas a le résoudre...

j'ai créé un USF pour saisir des clients.
j'enregistre actuellement les différents renseignements demandés sur une feuille excel de ce classeur.
jusque la cela fonctionne...

Simplement, je me heurte au nombre de caractères possible par cellule!

J'aimerai donc que chaque client soit enregistré dans un fichier TXT à son nom, puis quand je le recherche, que cela ouvre le fichier correspondant et affiche les différents renseignements dans les textbox correspondant...

Bien sur, s'il y a des doublons de noms, les fichiers ne doivent pas s'ecraser mais être du style "dupont1.txt; dupont2.txt ... etc), et bien sur ne pas se mélanger lors de leur rappel...

En cas de modification des renseignements d'un client, il faut bien sur prévoir une mise à jour du fichier txt correspondant...

Quelqu'un pourrait-il m'aider en me donnant une piste ??

d'avance merci à tous

@+
Hervé

 

[Hervé]

bonsoir

ma question n'a pas de succes...

j'ai enfin ressi a creer un fichier txt comme voulu.

mon probleme est maintenant de le lire et de faire apparaitre les données dans des textbox...

quelqu'un peut-il m'aider??

merci d'avance
@+Hervé

 

[Fredmane]

Salut,
t'as qu'a essayer de faire ton enregistrement de ta fiche client en format .TXT comme cela :

Sub ExportCSV()
Application.DisplayAlerts = False
directorie = ActiveWorkbook.Path
ActiveWorkbook.SaveAs Filename:= _
directorie & "\Dupont.txt", FileFormat:= _
xlText, CreateBackup:=False
ActiveWorkbook.SaveAs Filename:= _
directorie & "\Dupont.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True
End Sub


Et apres pour le rappeller tu fais un truc du genre:

Sub ImportCSV()
directorie = ActiveWorkbook.Path
If Dir(directorie & "\Dupont.txt") = "" Then
MsgBox ("Le fichier à importer ( Dupont.txt ) n'a pas été trouvé, vérifiez" & Chr(10) & "qu'il se trouve bien dans le même répertoire que ce programme")
Exit Sub
End If
Workbooks.OpenText Filename:= _
directorie & "\Dupont.txt", Origin:= _
xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), TrailingMinusNumbers _
:=True
msg = MsgBox("Attention les données présentes sur cette feuille seront supprimées", vbOKCancel, "Important !")
If msg = vbCancel Then Exit Sub
Windows("Dupont.txt").Activate
fin = Range("A65536").End(xlUp).Offset(0, 5).Address
Range("A2", fin).Select
Selection.Copy
Application.DisplayAlerts = False
ActiveWindow.Close
Windows("Monprog.xls").Activate
Sheets("Fiche").Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Application.DisplayAlerts = True
End Sub

Tou ca est a modifier biensur selon tes convenances !
Mais si ca peut t'aider ! @+

 

[Hervé]

bonjour le forum

Merci Fredmane...
je gardes ton idée , meme si j'ai reussi a le faire autrement :

pour créer et ecrire :

Open "C:\...\nomfich".txt" For Output As #1
Write #1, numpatient, nomp, prenomp, ...
Close #1


pour lire le fichier :

Open "C:\...\nomfich .txt" For Input As #1
Input #1, nump, nomp, prenomp, ...
Close #1

cela marche parfaitement et me semble plus simple pour mon utilisation...

En effet, je n'ai besoin d'ouvrir qu'un seul fichier en meme temps...

merci

@+ Hervé