JeffJeffJeff
XLDnaute Nouveau
Bonjour,
Je sais qu'il existe tout un tas de sujet sur l'importation de fichiers .txt dans excel, mais après avoir écumé les forums, je ne trouve aucune solution qui ne me satisfasse (ou qui fonctionne...)
Voila ce que je cherche : importer les données de différents fichiers .txt (issus d'un même dossier sur le disque dur) dans un même fichier excel. Les données des fichiers .txt étant répartis sur deux colonnes, il faudrait donc que toutes les données importées se répartissent dans différentes colonnes.
En pièce jointe, voici deux exemples de fichiers .txt
J'ai trouvé le Macro ci-dessous qui m'intéresse beaucoup car je peux lui renseigner où sont situer les fichiers .txt à importer. Le problème est qu'il n'importe qu'un fichier à la fois.
http://www.commentcamarche.net/forum/affich-17121473-importation-fichier-txt-dans-excel
Avez-vous une idée?
Je sais qu'il existe tout un tas de sujet sur l'importation de fichiers .txt dans excel, mais après avoir écumé les forums, je ne trouve aucune solution qui ne me satisfasse (ou qui fonctionne...)
Voila ce que je cherche : importer les données de différents fichiers .txt (issus d'un même dossier sur le disque dur) dans un même fichier excel. Les données des fichiers .txt étant répartis sur deux colonnes, il faudrait donc que toutes les données importées se répartissent dans différentes colonnes.
En pièce jointe, voici deux exemples de fichiers .txt
J'ai trouvé le Macro ci-dessous qui m'intéresse beaucoup car je peux lui renseigner où sont situer les fichiers .txt à importer. Le problème est qu'il n'importe qu'un fichier à la fois.
Code:
Sub txtenxls()
Dim ScanFic As Office.FileSearch
Dim NomFic As Variant
Dim fichier As String
Dim Nbr As Long
Set ScanFic = Application.FileSearch
With ScanFic
.NewSearch
.LookIn = ActiveWorkbook.Path
.SearchSubFolders = True
.Filename = "*.txt"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
Nbr = .Execute
For Each NomFic In .FoundFiles
Workbooks.OpenText Filename:=NomFic
fichier = ActiveWorkbook.Name
ActiveSheet.Copy After:=Workbooks("Classeur1.xls").Sheets(3)
Workbooks(fichier).Activate
ActiveWorkbook.Close
Next
End With
End Subhttp://www.commentcamarche.net/forum/affich-17121473-importation-fichier-txt-dans-excel
Avez-vous une idée?