Nul besoin d'un code vba pour cela, il suffit d'ouvrir le fichier avec excel puis préciser le séparateur (dans la présente ";"), excel fera le reste

Irem

Sinon il te suffit de changer l'extension de ton .txt en .csv et de l'ouvrir avec excel. C'est le format excel qui a comme caractère séparateur le point virgule.

Merci, mais je ne sais pas comment préciser le séparateur sous excel,

en fait je vous explique le projet:

j'ai un dossier qui contient plusieurs fichiers textes, je veux copier la premiere ligne de chaque fichier, et l'insérer dans une ligne sous excel,


merci encore

Combien de fichiers textes, si tu en as que quelques-uns se sera plus rapide à la main que de débugger une macro, pour préciser le séparateur tu fais

Fichier-> ouvrir
sélectionne "*.*" comme filtre
sélectionne le fichier texte

dans le premier écran d'assistant choisis "texte délimité"

et dans le second "séparateur : ;"

Irem

Tu ouvres tous les fichiers dont tu as besoin en . csv avec excel et après il te suffit de copier les lignes qui t'intéresse pour les mettre dans ta nouvelle feuille excel.

Enfin une fois faite la transfo en texte, reste a exécuter la fusion :

Private Sub fusionner()
Dim str_Pattern, str_Path As String
str_Pattern = "*.mtn.doc.txt"
str_Path = "c:\test\" 'a toi de préciser
Dim int_I, int_J As Integer
int_I = 1
Dim filesys, text, readfile, contents
Dim MyData
Set filesys = CreateObject("Scripting.FileSystemObject")
With Application.FileSearch
.NewSearch
.LookIn = ThisWorkbook.Path
.SearchSubFolders = False
.Filename = str_Pattern
.MatchTextExactly = True
' .FileType = msoFileTypeOfficeFiles
End With
With Application.FileSearch
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Set readfile = filesys.OpenTextFile(.FoundFiles(i), 1, False)
contents = readfile.ReadLine
readfile.Close
Set readfile = Nothing
contents = Replace(contents, ";", Chr(9))
contents = Replace(contents, Chr(34), "")
MyData = Split(contents, Chr(9))
For int_J = 0 To UBound(MyData)
ThisWorkbook.Sheets(1).Cells(int_I, int_J + 1).Value = MyData(int_J)
Next int_J
int_I = int_I + 1
Next i
Else
MsgBox "Aucun fichier trouvé."
End If
End With

End Sub


et tout marche chez moi

Irem