Importer plusieurs fichiers excel [Résolu]
pipoune755 - - Dernière réponse : pipoune755 - 3 juil. 2013 à 14:46
A voir également:
- Importer des fichiers txt dans excel avec une macro vba
- ASP / ASP.NET : Importer un fichier excel depuis un poste et l'ajouter sur la bd du serveur - CodeS - Guide
- Accéder à un module vb de n'importe quel fichier excel ✓ - Forum - VB.NET
- Importer un fichier excel dans access ? ✓ - Forum - Visual Basic
- Insérer dans un fichier excel des données de n'importe quelle table/requête access - Codes sources - Visual Basic / VB.NET (Base de Donnees)
- Java : Importer fichier excel dans un jtable - CodeS SourceS - Guide
10 réponses
Meilleure réponse
Bonjour,
J'ai finalement trouvé le code suivant qui fonctionne.
Merci de votre aide .
J'ai finalement trouvé le code suivant qui fonctionne.
Merci de votre aide .
Sub Test()
Dim Fichier As String, Chemin As String
Dim i As Long
'Répertoire contenant les fichiers
Chemin = "H:\\TRAVAUX STAGIAIRE\test2"
Fichier = Dir(Chemin & "\*.*")
'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
Sub ImportText(NomFichier As Variant, Cible As Range)
Dim QT As QueryTable
Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & _
NomFichier, Destination:=Cible)
With QT
'Définit les séparateur de colonnes dans le fichier txt
.TextFileOtherDelimiter = ";"
.TextFileSemicolonDelimiter = True
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.Refresh
End With
End Sub
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 99 internautes ce mois-ci
Bonjour,
Merci MarcPL, j'ai donc trouvé cette fameuse fonction Dir qui m'a permis d'importer tous mes fichiers textes dans des feuilles Excel différentes.
Maintenant, j'aimerais les ouvrir toutes dans la même feuille.
Aurais-tu une autre fonction utile en stock ? :p
Merci de ton aide
Merci MarcPL, j'ai donc trouvé cette fameuse fonction Dir qui m'a permis d'importer tous mes fichiers textes dans des feuilles Excel différentes.
Sub ImportText()
'l'instruction ChDir permet de se positionner
'sur un répertoire précis
ChDir "***" '*** remplaçant le repertoire où je vais chercher tous mes fichiers textes
monfichier = Dir("*.*")
While monfichier <> ""
Workbooks.Open monfichier
monfichier = Dir()
Wend
End Sub
Maintenant, j'aimerais les ouvrir toutes dans la même feuille.
Aurais-tu une autre fonction utile en stock ? :p
Merci de ton aide
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
Bonjour,
- monfichier est le nom du fichier et non son chemin complet !
- assure-toi par ailleurs de ne pas ouvrir un fichier déjà ouvert
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
- monfichier est le nom du fichier et non son chemin complet !
- assure-toi par ailleurs de ne pas ouvrir un fichier déjà ouvert
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
- Messages postés
- 18039
- Date d'inscription
- lundi 7 décembre 2009
- Statut
et ceci :
reste à espérer que ce dossier ne contient que des classeurs Excel !
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
monfichier = Dir("*.*")
reste à espérer que ce dossier ne contient que des classeurs Excel !
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Son chemin complet est renseigné ici(si j'ai bien compris ) :
Et dans ce répertoire, il n'y a que des fichiers texte que je souhaite ouvrir dans une seule feuille Excel ( Désolé si je n'ai pas été suffisamment clair ).
Et donc le code :
ChDir "C:\***" '*** correspond au repertoire où je vais chercher tous mes fichiers textes
Et dans ce répertoire, il n'y a que des fichiers texte que je souhaite ouvrir dans une seule feuille Excel ( Désolé si je n'ai pas été suffisamment clair ).
Et donc le code :
monfichier = Dir("*.*") correspond à tous les fichiers qu'il va ouvrir à partir de mon répertoire que je lui ais indiqué ?
edit 2 : Sans explication aucune sauf plusieurs coups de pied dans l'unité centrale, j'ai réussi à ouvrir tous mes fichiers textes dans des feuilles excel. J'aimerai maintenant les ouvrir tous à la suite dans Une feuille EXcel. Quelqu'un peut-il m'aider svp ?
' Code Visual Basic anglais
Sub ouvrir_fichiers()
'l'instruction ChDir permet de se positionner
'sur un répertoire précis
ChDir "C:\TRAVAUX STAGIAIRE\autom rappro\test2"
monfichier = Dir("*.*")
While monfichier <> ""
Workbooks.Open monfichier
monfichier = Dir()
Wend
End Sub - Messages postés
- 3877
- Date d'inscription
- mardi 19 mars 2002
- Dernière intervention
- 23 août 2018
Bonjour,
Dans ta boucle While, tu dois ouvrir le fichier, déterminer la première ligne vide et y copier ton fichier. Par contre, dans ton code, on ne voit pas ce que tu fais de tes fichiers que tu ouvres... et ne fermes pas...
Si tu travailles avec des fichiers texte, regarde l'aide sur DataObject
Et utilise Open plutôt que workbooks.open
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
Dans ta boucle While, tu dois ouvrir le fichier, déterminer la première ligne vide et y copier ton fichier. Par contre, dans ton code, on ne voit pas ce que tu fais de tes fichiers que tu ouvres... et ne fermes pas...
Si tu travailles avec des fichiers texte, regarde l'aide sur DataObject
Et utilise Open plutôt que workbooks.open
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.