[VBA-E] Import de fichier txt multiple

**Jidewe** · 07/02/2007, 11h08

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** · 07/02/2007, 11h15

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** · 07/02/2007, 18h39

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** · 07/02/2007, 19h27

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** · 07/02/2007, 22h22

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** · 07/02/2007, 22h48

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+

**Jidewe** · 07/02/2007, 23h23

Non en fait c'etait juste la premiere cellule, celle depuis laquelle la ligne devait etre importée dans des cellules séparées.

Merci pour ton code. Cependant il me dit qu'il ne trouve pas les fichiers au moment de l'ouverture. (Open fic For Input As #1) :<

**ouskel'n'or** · 07/02/2007, 23h28

Oui, j'ai oublié d'ajouter le chemin,

ajoute-le.

Code :

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

1
2
3
4
    Do Until fic = ""
        Fic = "C:\text\" & Fic
        CelVide = CelVide + 1
        Open fic For Input As #1

A+

**ouskel'n'or** · 07/02/2007, 23h37

Je viens de relire ta réponse. Tu vas devoir modifier mon code pour tenir compte des séparateurs (j'ai enfin compris). Je reprends toute la sub pour éviter les erreurs

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
Dim fic As String
Dim CelVide As Integer
Dim Tableau
    CelVide = 1
    fic = Dir("C:\text\*.txt")
    Do Until fic = ""
        CelVide = CelVide + 1
        Fic = "C:\text\" & Fic
        Open fic For Input As #1
        Line Input #1, LaLigne
        Close
        Tableau = Spit(LaLigne,";")
        For i = 1 to Ubound(Tableau)
             Cells(CelVide, i+1) = Tableau(i)
        Next
        fic = Dir
    Loop
End Sub

Tu dis
A+

**Jidewe** · 09/02/2007, 13h21

D'accord! Merci beaucoup pour ton aide et pour le temps que tu prends pour me répondre

J'ai copier/coller ton code, et il me surligne Spit en me disans qu'il y aune Sub ou une Fonction qui n'est pas définie.

Pitit Up pour ouskel'n'or, j'ai chercher sur le net des infos pouvant me permettre de debugger ton code mais ça n'a rien donné de fructueux.

**SfJ5Rpw8** · 09/02/2007, 13h33

quelle est la version d'excel utilisée...?

**Jidewe** · 09/02/2007, 15h17

2003

**ouskel'n'or** · 09/02/2007, 15h18

Oui, c'est split. tu as spit ?
Ben oui, y'a spit dans mon code (!) Tu corriges, c'est split

A+

**Jidewe** · 12/02/2007, 15h43

Merciii c'est parfait!
Enfin presque! Tout petit détails mais existe il un moyen de ne pas importer les guillemets de mes chaines de caractères?

Mon fichier texte prend cette forme :

"blabla","blablabla",0,"blabla"

J'aimerais Importer

blabla --- blablabla --- 0 --- blabla

Bon sinon tout le reste fonctionne, merci encore!

**helios77** · 12/02/2007, 16h21

tu rempalcece bout de code

Code :

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

1
2
3
For i = 1 to Ubound(Tableau)
             Cells(CelVide, i+1) = Tableau(i)
        Next

par celui-ci

Code :

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

1
2
3
For i = 1 to Ubound(Tableau)
             Cells(CelVide, i+1) = Replace(Tableau(i),chr(34),"")
        Next

Ce code va remplacer les " par rien du tout

**ouskel'n'or** · 12/02/2007, 16h37

Pour éviter les guillemets, tes fichiers textes doit être renseignés avec print et non white ... au cas où ce serait toi qui les renseignes

Ainsi tu n'auras rien à remplacer

A+

**Jidewe** · 12/02/2007, 16h46

Ok merci

Une derniere question c'est possible? ^o^

J'ai modifié le code pour récuperer le chemin des fichiers depuis une cellule et l'index de ligne depuis une autre (de façon à pouvoir réimporter une fois suivante à la suite du classeur)

L'index de ligne fonctionne parfaitement mais pas le chemin de fichier...
Est ce que je m'y prends mal ou est ce que le chemin doit être d'une certaine forme dans la cellule?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton1_Click()
Dim fic As String
Dim Dirfic As String
Dim CelVide As Integer
Dim Tableau
    Dirfic = Cells(1, 5).Value
    CelVide = Cells(1, 2).Value
    fic = Dir(Dirfic & "*.txt")
    Do Until fic = ""
        CelVide = CelVide + 1
        fic = Dirfic & fic
        Open fic For Input As #1
        Line Input #1, LaLigne
        Close
        Tableau = Split(LaLigne, ";")
        For i = 0 To UBound(Tableau)
             Cells(CelVide, i + 1) = Tableau(i)
        Next
        fic = Dir
    Loop
    Cells(1, 2).Value = CelVide
    MsgBox "Les fichiers ont été importés. Veuillez les supprimer avant une nouvelle importation."
End Sub

**Jidewe** · 12/02/2007, 23h55

De même, au sujet des guillements. En fait comme j'ai déja une centaines de fichiers txt crées à importer, il me faut trouver une façon de les supprimer :/

**ouskel'n'or** · 13/02/2007, 00h30

Deux choses
pour connaître la dernière ligne de ton fichier, ou plutôt la première ligne vide, tu peux te dispenser de l'index

Code :

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

1
2
3
4
    PremièreLigneVide = Range("A1").CurrentRegion.End(xlDown).Row + 1
    PremièreLigneVide = Range("A1").End(xlDown).Row + 1
    PremièreLigneVide = Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1
    PremièreLigneVide = Range("A65535").End(xlUp).Row + 1

avec une préférence pour la ligne en bleu depuis qu'AlainTech l'a proposée

Pour les guillemets, je te propose d'essayer ça

Code :

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

        Tableau = Split(LaLigne, """;""")

Tu dis
A+

PS - Tu risque d'avoir un guillemet sur la première et la dernière donnée de la ligne
Tu peux utiliser

Code :

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

LaLigne = Replace(LaLigne,chr(34),"")

avant le split

**Jidewe** · 13/02/2007, 10h45

Merci pour tout ouskel'n'or! C'est enfin terminé! ^^

[VBA-E] Import de fichier txt multiple

Macros et VBA Excel

Discussions similaires

Partager

Partager