Fichier txt

[Franck]

Bonjour a tous

Voila j'ai un USFavec un bouton qui doit
1) Creer un fichier text nommé "Compta.txt" dans le repertoir actif
1) ouvrir les outres fichiers*.txt du repertoir actif
2) lire leurs données et si la donnée est "Cumul" l'ecrire dans le fichier compta

Merci de votre aide
Franck

 

[Mouchty85]

Re : Fichier txt

Bonjour,
pourrai tu nous envoyé ton fichier.
merci

 

[Franck]

Re : Fichier txt

Bonjour a tous

Voila j'ai un USFavec un bouton qui doit
1) Creer un fichier text nommé "Compta.txt" dans le repertoir actif
1) ouvrir les outres fichiers*.txt du repertoir actif
2) lire leurs données et si la donnée est "Cumul" l'ecrire dans le fichier compta

Merci de votre aide
Franck

Bonjour Mouchty85
Fichier trop lourd mais voici mon ebauche

Private Sub CommandButton39_Click()
Dim fichier, lect As String
Dim monfichier, MyString As String

fichier = ActiveWorkbook.Path & "\" & "Compta.txt"
Open fichier For Output As #1
Print #1, ""
Print #1, DateValue(Now)
Print #1, "============================"



'Rechercher les fiches existante
monfichier = Dir(ActiveWorkbook.Path & "\.txt")
Do Until monfichier = ""
lect = ActiveWorkbook.Path & "\" & monfichier
Open lect For Input As #2
Do While Not EOF(1) ' Effectue la boucle jusqu'à la fin du fichier.
Input #2, MyString
ComboBox1.AddItem MyString
""A completer ou modifier mais ça marche pas""
Loop
Close #2
monfichier = Dir
Loop

Close #1
End Sub

merci de ton aide
Franck

 

[Franck]

Re : Fichier txt

Bonjour a tous

Bon!

Franck