Discussion :

[Mimosa777]

Bonjour,

J'ai une macro dans ma feuille Transfert de fichier (version MAD)2.xls qui lors de son execution m'ouvre le fichier transfert_fichiers2.csv . La macro importe bien le fichier mais le formattage est pas le bon et j'aurai besoin de votre aide svp.

Voici la macro qui fait le travail :

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
Sub LireFichierTxt()
Dim Ligne As String, NoLigne As Long, NoCol As Integer
Dim Tableau, Chemin, NomFich
Chemin = "I:\49801\Public\#AMK#\MAD\"
NomFich = "transfert_fichiers.csv"
    NoLigne = 2
    Open Chemin & NomFich For Input As #1
    While Not EOF(1)
        Input #1, Ligne
        Tableau = Split(Ligne, ",")
        NoLigne = NoLigne + 1
        For NoCol = 0 To UBound(Tableau)
             Cells(NoLigne, NoCol + 1).Value = Tableau(NoCol)
        Next
    Wend
    Close #1
End Sub

Je vous laisse en piece jointe aussi mon fichier contenant ma macro et le fichier que je desire importer. Je souhaite simplement que lors de l'importation, tout s'affiche pareil que lorsque j'ouvre le fichier transfert_fichiers2.csv

En ce moment, il affiche les donnees sur plsieurs lignes sans tenir compte des tabulations.

Merci de votre aide d'avance pour une piste !

resalut,

j'ai essayé de lire le fichier transfert_fichiers2.csv via une connection adodb mais helas, les extensions .csv de la méthode de Skillyroad sont pas acceptés.

Code utilisé :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Sub RequeteClasseurFerme()
    Dim Cn As ADODB.Connection
    Dim Fichier As String
    Dim NomFeuille As String, texte_SQL As String
    Dim Rst As ADODB.Recordset
 
    'Définit le classeur fermé servant de base de données
    Fichier = "I:\49801\Public\#AMK#\MAD\transfert_fichiers2.csv"
    'Nom de la feuille dans le classeur fermé
    NomFeuille = "transfert_fichiers2"
 
    Set Cn = New ADODB.Connection
 
    '--- Connection ---
    With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source=" & Fichier & _
            ";Extended Properties=Excel 8.0;"
        .Open
    End With
    '-----------------
 
    'Définit la requête.
    '/!\ Attention à ne pas oublier le symbole $ après le nom de la feuille.
    texte_SQL = "SELECT * FROM [" & NomFeuille & "$]"
 
    Set Rst = New ADODB.Recordset
    Set Rst = Cn.Execute(texte_SQL)
 
    'Ecrit le résultat de la requête dans la cellule A2
    Range("A2").CopyFromRecordset Rst
 
    '--- Fermeture connexion ---
    Cn.Close
    Set Cn = Nothing
 
End Sub

Si quelqu'un à une idée, merci de m'aider !

[JackOuYA]

Bonsoir,

je m'en tiendrai à ton premier message, pour lire ton fichier ligne à ligne remplace ton input #1.... par line Input #1, .....


tu dis quoi ...

[Mimosa777]

Salut JackOuYA,

En faisant Line input #1, il m'affiche le tout sur la premiere ligne. Avec Input #1, il m'affiche le tout sur la premiere colonne.

Moi je desire faire afficher le tout tel que présenté dans le fichier .csv

Merci pour ton aide.

[JackOuYA]

Salut JackOuYA,

En faisant Line input #1, il m'affiche le tout sur la premiere ligne. Avec Input #1, il m'affiche le tout sur la premiere colonne.

Moi je desire faire afficher le tout tel que présenté dans le fichier .csv

Merci pour ton aide.

tu dis cela de mémoire ou tu as testé ?

[Mimosa777]

Non non j'ai testé.. Tu peux aussi le tester, j'ai mis les fichiers en piece jointe dans mon premier message.

Merci !

[pgz]

Bonsoir.

Je me demandais pourquoi tu n'ouvres pas tout simplement le fichier .CSV sous Excel pour récupérer ce qu'il y a dedans? Pourquoi le lire en texte?

PGZ

[Mimosa777]

ui, je pourrai faire cela, mais le fichier .csv qyui est généré à partir d'un autre programme Unix ne me permet pas de l'ouvrir directement dans Excel. Il ne fonctionne pas car il contient des caractères que Excel ne reconnait pas lors de l'ouverture du fichier. Je dois le convertir d'abord en fichier txt pour l'ouvrir
un excel.

Merci encore pour ceux qui peuvent m'aider.

[neupont]

Curieux, j'ai testé tes fichiers et ça marche impec pour moi, en mettant Line Input

Code :

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

1
2
3
    Open Chemin & NomFich For Input As #1
    While Not EOF(1)
        Line Input #1, Ligne

[neupont]

Peut-être un problème de retour ligne dans la mesure où le fichier vient d'unix ?
Effectivement si les retours lignes sont figurés par LF, ça pose problème (Line Input voit le fichier comme une seule grande ligne et Excel plante par manque de colonnes).
Par contre ça fonctionne bien avec CR-LF, ce qui est le cas dans le fichier que tu as mis en pièce jointe. A tout hasard, il faudrait que tu vérifies ton fichier csv original avec un éditeur comme Notepad++ ou Ultraedit pour être sûr de ce que tu as comme caractère de retour ligne dans le fichier.

[Mimosa777]

C'est vraiment bizarre que ca fonctionnes pour toi et pas moi. Je fais exactement le meme test que toi avec le fichier que je vous ai remis et ca marches pas pour moi. Il me les mets tous sur la meme ligne lorsque j'utilises Line Input #1, Ligne

