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 :
Celà ne fonctionne pas car le numéro de ligne (intI) ne s'incremente pas.
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
Merci pour votre aide
Partager