Inserer des mots d'un .txt dans excel
Bonjour,
je cherche à inserer à partir d'un fichier .txt des mots séparés par des points virgules, je veux insérer chaque mot dans une cellule. merci
par exemple:
"Adell de Ortells";"Isabelle";"VERINS-FRL";"JANCI Sébastien";
je veux inserer Adell de Ortells dans la premiere cellule, Isabelle dans la 2eme....
merci d'avance.
je cherche à inserer à partir d'un fichier .txt des mots séparés par des points virgules, je veux insérer chaque mot dans une cellule. merci
par exemple:
"Adell de Ortells";"Isabelle";"VERINS-FRL";"JANCI Sébastien";
je veux inserer Adell de Ortells dans la premiere cellule, Isabelle dans la 2eme....
merci d'avance.
Configuration: Windows XP Firefox 2.0.0.4
6 réponses
-
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-
-
@mirounetsincè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 -
@mirounettous 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 -
@mirounetpermiere é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
-
-
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
