XL 2013 Importer plusieurs fichiers txt. dans excel

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.

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 Sub

http://www.commentcamarche.net/forum/affich-17121473-importation-fichier-txt-dans-excel

Avez-vous une idée?
 

Pièces jointes

Bonsoir Jeff,

Peut-être que VBA n'est pas la solution la plus simple pour faire exactement ce que tu veux. Puisque tu sembles être sur Excel 2013, PowerQuery est inclus et marche particulièrement bien pour fusionner des fichiers txt provenant du même dossier.

Une petite vidéo explicative trouvée sur Youtube
Pour afficher ce contenu, nous aurons besoin de votre consentement pour définir des cookies tiers.
Pour plus d'informations, consultez notre page sur les cookies.
A essayer...
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour