Discussion :

[simonlagaffe]

Bonjour à tous,

Je cherche à pouvoir insérer un fichier texte avec séparateur ";" et à l'insérer dans une nouvelle feuille appelée "Data".
Pour le moment j'ai trouvé ce code là, mais le soucis c'est qu'il me l'ouvre dans un nouveau fichier excel, et sans le séparateur.

Code :

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

1
2
3
4
 
Sheets.Add.Name="Data"
opendial = Application.GetOpenFilename(FileFilter:="texte (*.txt), .txt", FilterIndex:=1, Title:="Sélectionner le fichier texte à ouvrir...", MultiSelect:=False)
Workbooks.Open Filename:=opendial

Comment puis-je faire?

Merci d'avance

[mjpmjp]

bonjour,
tu as cherché au tour de Workbooks... style WorkBooks(MonWorkBookName)... ou ThisWorkBook ...?

@+JP

[patricktoulon]

bonjour
exemple a la louche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Sub test()
    opendial = Application.GetOpenFilename(FileFilter:="texte (*.txt), .txt", FilterIndex:=1, Title:="Sélectionner le fichier texte à ouvrir...", MultiSelect:=False)
    If opendial = False Then Exit Sub
    Sheets.Add.Name = "Data"
    Workbooks.Open Filename:=opendial, local:=True
    ActiveSheet.UsedRange.Copy
    ActiveWindow.Close
    ActiveSheet.Paste
    Columns(1).TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Semicolon:=True
End Sub

c'est quasiment l'enregistreur de macro qui a tout fait. Servez vous en non de dieu !!!

[Menhir]

il me l'ouvre dans un nouveau fichier excel,

Il ne te reste plus qu'à transférer l'onglet dans le classeur souhaité avec la méthode Move (ou Copy) de Worksheet.
https://msdn.microsoft.com/fr-fr/lib.../ff834742.aspx
Et à refermer le classeur source sans sauvegarder.

et sans le séparateur.

Plutôt que d'utiliser Open, utilises OpenText qui te permettra de mieux contrôler les séparateurs.
https://msdn.microsoft.com/fr-fr/vba...t-method-excel

[Marc-L]

Bonjour !

et sans le séparateur.

Code :

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

1
2
 
Workbooks.Open Filename:=opendial

Comment puis-je faire?

Et pourtant cette méthode Open peut ouvrir ton fichier, juste consulter l'aide VBA interne …

Sinon pour importer directement dans une feuille c'est via Import à partir d'un fichier du menu Données,
voir l'objet QueryTable dans l'aide VBA.

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[patricktoulon]

re
lire le post#3