Modifier le repertoire dimportation à partir de la feuille Excel [Résolu/Fermé]

Messages postés
60
Date d'inscription
vendredi 21 juin 2013
Statut
Membre
Dernière intervention
9 septembre 2013
- - Dernière réponse :  klissou69 - 21 août 2013 à 14:41
Bonjour,

j'ai un code d'importation de fichier, et j'aurais besoin de pouvoir modifier le répertoire source, là ou on récupère le fichier à importer, directement sur ma feuille Excel.

Par exemple, créer une petite fenêtre intitulée : " renseigner le répertoire source : "

Cela est-il possible ?

Sub Test1()
    Dim Fichier As String, Chemin As String
    Dim i As Long
    
    'Répertoire contenant les fichiers
    Chemin = "H:\repertoireA\test"
    Fichier = Dir(Chemin & "\*.*")
    
    'Boucle sur les fichiers
    Do While Fichier <> ""
        
        i = Range("A65536").End(xlUp).Row + 1
        ImportText1 Chemin & "\" & Fichier, Cells(i, 1)
        
        Fichier = Dir
    Loop
End Sub
 


Sub ImportText1(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
 




Excel 2003

Merci d'avance.
Afficher la suite 

2 réponses

Messages postés
14791
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 octobre 2019
1177
0
Merci
Bonjour,

mettez le chemin dans une cellule, ex: A1--> H:\repertoireA\test"

et dans le code:

Chemin = Worksheets("feuil1").Range("A1")

Bonne suite
0
Merci
merci beaucoup !