Discussion :

[Soken93]

Je suis confronté à un problème.
Voilà, pour ouvrir n'importe quel fichier texte en VBA, je suis passé par là:

Code :

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

1
2
3
Monfichier = Application.GetOpenFilename
Workbooks.OpenText Filename:=Monfichier, Origin:=xlWindows, _
StartRow:=1, DataType:=xlDelimited, Semicolon:=True

Cela m'ouvre un fichier (texte) dans un autre classeur à part.
Or, je souhaite avoir le fichier dans le classeur avec lequel je travaille et c'est là que je bloque.
Quelqu'un aurait un moyen d'avoir ce que je souhaite ?
Merci d'avance.

[EricDgn]

Bonjour,

Quelque chose de ce genre devrait faire cela: ouvrir le fichier et copier la feuille dans le dossier actif.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub GetTextFile()
   Dim MonFichier As String, wbA As Workbook, wbB As Workbook
   Set wbA = ActiveWorkbook
   MonFichier = Application.GetOpenFilename
   Workbooks.OpenText FileName:=MonFichier, Origin:=xlWindows, _
                      StartRow:=1, DataType:=xlDelimited, Semicolon:=True
   Set wbB = ActiveWorkbook
   wbB.Sheets(1).Copy Before:=wbA.Sheets(1)
   wbB.Close SaveChanges:=False
   Set wbB = Nothing
   Set wbA = Nothing
End Sub

Bonne continuation.