Pour ce que tu dis a propos de UNix, tu as bien raison je crois. Que dois-je faire alors pour regler ce probleme ? comment ouvrir ce fichier la correctement ?

Merci

[neupont]

Bon je n'ai pas le temps de finasser, ce petit ajout pourrait te dépanner.
Il s'agit de remplacer d'éventuels LF seuls en CR-LF avant de faire le traitement.
Ce n'est pas forcément très fin

Et bien sûr, ça ne dépannera que si c'est bien ça le problème, à tester donc (attention à l'insérer au bon endroit).

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
NomFich = "transfert_fichiers.csv" 'ou .txt
    
    varTexte = ""
    Open Chemin & NomFich For Input As #1
    While Not EOF(1)
        Line Input #1, Ligne
        varTexte = varTexte & Ligne
    Wend
    Close #1
    
    varTexte = Replace(varTexte, vbLf, vbCrLf)
    
    Open Chemin & NomFich For Output As #1    ' Ouvre le fichier en écriture.
        Print #1, varTexte
    Close #1

    NoLigne = 2
    Open Chemin & NomFich For Input As #1

[neupont]

Bon ça a un effet tout à fait néfaste pour le fichier si tu le relances une deuxième fois ou si le problème n'est pas là... il faudrait autre chose...

[neupont]

Allez c'est pas très beau, mais ça marche mieux :

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
NomFich = "transfert_fichiers.csv" 'ou .txt
    
    varTexte = ""
    Open Chemin & NomFich For Input As #1
    While Not EOF(1)
        Line Input #1, Ligne
        varTexte = varTexte & Ligne & vbCrLf
    Wend
    Close #1
    
    varTexte = Replace(varTexte, vbLf, vbCrLf)
    varTexte = Replace(varTexte, vbCr & vbCr, vbCr)    
    Open Chemin & NomFich For Output As #1    ' Ouvre le fichier en écriture.
        Print #1, varTexte
    Close #1

    NoLigne = 2
    Open Chemin & NomFich For Input As #1

[Mimosa777]

Effectivement, ca ne marches pas. Il me cree une erreur sur

Code :

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

Open Chemin & NomFich For Output As #1    ' Ouvre le fichier en écriture.

Il me dit path/file access error !

Ceci est le code complet de ma macro avec ce que tu as demandé d'ajouter :

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
24
25
26
27
28
29
30
31
Sub LireFichierTxt()
Dim Ligne As String, NoLigne As Long, NoCol As Integer
Dim Tableau, Chemin, NomFich
Chemin = "I:\49801\Public\#AMK#\MAD\"
NomFich = "transfert_fichiers.csv"
varTexte = ""
    Open Chemin & NomFich For Input As #1
    While Not EOF(1)
        Line Input #1, Ligne
        varTexte = varTexte & Ligne
    Wend
    Close #1
 
    varTexte = Replace(varTexte, vbLf, vbCrLf)
 
    Open Chemin & NomFich For Output As #1    ' Ouvre le fichier en écriture.
        Print #1, varTexte
    Close #1
 
    NoLigne = 3
    Open Chemin & NomFich For Input As #1
    While Not EOF(1)
        Line Input #1, Ligne
        Tableau = Split(Ligne, ",")
        NoLigne = NoLigne + 1
        For NoCol = 0 To UBound(Tableau)
             Cells(NoLigne, NoCol + 1).Value = Tableau(NoCol)
        Next
    Wend
    Close #1
End Sub

[neupont]

Le fichier n'est pas accessible en écriture ?

[neupont]

Sinon comme disait PGZ, ouvre-le directement en csv. Là ça n'a pas l'air de le gêner que ce soit du LF.

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
24
25
26
27
28
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;I:\49801\Public\#AMK#\MAD\transfert_fichiers2.csv", Destination:=Range("A3"))
        .Name = "transfert_fichiers"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
        1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With

(copier-coller de l'enregistreur de macro)

[Mimosa777]

C'est bon, J'ai changé l'accès en ecriture et ca marches maintenant. Merci beaucoup neupont.

Cependant, il faudrait a chaque fois que je change l'accès en ecriture du fhicer c'est ca hein car je crois que lorsqu'il est généré par Unix, il est automatiquement lecture seulement.

[Mimosa777]

Humm.. ca marches bien la prmeiere fois mais la deuxieme fois, voila ce qu'il me retourne :
application-defined or object-defined error

sur cette ligne :

Code :

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

Cells(NoLigne, NoCol + 1).Value = Tableau(NoCol)

Et lorsque j'essaie d'ouvrir le fichier transfert_fichiers.csv en Excel pour voir le contenu, il ne contient qu'un seule ligne et me retourne que :
File not loaded completely.

[neupont]

Relis tous mes posts, je crois que tu en as sauté quelques-uns postés juste avant les tiens.

[Mimosa777]

Non j'ai tous relus. Quand tu m'as demandé d'essayé ton autre méthode que tu as dis étant mieux fait, ben celle la marches pas car me retourne l'erreur sur la ligne :

Code :

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

Cells(NoLigne, NoCol + 1).Value = Tableau(NoCol)

POur ce qui est de l'ouvrir directement en csv, ca marchera pas car comme je l'ai expliqué au debut, le fichier .csv généré contient des caractères Unix qu'Excel ne reconnait pas et me retoune donc une erreur.

Ta prmeiere methode a finlament marché une fois que j'ai mis le fichier en ecriture mais il ne marches qu'une seule fois.:

ton aide est grandement apprécié en passant, merci pour le temps que tu consacres à m'aider !