ameliorer mon userform !

[bret]

Bonjour ! @ tous

(Si vous essayer ce fichier il enregistre un fichier txt à la racine du classeur)

Voilà, j'ai dans mon userform:

1 listbox
5 textbox
1 bouton enregistrer


l'idée:
je cliques sur la fiche 1 j'appuies sur le bouton enregistrer et hop ! 1 fichier
text...sur clique sur 2 -> bouton et hop enregistre ... etc. ça ça marche c ok.


Ce que je voudrais c'est quand j'appuies sur le bouton enregistrer que tout
le contenu de la listbox passe dans un fichier text automatiquement
On a plus qu'a appuyer une fois !


attention ! un fichier par fiche !!!





Voilà merci par avance de l'interet que vous allez tous portez à mon cas !

Bret

 

[bret]

non personne ne veut regarder !

 

[Arnaud]

salut,

le truc c que j'ai du mal a suivre ce que tu souhaite faire. tu veux juste que lorsque l'on appui sur le bouton enregistrer, cela copie tout ce qu'il y a dans ton classeur dans un fichier .txt ??? c ça ???

 

[bret]

bonjour Arnaud !

non !


en fait chaque ligne de la BDD sont concatener puis enregistrer dans un fichier txt...

exemple:

une fois que la ligne b2 est concaténé dans la feuille "fichier" A2
elle est enregistré dans un fichier txt : fiche_abba_f1.txt

vient ensuite la ligne B3 concatenation puis enregistrement dans un autre fichier txt : fiche_abba_f2.txt


etc...

pour le moment ca fonctionne uniquement en selectionnant une ligne dans la listbox puis on doit cliquer sur le bouton enregistrer.
L' idée c'est de n'appuyer qu'une seule fois pour que chaque ligne soit concaténé et enregistré comme dessus...


voilà j'espere avoir été plus clair

y a t il un code VBA pour =SUBSTITUE(A1;CAR(10);" ") merci !

 

[bret]

j'ai fait ça pour commencer qqchse mais ça m'enregistre que les fichiers impairs: fiche_abba_f1.txt fiche_abba_f3.txt etc....

Private Sub Commandbutton1_Click()
Dim L, i As Integer
Dim TheText As String, TheFile As String
Dim fso As Object 'FileSystemObject
Dim txt As Object 'TextStream

L = Sheets("BDD").Range("B65536").End(xlUp).Row '+ 1
i = 1
For i = 1 To L
i = i + 1
Sheets("fichier").Range("A1") = ici allez voir le zip c trop long...

With ThisWorkbook
TheFile = "fiche_" & Sheets("BDD").Range("Q1") & Sheets("BDD").Range("S1") & Sheets("BDD").Range("B" & i) & ".txt"
TheText = .Sheets("fichier").Range("A2")
End With
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.CreateTextFile(TheFile, True)
txt.Write TheText
txt.Close

Set txt = Nothing
Set fso = Nothing
Next i
'End Sub
End Sub

 

[bret]

C ok j'ai virer i=i+1

bon ben merci quand meme cependant y a til un code

pour =substitue (etc.) que je pourrais integrer directement dans mon userform !! merci



@ bientot

 

[bret]

une derniere question


Comment ecrire un code pour creer un dossier ou choisir un dossier avec une interface (comme windows) pour stocker ces fichiers?


merci