Inserer des mots d'un .txt dans excel
mirou
-
irem Messages postés 166 Statut Membre -
irem Messages postés 166 Statut Membre -
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-
j'ai 500 fichiers qui sont en format word mtn, c pour ça j'aimerai bien que ça soit automatique:
je veux les tranformer en en format texte ou csv automatiquement,
apres copier le contenu et inserer le contenu de chaque fichier texte dans une ligne sous un fichier excel.
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
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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
