Macro importation fichier texte ne fonctionne pas

Résolu/Fermé

kgigant Messages postés 202 Date d'inscription lundi 21 mars 2011 Statut Membre Dernière intervention 8 janvier 2014 - 13 févr. 2013 à 09:05
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 - 13 févr. 2013 à 10:01

Bonjour,

J'ai besoin d'une macro qui importe tout le contenu de tous mes fichiers textes qui sont dans un dossier d'un disque dur. J'ai donc cherché une macro qui correspondait à mes attentes mais elle ne fonctionne pas et je n'arrive pas à comprendre pourquoi :

Sub importfichiertxt()
Dim Fichier As String, Chemin As String
Dim i As Long

'Répertoire contenant les fichiers
Chemin = "(H:)\comp"
Fichier = Dir(Chemin & "\*.txt")

'Boucle sur les fichiers
Do While Fichier <> ""

i = Range("A65536").End(xlUp).Row + 1
ImportText Chemin & "\" & Fichier, Cells(i, 1)

Fichier = Dir
Loop
End Sub

Mon code bug au niveau de la ligne fichier.

Pour info tous mes fichier txt que je doit importer sont dans le fichier comp du disque H

A voir également:

Macro importation fichier texte ne fonctionne pas
Fichier rar - Guide
Fichier host - Guide
Fichier iso - Guide
Comment réduire la taille d'un fichier - Guide
Ouvrir fichier .bin - Guide

2 réponses

Réponse 1 / 2

kgigant Messages postés 202 Date d'inscription lundi 21 mars 2011 Statut Membre Dernière intervention 8 janvier 2014 9
Modifié par kgigant le 13/02/2013 à 09:56

Sub importfichiertxt()
Dim Fichier As String, Chemin As String
Dim i As Long

'Répertoire contenant les fichiers
Chemin = "H:\comp"
Fichier = Dir(Chemin & "\*.txt")

'Boucle sur les fichiers
Do While Fichier <> ""

i = Range("A65536").End(xlUp).Row + 1
ImportText Chemin & "\" & Fichier, Cells(i, 1)

Fichier = Dir
Loop
End Sub

Celui ci marche !!! apparement ça bloqué au niveau des parenthèse pour le chemin

Réponse 2 / 2

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 212
13 févr. 2013 à 10:01

Bonjour

Fichier = Dir()
et de mémoire ça serait plutôt :
Chemin = "H:\comp\"
Fichier = Dir(Chemin & "*.txt")

eric

Discussions similaires

comment donner les droits sur fichier partage

Formule Excel : "SI" une cellule contient un mot, alors ?

Discussions similaires

Newsletters