Discussion :

[Dorbuntu]

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!

[parmi]

Bonjour,

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

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
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

[Dorbuntu]

ça me met une erreur d’exécution
erreur d’accès chemin/fichier

[parmi]

Il faudrait voir ton code pour pouvoir comprendre...

[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

[Dorbuntu]

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