Discussion :

[hocema]

Bonjour ! je cherche un moyen d'importer un fichier texte dans excel, merci et bonne journée

[brownthefou]

La meilleure solution (pour moi) est de passer par le FSO.

Tout est expliqué dans ce tuto :

http://warin.developpez.com/access/fichiers/

[rvtoulon]

Bonjour
regarde dans la par exemple: http://excel.developpez.com/faq/?page=ChapFichiersTxt

[hocema]

merci ! j'ai besoin d'un coup de main pour ameliorer ce code, y a-t-il des erreurs

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
 Private Sub recuperation_Click()
 
    Dim Fichier
 
    Fichier = Application.GetOpenFilename("Text Files (*.txt), *.txt")
 
    If Fichier <> False Then
        'crée une requête sur le fichier texte et insère les champs
       'dans la feuille "Feuil1" en partant de "A1"
       Worksheets("feuil1").QueryTables.Add("TEXT;" & Fichier, [B1]).Refresh
    Else
        MsgBox "Pour importer des données dans Excel, vous devez choisir un fichier texte !"
    End If
    Unload Me
End Sub