Importation fichier .txt dans excel
Résolu/Fermé
A voir également:
- Importation fichier .txt dans excel
- Fichier rar - Guide
- Liste déroulante excel - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Comment réduire la taille d'un fichier - Guide
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
25 mars 2010 à 12:02
25 mars 2010 à 12:02
Salut,
La procédure suivante ouvre tous les fichiers txt dans le répertoire courant du fichier excel (y compris dans des sous dossiers) et les copie dans une nouvelle feuille de notre classeur puis ferme les fichiers txt.
Pour insérer ce code depuis votre feuille excel tapez : ALT+F11, Insertion/Modules, copiez / collez tout ce code puis fermez la fenêtre Visual Basic.
Avant de l'utiliser, veuillez à ce que votre classeur Excel soit :
- nommé Classeur1.xls
- enregistré dans le répertoire contenant tous vos fichiers txt et vos sous répertoires.
Pour l'utiliser : depuis votre feuille excel : ALT+F8, sélectionner : txtenxls puis cliquez sur Exécuter
Reviens ici pour d'éventuelles modifications (notamment si tu veux tester si la feuille existe).
La procédure suivante ouvre tous les fichiers txt dans le répertoire courant du fichier excel (y compris dans des sous dossiers) et les copie dans une nouvelle feuille de notre classeur puis ferme les fichiers txt.
Pour insérer ce code depuis votre feuille excel tapez : ALT+F11, Insertion/Modules, copiez / collez tout ce code puis fermez la fenêtre Visual Basic.
Avant de l'utiliser, veuillez à ce que votre classeur Excel soit :
- nommé Classeur1.xls
- enregistré dans le répertoire contenant tous vos fichiers txt et vos sous répertoires.
Pour l'utiliser : depuis votre feuille excel : ALT+F8, sélectionner : txtenxls puis cliquez sur Exécuter
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
Reviens ici pour d'éventuelles modifications (notamment si tu veux tester si la feuille existe).
26 mars 2010 à 10:00
Merci