Discussion :

[electronedf]

Bonjour

Avant d'importer dans une table ACCESS un fichier CSV, je désires le modifier en supprimant la première ligne (qui ne contient pas les noms de champ) car elle n'a rien à voir avec la suite du fichier.

J'ai essayé avant le code suivant :

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
Sub SupLignes()
Dim Ligne As String, intI As Integer
 
  Open "c:\temp\export\592.csv" For Input As #1
  Open "c:\temp\export\5923.csv" For Output As #2
intI=1
 
  Do While Not EOF(1)
        Line Input #1, Ligne
    If intI <> 1 Then Print #2, Ligne
 
intI=intI +1
 
     Loop 
 
  Close #1, #2
 
End Sub

Celà ne fonctionne pas car le numéro de ligne (intI) ne s'incremente pas.

Merci pour votre aide

[MisterS]

Bonjour ,

Il est dommage que tu n'as pas pris le temps de faire une recherche sur developpez ... page 2 des recherche on y trouve exactement ton même problème ...

http://www.developpez.net/forums/d96...chier-csv-vba/

Comportant une résolution et une explication.

Cordialement ,

[electronedf]

J'avais bien cherché sur le forum et trouvé cette solution.

Sauf qu'il me semble que ce code est incomplet non ?

Cela ne concerne que la lecture du fichier source. Quid de l'écriture via output? C'est là que je peche avec la condition du numero de ligne

Code :

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

1
2
3
4
5
6
7
 Dim F As Integer, s_Ligne As String
    F = FreeFile
    Open "tonFichier" For Input As #F
        Do While Not EOF(F)
            Line Input #F, s_Ligne
        Loop
    Close #F

[Tonioyo]

Bonjour,

Il est bien écrit dans le post dont MisterS à publié l'adresse que ce n'est pas complet et qu'il suffit de seulement lire la première puis lire et écrire les suivantes.

Une solution simple pourai être celle-ci

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
 
    Dim F As Integer
    Dim G As Integer
    Dim s_Ligne As String
 
    'Attribution d'un numéro pour les descripteurs de fichier
    F = FreeFile
    G = FreeFile
 
    'Ouverture des descripteurs de fichier
    Open "tonFichier" For Input As #F
    Open "fichierDeSortie" For Output As #G
 
     Line Input #F, s_Ligne ' on lit la première ligne sans l'ecrire
     Do While Not EOF(F) ' On lit et écrit les suivantes 
        Line Input #F, s_Ligne
        Print #G, s_Ligne
    Loop
 
    'Fermeture des descripteurs de fichier
    Close #F
    Close #G

Attention si on veux copier une plage de lignes il faut poser plus de conditions. Et il serrait même mieux dans ce cas de charger le fichier source en mémoire en le lisant, faire les opérations de traitement en mémoire et écrire la plage voulue dans un nouveau fichier (ou dans le fichier d'origine selon le besoin).

Cordialement,

[electronedf]

Merci pour ton aide

Je viens d'adapter ce code à mon cas (chemin des fichiers) et je bute toujours sur une erreur 55 "fichier déjà ouvert" qui concerne la ligne d'ouverture du fichier cible en output (Open "c:\temp\export\xxx.csv" For Output As #G) ?

[MisterS]

Ton fichier d'arriver est-il bien fermé ?
Assure toi que le fichier d'arriver et le fichier de départ ne sont pas ouvert.
(vérifie dans le Task manager si l'application n'aurais pas planter en douce !)

[electronedf]

Le fichier d'arrivée n'est pas ouvert puisqu'il n'est même pas encore créé. ??

[Tonioyo]

Si cette erreur surviens, elle signifie que le descripteur de fichier pointe déjà vers un fichier ouvert. Il peu s'agir d'un descripteur qui n'à pas été fermé et qui pointe toujours (probablement tout seul) sur ce fichier.

Au pire, il faut essayer remplacer les numéros des descripteurs fournis par l'instruction FreeFile par des numéro arbitraires constant.
Ne pas hésiter à redémarrer Access voir l'ordinateur. Un programme est sûrement en train d'accèder au fichier ou l'a laissé ouvert.

[jj4822]

Bonjour.

J'avais ouvert une discussion en avril 2010 a l'adresse suivante a ce sujet :
http://www.developpez.net/forums/d90...erer-nr-ligne/

J'avais recu une reponse complete qui avait permis de resoudre mon probleme.

Cdlt.