Discussion :

[pacolapin]

Bonjour, je suis sur un code VBA et je cherche à ouvrir mon fichier texte dans le sheet deja existant mais il m'ouvre un nouveau et si je l'ouvre dans l'existant je n'est pas la tabulation du nouveau sheet excel

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
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)
 
End If
 
If Right(fichier_choisi, 3) = "xls" Then
Workbooks.Open fichier_choisi
Else
Workbooks.OpenText fichier_choisi, Tab:=True, semicolon:=True, local:=True
 
End If
 
 
 
End Sub

Pourriez vous m'aider à résoudre ce problème