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.
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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...