Ouvrir un fichier texte dans le même classeur utilisé en VBA

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

Code:

---

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.

Bonjour,

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

Code:

---

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.