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