XL 2016 suppression ligne fichier csv

[Excelo92]

Bonjour,
Je souhaiterai supprimer les lignes ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;" d'un fichier csv
En cherchant sur les forums j'ai trouvé ce code que j'ai essayé d'adapter à mon fichier :

Public Sub ModifDonnees()
ReDim Tablo(0) As String
Dim NomDuFich As String, NoDuFich As Integer
Dim ChaineSource As String, ChaineDestin As String
Dim Ligne As String, TotLig As Long, I As Long
'init
NomDuFich = "C:\Import variable Talentia\IMPDV.csv" '<<< à remplir !!!!!!!!!
ChaineSource = ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;"
ChaineDestin = ""
' load
NoDuFich = FreeFile: TotLig = 0
Open NomDuFich For Input As #NoDuFich
Do While Not EOF(NoDuFich)
Line Input #NoDuFich, Ligne
If Ligne = ChaineSource Then
Ligne = ChaineDestin
Else
I = InStr(Ligne, ChaineSource)
If I Then Ligne = Left(Ligne, I - 1) & ChaineDestin & Mid(Ligne, I + Len(ChaineSource))
End If
TotLig = TotLig + 1: ReDim Preserve Tablo(TotLig): Tablo(NoLig) = Ligne
Loop
Close NoDuFich
'recopie
If TotLig > 0 Then
NoDuFich = FreeFile: Open NomDuFich For Output As #NoDuFich
For I = 1 To TotLig: Print #NoDuFich, Ligne: Next
Close NoDuFich
End If
End Sub

Le problème c'est qu'il me supprime tout le fichier
Auriez vous une solution à me proposer?
Merci pour vos retours
Bien à vous

 

[Hasco]

Bonjour,

Ouvrez votre fichier dans excel;
Supprimez toutes les lignes en bas
Ré-enregistrer

cordialement

 

[patricktoulon]

bonjour

Sub noblankRow()
    Dim fichier$, vide$, x&, y&
    fichier = "C:\Import variable Talentia\IMPDV.csv"
    vide = ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;" & vbCrLf
    'lecture
    x = FreeFile: Open fichier For Binary Access Read As #x: laChaine = String(LOF(x), " "): Get #x, , laChaine: Close #x
    'ecriture
    y = FreeFile: Open fichier For Output As #y: Print #y, Replace(laChaine, vide, ""): Close #y
End Sub

 

[Excelo92]

Bonjour,

Ouvrez votre fichier dans excel;
Supprimez toutes les lignes en bas
Ré-enregistrer

cordialement

Bonjour Roblochon,
Si j'ouvre sous excel et que je supprime les lignes, je perds la mise en forme et ce n'est pas le but car je souhaite automatiser ce travail en VBA
Ce travail sera à faire sur plusieurs fichiers, c'est pour cette raison
Cordialement,

 

[Excelo92]

bonjour

Sub noblankRow()
    Dim fichier$, vide$, x&, y&
    fichier = "C:\Import variable Talentia\IMPDV.csv"
    vide = ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;" & vbCrLf
    'lecture
    x = FreeFile: Open fichier For Binary Access Read As #x: laChaine = String(LOF(x), " "): Get #x, , laChaine: Close #x
    'ecriture
    y = FreeFile: Open fichier For Output As #y: Print #y, Replace(laChaine, vide, ""): Close #y
End Sub

Merci pour ton retour,
Je viens de tester et j'ai une erreur mais je ne vois pas d'ou elle peut provenir, tu as une idée, voir copie écran
Merci pour votre aide
Cordialement,

 

[cp4]

Merci pour ton retour,
Je viens de tester et j'ai une erreur mais je ne vois pas d'ou elle peut provenir, tu as une idée, voir copie écran
Merci pour votre aide
Cordialement,

Bonjour,
Voir juste avant le surlignage jaune. Je pense que c'est
laChaine = String(LOF(x), "") au lieu de laChaine = String(LOF(x), " ")

Bon week-end à tous et à toutes.

 

[patricktoulon]

bonjour
non @cp4 laisse l'espace il fallait simplement dimer "lachaine" en string

Sub noblankRow()
    Dim fichier$, vide$, x&, y&, lachaine$
    fichier = "C:\Import variable Talentia\IMPDV.csv"
    vide = ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;" & vbCrLf
    'lecture
    x = FreeFile:    Open fichier For Binary Access Read As #x:    lachaine = String(LOF(x), " "):    Get #x, , lachaine:    Close #x
    'ecriture
    y = FreeFile: Open fichier For Output As #y: Print #y, Replace(lachaine, vide, ""): Close #y
End Sub

j'ai testé chez moi tout fonctionne et ca fait le job

si ca fonctionne pas c'est que vous avez un soucis d’autorisation sur le fichier ou vos librairies en vrac
et comme la fonction open et propre a excel alors c'est votre excel qui a pris des coups de serpette

 

[cp4]

bonjour
non @cp4 laisse l'espace il fallait simplement dimer "lachaine" en string

Sub noblankRow()
    Dim fichier$, vide$, x&, y&, lachaine$
    fichier = "C:\Import variable Talentia\IMPDV.csv"
    vide = ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;" & vbCrLf
    'lecture
    x = FreeFile:    Open fichier For Binary Access Read As #x:    lachaine = String(LOF(x), " "):    Get #x, , lachaine:    Close #x
    'ecriture
    y = FreeFile: Open fichier For Output As #y: Print #y, Replace(lachaine, vide, ""): Close #y
End Sub

Bonjour patrickToulon,
Etant donné que notre ami ne nous a pas communiqué le le message d'erreur renvoyer. En effet, tu as absolument raison la variable lachaine n'était pas déclarée.

Bon we

 

[patricktoulon]

ben oui c'est samedi j'ai droit a l'erreur
pour ton info il faut au moins 1 caractere c'est pour ça que je met un espace il est remplacé par le get(lof) apres

 

[cp4]

ben oui c'est samedi j'ai droit a l'erreur

moi aussi, je réclame mon droit à l'erreur

 

[patricktoulon]

Bonjour patrickToulon,
Etant donné que notre ami ne nous a pas communiqué le le message d'erreur renvoyer. En effet, tu as absolument raison la variable lachaine n'était pas déclarée.

le message a été communiqué en post 5
t'est pas en meilleur etat que moi si je comprends bien

tout est bon pour toi @Excelo92 ???

 

[Excelo92]

bonjour
non @cp4 laisse l'espace il fallait simplement dimer "lachaine" en string

Sub noblankRow()
    Dim fichier$, vide$, x&, y&, lachaine$
    fichier = "C:\Import variable Talentia\IMPDV.csv"
    vide = ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;" & vbCrLf
    'lecture
    x = FreeFile:    Open fichier For Binary Access Read As #x:    lachaine = String(LOF(x), " "):    Get #x, , lachaine:    Close #x
    'ecriture
    y = FreeFile: Open fichier For Output As #y: Print #y, Replace(lachaine, vide, ""): Close #y
End Sub

j'ai testé chez moi tout fonctionne et ca fait le job

si ca fonctionne pas c'est que vous avez un soucis d’autorisation sur le fichier ou vos librairies en vrac
et comme la fonction open et propre a excel alors c'est votre excel qui a pris des coups de serpette

Merci, je viens de tester et c'est nickel
ça fait 4 ans que je n'ai pas travaillé sur du vba et de reprendre c'est difficile,
Un grand merci à vous

 

[Excelo92]

le message a été communiqué en post 5
t'est pas en meilleur etat que moi si je comprends bien

tout est bon pour toi @Excelo92 ???

Tout est bon pour moi,
Merci beaucoup