problème import de plusieurs fichiers csv

[jopont]

Bonjour,

J'essaye d'importer en automatique plusieurs fichiers .csv avec le code ci-dessous.
-La macro Lire fonctionne lorsque que je l’exécuté avec un fichier.
Par contre lorsque je l'exécute depuis la macro Tst, pour traiter plusieurs fichiers CSV, j'ai une erreur sur le open Fichier for input : erreur chemin fichier

-Deuxième problème, lorsque j'importe les champs de date sont parfois inversés.

Comment résoudre ces problème. Merci

Sub Tst()
Dim Fichier As Variant
    Chemin = ThisWorkbook.Path & "\"
    Fichier = Dir(Chemin & "*.csv")
    Do While Fichier <> False
        Lire Fichier
    Fichier = Dir()
    Loop
End Sub

Sub Lire(ByVal Fichier As String)
Dim Chaine As String
Dim Ar() As String
Dim i As Long
Dim iRow As Long, iCol As Long
Dim NumFichier As Integer
Dim Separateur  As String * 1
 
    '  Séparateur Point Virgule
    Separateur = ";"
     
    Cells.Clear
    Application.ScreenUpdating = False
    NumFichier = FreeFile
    iRow = 1
      Open Fichier For Input As #NumFichier
        Do While Not EOF(NumFichier)
            iCol = 1
            Line Input #NumFichier, Chaine
            Ar = Split(Chaine, Separateur)
            For i = LBound(Ar) To UBound(Ar)
                Ar(i) = Replace(Ar(i), "M-", "")
                Cells(iRow, iCol) = Ar(i)
                iCol = iCol + 1
            Next
             
           'Select Case Cells(iRow, 1)
                'Case Is = Cells(iRow, 2): Cells(iRow, 3) = "Ok"
                'Case Else: Cells(iRow, 3) = "Bad"
            'End Select
             
            iRow = iRow + 1
        Loop
    Close #NumFichier
     
    Application.ScreenUpdating = True
End Sub

 

[Pierrot93]

Re : problème import de plusieurs fichiers csv

Bonjour,

essaye en modifiant comme suit :

Sub Tst()
Dim Fichier As Variant
    Chemin = ThisWorkbook.Path & "\"
    Fichier = Dir(Chemin & "*.csv")
    Do While Fichier <> False
        Lire Chemin & Fichier
    Fichier = Dir()
    Loop
End Sub

bon après midi
@+

 

[jopont]

Re : problème import de plusieurs fichiers csv

J'ai fait l'essai mais j'ai un message d'erreur : Nom ou numéro de fichier incorrect.
Merci

 

[Pierrot93]

Re : problème import de plusieurs fichiers csv

Re,

A quel niveau l'erreur ? déclare peut être "fichier" en "string" dans la procédure "Tst"

 

[Pierrot93]

Re : problème import de plusieurs fichiers csv

Re,

Sub Tst()
Dim Fichier As String
    Chemin = ThisWorkbook.Path & "\"
    Fichier = Dir(Chemin & "*.csv")
    Do While Fichier <> ""
        lire Chemin & Fichier
    Fichier = Dir()
    Loop
End Sub

 

[jopont]

Re : problème import de plusieurs fichiers csv

Je n'ai plus d'erreur, mais je n'ai l'import que d'un seul fichier

 

[Pierrot93]

Re : problème import de plusieurs fichiers csv

Re,

bah... fonctionne bien chez moi... retrouve tous les csv du répertoire en question...

 

[jopont]

Re : problème import de plusieurs fichiers csv

J'ai deux fichiers csv dans le répertoire. Un avec 10 lignes et un autre avec 300 lignes.
Seul le fichier de 10 lignes est récupéré.
Mes fichiers CSV ne sont pas séparés par des points virgules ils s'ouvrent sous excel en colonne.

Aussi comment résoudre le problème de date ?
merci

 

[Pierrot93]

Re : problème import de plusieurs fichiers csv

Re,

ta procédure "lire" est bien appelée 2 fois ?

 

[jopont]

Re : problème import de plusieurs fichiers csv

Je crois que cells.clear effaçait les données.
Par contre je risque d'avoir 12 fichiers (12 mois) avec au moins 3000 lignes.
Est-ce que je risque d'être limité en nombre de ligne sur la feuille ?
Est-possible de luis dire importe sur la feuille qui correspond au mois ?
Comment résoudre mon problème de date inversée au niveau du jour et du mois ?
merci

 

[Pierrot93]

Re : problème import de plusieurs fichiers csv

Re,

Comment résoudre mon problème de date inversée au niveau du jour et du mois ?

regarde du coté de la conversion de données...

2007 dispose de plus d'un million de ligne... tu ne devrait pas être limité...

 

[jopont]

Re : problème import de plusieurs fichiers csv

En testant à nouveau, le premier fichier est écrasé par le second

 

[Pierrot93]

Re : problème import de plusieurs fichiers csv

Re,

bah ceci explique cela alors.... il faut chercher la dernière cellule utilisée d'une ligne et importer en dessous .

Cells(Rows.Count, 1).End (xlUp)(2)

 

[jopont]

Re : problème import de plusieurs fichiers csv

Je peux l'intégrer où dans la macro

 

[Pierrot93]

Re : problème import de plusieurs fichiers csv

Re,

quand tu envoies les données sur la feuille, mais j'utilise jamais ta méthoe d'import... perso j'utilise "opentext" ou mieux encore un objet "QueryTables"