Posez votre question Format imprimable Liste des forums Aidez-les Statistiques Rechercher Charte Forum Bureautique

Import plusieurs fichiers txt dans excel

Dernière réponse le 29 jun 2008 à 21:09:31 fabienne35, le 27 jun 2008 à 22:44:52

Signaler ce message aux modérateurs

Bonjour,

Je voudrais importer plusieurs fichiers.txt.
J'ai réussi à lister les noms des fichiers txt dans une feuille excel (plage nom_fichiers).
j'aimerais paramètrer une partie de la macro pour qu'il aille chercher le nom des fichiers dans la plage nom_fichiers de ma feuille excel.

Au premier tour :
'
Workbooks.OpenText Filename:= _
"D:\reponses\fichier1.txt", _

Au deuxième tour :

Workbooks.OpenText Filename:= _
"D:\reponses\fichier2_delaliste.txt", _

J'espère que ma demande est assez claire.

Merci de votre aide

Configuration: Windows XP
Internet Explorer 6.0
Excel 97

Meilleures réponses pour « Import plusieurs fichiers txt dans excel » dans :

[php]Import fichier .txt dans BDD Mysql Voir

Découper fichier TXT en pls fichiers Excel (Résolu) Voir

[Excel/VBA]ecrire un fichier .txt Voir

Transformer un fichier Microsoft Excel (.xls) en PDF VoirTransformer en fichier PDF un fichier Microsoft Excel (.xls) Rien de plus simple ! Ouvrez votre fichier *.xls avec OpenOffice.org Réglez éventuellement la mise en page par le menu Format / Page... Dès lors, 2 solutions pour transformer en...

[MS-Dos] Ecrire dans un fichier texte en batch VoirPour écrire dans un fichier texte, il suffit d'utiliser une redirection ">" : echo texte_à_ecrire > fichier_de_sortie.txt Pour écrire à la fin d'un texte existant (concaténation) : echo "écriture a la fin du fichier ">>...

Ouvrir plusieurs fichier txt dans excel(macro Voir

Excel = exporter vers un fichier texte Voir

Import fichier txt (ventes) vers Ciel Compta Voir

Fichier TXT VoirFormat TXT Un fichier TXT est un fichier texte, c'est-à-dire un simple fichier contenant du texte au format ASCII. Pour ouvrir ou modifier un tel fichier, il suffit d'utiliser le bloc-notes ou un éditeur de texte traditionnel.

Posez votre question Répondre

lermite222, le 28 jun 2008 à 09:23:05

Bonjour,
Si j'ai compris ce que tu veux...

Sub OuvreTxt()
Dim Cell As Range
    For Each cel In Range("Feuil1!FichierTxt")
        Workbooks.OpenText Filename:=cel.Value
    Next cel
End Sub

Tu dit...
A+ L'expérience instruit plus sûrement que le conseil. (André Gide)

Répondre à lermite222

fabienne35, le 29 jun 2008 à 21:09:31

Merci pour ta réponse,
c'est exactement ce que je souhaitais.

Répondre à fabienne35

Posez votre question Répondre