Discussion :

[Jidewe]

Bonjour,

J'ai lu les differents messages du forum traitant du sujet, et j'ai essayer d'ecrire une macro pour importer "n" fichiers textes depuis un repertoire précis, séparateur ",", et un fichier texte par ligne.

Pour l'index de ligne, j'utilise une cellule qui contient l'index de la ligne vide, valeur que j'augmente de 1 à chaque importation.

Seulement étant débutant en VBA je n'arrive pas a faire fonctionner le code car je ne comprends pas exactement chaque instructions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()
Dim fic As String
Dim CelVide As Integer
CelVide = 1
fic = Dir("C:\text\*.txt")
Do Until fic = ""
    CelVide = CelVide + 1
    ImportText fic, Cells(CelVide, 1)
    fic = Dir
Loop
 
End Sub

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub ImportText(FileName As String, PosImport As Range)
Dim QT As QueryTable
Set QT = ActiveSheet.QueryTables.Add(Connection:="TEXT;" & FileName, Destination:=PosImport)
With QT
    .TextFileSemicolonDelimiter = True
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .Refresh
 
End With
End Sub

Bon, ça ne fonctionne pas ^^ Si quelqu'un pouvais m'aider a debboger ce code? merci!

[ouskel'n'or]

Juste quelques précisions
Tu n'as qu'une ligne dans tes fichiers texte ?
Tu veux mettre tout le contenu de chaque fichier texte dans une seule cellule (une cellule par fichier texte) ?
Tu dis
A+

[Jidewe]

Oui une seule ligne
Non, une donnée par cellule. Le code qui delimite les donnees fonctionne correctement.

1 fichier txt = 1 ligne txt = 1 ligne excel = n colonnes.

[ouskel'n'or]

Je vais te donner une solution qui n'est pas la tienne mais quel est le problème de ton code ? Toute la ligne se retrouve dans une cellule, avec ses ";" ?
A tout'

PS - pour la première ligne, tu me diras ce qui se passe

[Jidewe]

Non c'est juste qu'il ne fonctionne pas xD Probleme de logique, de syntaxe, je ne sais pas mais c'est pas correct. J'arrive juste a importer UN fichier txt dont je connais le nom. Le reste je sais pas faire...

[ouskel'n'or]

Comme je t'ai dit, je ne reprends pas ta solution qui me paraît lourde pour des fichier ne comportant qu'une ligne. Si cela ne t'ennuie pas de tester ça, je pourrai t'aider en cas de pb. Je n'ai pas encore compris si ta ligne, dans le fichier texte, avaient plusieurs données séparées par un ";" (semicolon) car dans ton code, tu mets .TextFileSemicolonDelimiter = True et que tu colles la ligne dans une seule cellule.
Tu me diras

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim fic As String
Dim CelVide As Integer
    CelVide = 1
    fic = Dir("C:\text\*.txt")
    Do Until fic = ""
        CelVide = CelVide + 1
        Open fic For Input As #1
        Line Input #1, LaLigne
        Cells(CelVide, 1) = LaLigne
        Close
        fic = Dir
    Loop
End Sub

A+