Inserer des mots d'un .txt dans excel

sincèrement je peux effectivement te préparer cela, mais je n'ai pas le temps maintenant je te propose de le faire ce soir si personne ne t'a aidé d'ici là.

Une dernière question avant de faire cela, les fichiers sont au format word ou au format texte?

Irem

tous les fichiers sont en format word, mais juste pour l'information que c pas moi qui décide que ça soit fait à la main ou non, je suis en stage et on me demande faire ça.

merci encore

permiere étape convertir tous les fichiers, pour cela créé une macro (sous excel par exemple) et éxécute la :

Private Sub Synchroniser_Click()
Dim str_Pattern As String
str_Pattern = "*.mtn.doc"
str_path = "c:\test\" 'a toi de préciser
With Application.FileSearch
.NewSearch
.LookIn = ThisWorkbook.Path
.SearchSubFolders = False
.Filename = str_Pattern
.MatchTextExactly = True
.FileType = msoFileTypeOfficeFiles
End With
Dim i As Integer
Dim str_Destination, str_Source As String
With Application.FileSearch
Dim myWord As Word.Application
Dim MyWordDoc As Word.Document
Set myWord = New Word.Application
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
Rem ThisWorkbook.Sheets.Add.Move after:=Worksheets(Worksheets.Count)
myWord.Documents.Open .FoundFiles(i)
Set MyWordDoc = myWord.Documents(1)
MyWordDoc.SaveAs .FoundFiles(i) & ".txt", wdFormatDOSTextLineBreaks
myWord.Documents.Close
Next i
Else
MsgBox "Aucun fichier trouvé."
End If
myWord.Quit
Set myWord = Nothing
End With
End Sub

tous les fichiers seront copiés en format texte en récupérant les sauts de ligne

Irem