Importer un fichier texte dans excel

Version imprimable

19/04/2012, 13h11
hocema

Importer un fichier texte dans excel

Bonjour ! je cherche un moyen d'importer un fichier texte dans excel, merci et bonne journée
19/04/2012, 13h32
brownthefou

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

Tout est expliqué dans ce tuto :

http://warin.developpez.com/access/fichiers/
19/04/2012, 13h36
rvtoulon

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

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

Code:

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