Problème pour Transformer EOL de Windows à Unix

Bonjour,

J'utilise une macro "Changement_EOL_File" qui convertit toutes les sauts de ligne d'un fichier texte qui a précédemment était généra par la macro "Manipule_Datas" ==> le tout est dans le fichier excel "exemple_pour_aide.xlsm"

Les macros fonctionnent "parfaitement" mais j'ai un phénomène étrange qui se produit lors de la conversion de mes "fin de lignes". Je dois passer d'un format windows "vbCrLf" vers un format Unix "vbLf"

Lors de la conversion, dans mon fichier texte de retour, j'ai des lignes qui sont générées en doublon à la fin et qui conservent le format Windows contrairement aux premières lignes qui sont bonnes. ==> fichier "Pabx04_22_retours_en-utilisant-Changement_EOL_File.txt"


Si j'utilise la macro "Manipule_Datas" sans appeler à la fin de celle-ci la macro "Changement_EOL_File", mon fichier de retour contient exactement le même nombre de lignes que mon onglet "Retours" qui a été généré. ==> fichier "Pabx04_22_retours_sans-utiliser-Changement_EOL_File.txt"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Changement_EOL_File(Fichier As String)   Dim FileLength As Long Dim iFile As Integer Dim strTemp As String   iFile = FreeFile Open Fichier For Binary As #iFile FileLength = LOF(iFile) strTemp = String(FileLength, Chr(0)) Get #iFile, 1, strTemp strTemp = Replace(strTemp, vbCrLf, vbLf) Put #iFile, 1, strTemp Close #iFile   End Sub

---

J'ai l'impression que c'est au moment d'utiliser la fonction Put que le problème se produit mais je ne vois pas comment faire autrement.

Si quelqu'un a une idée, je suis preneur.

Manu,

Salut,

Un fichier, ça se comporte un peut comme une bande magnétique.
Lorsque tu fait des opérations d'écriture, tu écrases son contenu (à ne pas confondre avec le fichier lui même).

Si le nouveau contenu est plus important que l'ancien, pas de problèmes, la taille du fichier sera agrandie, "la tête d'écriture à dépassé la fin du fichier".
Par contre, si le nouveau contenu est plus petit que l'ancien, la partie "en surplus" reste dans le fichier, "la tête d'écriture n'a pas dépassé la fin du fichier".
Dans ce cas, il n'y a pas 36 solutions:
1) Supprimer l'ancien fichier.
2) Le recréer.

PS:
C'est plutôt bizarre de lire en fichier texte en binaire.
Quid de la traiter comme ce qu'il est ? Un fichier texte ?
Et tant qu'a faire, par respect pour le SRP (https://fr.wikipedia.org/wiki/Princi...t%C3%A9_unique), diviser ton code en sous fonction plus petites, plus facile à comprendre et à maintenir:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Sub Changement_EOL_File(Fichier As String) Dim Data As String Data = ReadFile(Fichier)   Data = Replace$(Data, vbCr, vbLf) WriteFile Fichier, Data End Sub   Public Function ReadFile(ByVal Fichier As String) As String Dim Fso As Scripting.FileSystemObject Set Fso = CreateObject("Scripting.FileSystemObject")   Dim IStream As Scripting.TextStream Set IStream = Fso.OpenTextFile(Fichier, ForReading)   ReadFile = IStream.ReadAll End Function   Public Sub WriteFile(ByVal Fichier As String, ByVal Data As String) Dim Fso As Scripting.FileSystemObject Set Fso = CreateObject("Scripting.FileSystemObject")   Dim OStream As Scripting.TextStream Set OStream = Fso.OpenTextFile(Fichier, ForWriting, True)   OStream.Write Data End Sub

---

Merci pour ce retour rapide.

En essayant les fonctions proposées, j'ai ce message d'erreur :

Pièce jointe 657839

Mes connaissances en vba ne sont pas assez pointues pour trouver la solution.
Une idée ?

Il faut ajouter la référence Microsoft Scripting Runtime,