Discussion :

[Bruce Campbell]

J'ai une feuille sur mon classeur que j'aimerai recuperer en CVS.
Plus précisément.

J'ai une fonction qui crée une nouvelle sheet et qui la rempli avec des données copié a partir d'une autre feuille.
J'aimerai en dessous de ce tableau inseré un textbox multiligne avec incrit le resultat que donne l'ouverture d'un CSV avec le bloc note

exemple :

;;MERCREDI 12 NOVEMBRE;JEUDI 13 NOVEMBRE;VENDREDI 14 NOVEMBRE;SAMEDI 15 NOVEMBRE;MERCREDI 12 NOVEMBRE;
;;user;user;user;user;user;
;;;;;;;
07:30;08:00;;;;;;
08:00;08:30;;;;1;;
08:30;09:00;;;;1;;
09:00;09:30;1;;;1;1;
09:30;10:00;1;;;1;1;
10:00;10:30;1;;;1;1;
10:30;11:00;1;;1;1;1;
11:00;11:30;1;;1;1;1;
11:30;12:00;1;;1;1;1;
12:00;12:30;1;1;1;1;1;
12:30;13:00;1;1;1;1;1;
13:00;13:30;;;;;;
13:30;14:00;;;;;;
14:00;14:30;1;1;1;;1
14:30;15:00;1;1;1;;1
15:00;15:30;1;1;1;;1
15:30;16:00;1;1;1;;1
16:00;16:30;1;1;1;;1
16:30;17:00;1;1;1;;1
17:00;17:30;1;1;1;;1
17:30;18:00;1;1;1;5,0;1
18:00;18:30;;1;1;;
18:30;19:00;;1;;;
19:00;19:30;;1;;;
19:30;20:00;;1;;;
;;8,0;7,0;7,0;;8,0
;;;;;;


Quelqu'un a une idée?
Suis-je assez clair? Pas facile a expliquer

[fring]

Bonjour,

Le fichier ci-joint devrait t'aider à y voir plus clair
Ne pas oublier de mettre la propriété MultiLine de ta TextBox sur True ainsi que définir la propriété ScrollBar
Pièce jointe 37574

Cdlt

[Bruce Campbell]

C'est genial, merci beaucoup

[JackOuYA]

Bonjour,

je me permet de rajouter une réponse "en direct" un peu plus visible qu'un fichier joint.

rajoute sur ta feuil2, un textbox venant de la barre d'outils contrôle :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub LitFichier()
  Dim f As Integer
  Dim txtbx As MSForms.TextBox
  Set txtbx = Feuil2.TextBox1
  Dim yaSt As String
  txtbx.MultiLine = True
  f = FreeFile
  Open "c:\yaFichier.csv" For Input As #f
  Line Input #f, yaSt
  txtbx = yaSt
  Close #f
End Sub