Importer des données
Résolu/Fermé
kvjld35
Messages postés
22
Date d'inscription
jeudi 12 mai 2016
Statut
Membre
Dernière intervention
13 juin 2016
-
17 mai 2016 à 09:59
kvjld35 Messages postés 22 Date d'inscription jeudi 12 mai 2016 Statut Membre Dernière intervention 13 juin 2016 - 17 mai 2016 à 11:07
kvjld35 Messages postés 22 Date d'inscription jeudi 12 mai 2016 Statut Membre Dernière intervention 13 juin 2016 - 17 mai 2016 à 11:07
A voir également:
- Importer des données
- Importer marque page firefox - Guide
- Importer contact - Guide
- Importer video youtube - Guide
- Importer favoris chrome - Guide
- Extraire des données d'un tableau excel vers un autre tableau ✓ - Forum Excel
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
15 mars 2023
2 712
17 mai 2016 à 11:01
17 mai 2016 à 11:01
Bonjour,
Ce code va boucler sur tous les fichiers csv d'un même répertoire.
Ne fonctionne pas avec les répertoires "spéciaux" de windows (bureau etc...). Si c'est le cas, on peut faire différemment...
Ce code va boucler sur tous les fichiers csv d'un même répertoire.
Ne fonctionne pas avec les répertoires "spéciaux" de windows (bureau etc...). Si c'est le cas, on peut faire différemment...
Sub ImportCsv()
Dim objShell As Object, objFolder As Object
Dim Chemin As String, Fichier As String
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder(&H0&, "Choisir un répertoire", &H1&)
If objFolder Is Nothing Then
MsgBox "Abandon opérateur", vbCritical, "Annulation"
Else
Chemin = objFolder.ParentFolder.ParseName(objFolder.Title).Path & "\"
Fichier = Dir(Chemin & "*.csv")
Do While Len(Fichier) > 0
'ici le code d'import des fichiers
Debug.Print Chemin & Fichier
Fichier = Dir()
Loop
End If
End Sub
17 mai 2016 à 11:07
Ta réponse m'épargne pas mal de temps, merci.