Discussion :

[pacolapin]

Bonjour, dans mon programme j'importe mon fichier texte et je le passe en excel mais, je suis obliger de l'ouvrir dans un nouvel excel pour avoir la bonne tabulation.
J'aimerai qu'il puisse s'ouvrir depuis l'excel déjà en fonction avec la bonne tabulation.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Importer_Click()
Dim fichier_choisi As String
 
fichier_choisi = Application.GetOpenFilename("text files(*.txt),*.txt", , "Sélectionner un ficher CSV")
 
If (LCase(fichier_choisi) <> "faux" And fichier_choisi <> "0") Then
liste_fichier.AddItem (fichier_choisi)
If Right(fichier_choisi, 3) = "xls" Then
Workbooks.Open fichier_choisi
Else
Workbooks.OpenText fichier_choisi, Tab:=True, Semicolon:=True, local:=True

Voilà e que j'ai tapé,

Pourriez vous m'aidez ?