Macro importation fichier text

Bonjour la communauté,

Je souhaiterais importer un fichier text via une macro, c'est à dire quelque soit le mot écris dans le fichier text, qu'il me l'importe automatiquement, en remplaçant le mot à chaque fois,

pour le test j'ai un fichier text avec les mots hello world et un fichier excel avec une macro enregistré lorsque j'ai fais la manipulation "importer fichier text" sauf que la macro ne se reproduit pas et le code semble présenter une erreur,

quelqu'un peut-il m'éclaircir ?

Merci d'avance ,

Fred

Bonjour Fredo025,

voici un exemple avec Scripting.FileSystemObject

il faut ajouter la référence : Microsoft Scripting Runtime.

Sub test_lire()
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.file
Dim oTxt As Scripting.TextStream
Dim Filename As String
Dim i As Integer
Filename = "C:\Users\isabelle\Documents\Fredo025-texte.txt" '<--à adapter
Set oFSO = New Scripting.FileSystemObject
Set oFl = oFSO.GetFile(Filename)
Set oTxt = oFl.OpenAsTextStream(ForReading)
  While Not oTxt.AtEndOfStream
    i = i + 1
    Range("A" & i) = oTxt.ReadLine
  Wend
End Sub

Cela fonctionne à merveille,

merci beaucoup

super Fredo, merci du retour,

aller coche la case résolu, il parait que c'est bon pour le moral