Discussion :

[GCAccess]

Bonsoir,

Je me suis créé un formulaire dans Word qui contient une listbox avec trois colonnes et je voudrais exporter le contenu de cette listbox dans un fichier texte déjà existant, soit en écrasant tout le texte déjà disponible dans ce fichier, soit en rajoutant le contenu à la suite (en fonction de l'option choisie par l'utilisateur). Seulement voilà, je ne sais pas trop quelle méthode utilisée. Je voudrais en particulier que chaque entrée de la listbox corresponde à une ligne dans le fichier texte et que les différentes colonnes de la listbox soient séparées par une tabulation dans le fichier texte.
Quelle serait selon vous le meilleur moyen d'y arriver ?
Je vous remercie pour toute piste ou tout conseil.

Guillaume

[Maxence HUBICHE]

Je te donne quelques orientations...

Dans ton projet, utilises la touche F2 et cherches ListBox dans la colonne Classes de la bibliothèque MSForms. Tu trouveras différentes méthodes et propriétés telles, par exemple ListCount qui pourraient être fort utiles... surtout avec une boucle. Et puis la propriété Column aussi...

Enfin, pour ouvrir écrire et fermer un fichier, tu as respectivement les instructions Open, Print et Close.

C'est pas la mer à boire.
Essaie de faire quelque chose avec cela pour voir

[JackOuYA]

bonsoir,

tiens une listBox1 et un bouton comandbutton1 sur un userform :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Private Sub UserForm_Initialize()
  ' Juste pour remplir la liste pour les tests
  For i = 0 To 10
     ListBox1.AddItem "A" & i
     ListBox1.List(i, 1) = "B" & i
     ListBox1.List(i, 2) = "C" & i
  Next
End Sub
 
 
 
Private Sub CommandButton1_Click()
   Const YAFICHIER = "C:\TMP\MaListe.txt" 'Nom du fichier
   Dim yaEcrase As Boolean
   Dim yaRep As Integer
   Dim yaf As Integer
   Dim i As Integer
   If Dir(YAFICHIER) <> "" Then
      yaRep = MsgBox("Le fichier existe voulez-vous l'écraser", vbYesNo)
      yaEcrase = yaRep = vbYes
    Else
     yaEcrase = True
   End If
   yaf = FreeFile
   If yaEcrase Then
     Open YAFICHIER For Output As #yaf
    Else
        Open YAFICHIER For Append As #yaf
    End If
   For i = 0 To ListBox1.ListCount - 1
      Write #yaf, ListBox1.List(i, 0) & vbTab & ListBox1.List(i, 1) & vbTab & ListBox1.List(i, 2)
   Next
 Close yaf
End Sub

[GCAccess]

Merci beaucoup pour vos réponses.

@ Jacques: merci beaucoup pour le code, j'ai essayé et ça fonctionne très bien. Le seul souci, c'est qu'il y a un guillemet au début et à la fin de chaque ligne dans le fichier txt. Comment est-ce que je pourrais faire pour ne pas les avoir ?

Merci encore.

Guillaume

[Sepia]

Salut,

Un peu de lecture sur la recherche et le remplacement dans Word.

@+

[Maxence HUBICHE]

Je trouve dommage que JackOuYa t'ai donné un code tout prêt, car, du coup, tu n'as pas fait les recherches, et donc, tu te poses cette question... Enfin... tu nous la pose.

[Sepia]

Salut,

Je ne veux pas polémiquer mais je suis assez d'accord avec toi. En général, les membres atctifs (enfin ceux qui ont des étoiles) savent comment faire et en donnant directement la réponse, ils ne permettent pas assez aux débutants (dans le domaine concerné) de progresser, ce qui me semble dommage. Olivier (Heureux-Oli) me disait qu'il fallait être vigilant à ce point mais ce que c'était difficile de savoir faire la différence entre l'aide et l'assistanat. Mais c'est aussi comme ça que nous progresse (au niveau du site).

Bonne nuit

[JackOuYA]

Merci beaucoup pour vos réponses.

@ Jacques: merci beaucoup pour le code, j'ai essayé et ça fonctionne très bien. Le seul souci, c'est qu'il y a un guillemet au début et à la fin de chaque ligne dans le fichier txt. Comment est-ce que je pourrais faire pour ne pas les avoir ?

Merci encore.

Guillaume

bonjour, .... remplace write par print, je ne sais jamais lequel des deux utiliser...

[GCAccess]

Bonjour,

Merci encore pour le code.

Je comprend tout à fait que cela puisse poser problème de donner directement un code. En même temps, j'avoue que la plus grosse partie de ce que j'ai appris, je l'ai appris en adaptant des codes "clef en main" et donc en les décortiquant. On apprend aussi beaucoup de cette manière et chacun peut voir ensuite à quel point il souhaite approfondir ses connaissances.

Bonne journée

Guillaume

[Maxence HUBICHE]

Et tu avais déjà ta réponse au deuxième post.
Dommage...

Enfin, pour ouvrir écrire et fermer un fichier, tu as respectivement les instructions Open, Print et Close.

[Sepia]

Salut,

Ne le prends pas mal CGAccess car ma remarque est très générale mais ton post confirme que donner du code sans approche d'apprentissage ce n'est pas toujours rendre service car il y a un intérêt de bien suivre pour comprendre et de bien comprendre pour suivre.

@+ en espérant que l'on t'aide à progresser (sur ce point) pour que tu puisses faire de mieux en mieux et que tu puisses aussi en faire bénéficier d'autres