Récuperer le contenu d'une listbox dans un fichier

Version imprimable

14/08/2017, 19h09
Dorbuntu

Récuperer le contenu d'une listbox dans un fichier

Bonjour,
je suis débutante en VBA Excel.
J'ai écris une macro qui, lorsqu'il est exécuté affiche le résultat obtenu dans ma listbox.Mon soucis est que j'aimerais récupérer le résultat contenu dans ma listbox dans un fichier format txt , word ou excel meme si cest possible peu importe.je compte vraiment sur vous.
Merci d'avance!

Bonjour,

Essaie comme ceci en changeant les noms des contrôles / fichier si nécessaire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub CommandButton1_Click()
    Dim I As Long
    Dim Rep As Integer
 
    'Vérifie si le fichier existe
    If Dir("C:\test.txt") <> "" Then
        Rep = MsgBox("Le fichier existe déjà" & vbCrLf & _
                    "Est-ce qu'on le supprime?", vbYesNo + vbQuestion, "")
        If Rep = vbYes Then
            Kill "C:\test.txt"  'Suppression du fichier existant
        Else
            Exit Sub            'on sort sans créer de fichier
        End If
    End If
 
    'Copie le contenu de la listbox dans le fichier txt
    Open "C:\test.txt" For Output As #1
    For I = 0 To ListBox1.ListCount - 1
        Print #1, ListBox1.List(I)
    Next
    Close #1
End Sub

14/08/2017, 20h15
Dorbuntu

ça me met une erreur d’exécution
erreur d’accès chemin/fichier
14/08/2017, 20h48
parmi

Il faudrait voir ton code pour pouvoir comprendre...
15/08/2017, 11h50
joe.levrai

Bonjour,

change le chemin du fichier .txt, pour par exemple le mettre dans ton dossier Mes Documents ou tout autre endroit moins "sensible" aux yeux de Windows peut être
16/08/2017, 10h17
Dorbuntu

Merci beaucoup.J'ai changé et ça marche bien.Vraiment merci!:lol: