Discussion :

[Sinbad]

Bonjour,
je souhaite, avant de l'importer avec TransferText, ouvrir un fichier csv en VBA pour en supprimer la première ligne. Je galère un peu, et pourtant ça doit être très simple...
merci d'avance

[stigma]

En gros, c'est ça

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

[Sinbad]

Merci, c'est sympa. Si je comprends bien, pour supprimer ma première ligne, je dois lire toutes les lignes du fichier en Input, et les réécrire toutes sauf la première dans un autre fichier en Output. Est-ce cela? N'y-at-il pas un moyen de faire un delete de la ligne en question, puis de sauvegarder le fichier? Merci d'avance

[stigma]

Exactement. Dans ta boucle, tu exportes tous les enregistrements dans un 2eme fichier, sauf la 1ere ligne.