Recherche:

C'est bon j'ai trouvé.

Pour ceux qui souhaiterait importer le contenu de plusieurs fichiers texte et le nom du fichier à côté.
Voici le code:


Sub MacroImporterFicTexte()
'
' Charge...

Voila mon code :


Sub MacroImport()
'
' Charge test1
'

Dim Fichier As String, Chemin As String
Dim i As Long

Bonjour Dom,

Merci C'est bien ça!
Mais je me rends compte que les données sont inexploitables. Si par exemple je veux filtrer le contenu pour une date donnée , je ne peux pas avec cette...

Bonjour,

A l'aide de la fonction ImportText ci-dessous:


Sub ImportText(NomFichier As String, Cible As Range)
Dim WBS As Workbook


Workbooks.OpenText Filename:=NomFichier, _

ça marche merci bcpppp!!!

Menhir,

ça marche! Un des fichiers qui m'indiquait une erreur 7 à l'exécution s'est bien collé dans mon onglet excel. Je vais faire des tests sur le reste et je reviens vers toi.
Merci beaucoup...

Menhir,

Si j'ai bien compris ton dernier message, tu me suggère de remplacer

Set WBS = Workbooks.OpenText

en

Set WBS = ActiveWorkbook

Si je fais ça

Sub ImportText(NomFichier As String, Cible As Range)
Dim WBS As Workbook

Set WBS = ActiveWorkbook Filename:=NomFichier, _
StartRow:=1, _
...

Merci Menhir de t'intéresser à mon problème.
Le problème avec l'import texte c'est qu'il ne me prend pas tous les fichiers commençant par test1.
J'ai essayé quand même pour voir ce que ça donne...

Bonjour,

Je souhaite copier plusieurs fichiers texte qui sont dans un répertoire: prendre tous les fichiers test1_... (test1_08/01/2016, test1_09/01/2016, ...) et les coller dans l'onglet test1....

Bonjour,

Merci pour votre tuto. Je l'ai essayé, ça marche pour quelques fichiers mais pour d'autres. Lorsque je lance la macro j'ai une erreur 7 : mémoire insuffisante.
Pourrez vous m'aider SVP....

Bonjour,

J'ai lu cette discussion.
Votre macro est très intéressant, elle m'a permis de résoudre en partie un besoin que j'ai et cela fait des jours que je cherche une solution.
Voila mon...