Clean un fichier CSV créé

Bonjour à tous!

Je me trouve bloquer ... Voici la situation:

Je dispose de 15 fichier Excel, chaque fichier a deux feuille.
Je souhaite transformer la seconde feuille de chaque fichier en CSV avec un seul clique et avoir un LOG de l'opération (bien passé ou non)
Jusque là, ça vas.
Je récupère chaque feuille, la transforme et créer un fichier LOG pour l'utilisateur final.

Mais je me retrouve avec des fichiers CSV contenant des séparateurs ( ; ) en fin de fichier.:cry:
J'ai remarquer que lorsque je "nettoie" les fichiers à la main (Suppression dans excel des dernières lignes (du blanc...)) je n'ai pas ces erreurs.


J'utilise la fonction :

Code:

---

Range("A1:A200").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

---

Pour nettoyer le fichier, mais lorsque le fichier est "propre" la macro plante...

Quelqu’un aurai une idée? ça vous est déjà arrivé?
Merci d'avance! :)

J'ai essayer une méthode "barbare"

Code:

---

1 2 3 4 5

If i < 50 Then Rows(dernLigneA).Delete shift:=xlUp i = i + 1 End If

---

mais ça ne fonctionne pas non plus... je me retrouve toujours avec des séparateurs en fin de fichier...

nettoie ton csv, fais un clear contents de ton range de la derniere ligne non vide à la derniere ligne de la feuille, montre nous ton code de création de csv..

Bonjour.

Citation:

---

Envoyé par Pij22

Mais je me retrouve avec des fichiers CSV contenant des séparateurs ( ; ) en fin de fichier.
J'ai remarquer que lorsque je "nettoie" les fichiers à la main (Suppression dans excel des dernières lignes (du blanc...))
je n'ai pas ces erreurs. J'utilise la fonction :

Range("A1:A200").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Pour nettoyer le fichier, mais lorsque le fichier est "propre" la macro plante...

---

Rien d'anormal car il n'y a aucune erreur ! Ne pas oublier les fonctions de feuille de calcul comme NB.VIDE par exemple :

If Application.CountBlank([A1:A200]) Then [A1:A200].SpecialCells(xlCellTypeBlanks).EntireRow.Delete

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Merci pour vos réponses !

@Marc-L : Tellement évident que je n'avais pas percuter 8O


Du coup mon problème est résolu, mais entre temps j'ai eu un autre soucis.
La suppression des séparateurs était bonne mais la ligne d'après contenais encore des séparateur "flottant".
Du coup j'ai refait un passage de suppression avec la ligne suivante :

Code:

---

Rows(dernLigneA).EntireRow.Delete

---

et mon problème était réglé!

Merci de m'avoir débloquer :)