XL 2019 Import fichier ".txt" avec des caractères cachés qui gênent l'import

[Titof06]

Bonjour à Toutes et Tous,

Je reviens vers vous pour un problème lors d'un import d'un fichier ".txt".

Je vous joins le fichier Excel et ".txt".

Lors de l'import avec la macro, je me trouve avec un problème sur les lignes 10, 14 à 30.

on peut voir qu'il doit y avoir un caractère qui m'empêche de faire une importation propre, comme pour le lignes 1 à 9.

Est-ce que quelqu'un aurait une solution pour moi, svp.

Je vous remercie pour le temps que vous allez passer et vous souhaite une agréable fin de journée,

Titof06

 

[job75]

Ceci dit, si tu tiens absolument à les modifier, je me demande s'il ne faudrait pas simplement supprimer le premier caractère et supprimer le dernier caractère uniquement si c'est un guillemet.
Ça éviterait de supprimer d'éventuels guillemets à l'intérieur de la chaîne de caractères.

Pas de problème, dans ce cas ces guillemets doivent être doublés dans le fichier texte, j'en ai mis sur la 2ème ligne du fichier joint.

La macro modifiée pour pouvoir les conserver :

Sub Ouvrir()
Dim fichier, texte$, a(), n&
fichier = ThisWorkbook.Path & "\Articles_Extraction_Parametrees_POUR TEST.txt"
Open fichier For Input As #1 'ouverture en lecture séquentielle
While Not EOF(1)
    Line Input #1, texte
    texte = Replace(texte, """""", Chr(1)) 'repère les guillemets doubles
    texte = Replace(texte, """", "") 'supprime les guillemets simples
    texte = Replace(texte, Chr(1), """") 'transforme les guillemets doubles en guillemets simples
    ReDim Preserve a(n): a(n) = texte: n = n + 1
Wend
Close #1
Application.ScreenUpdating = False
Cells.ClearContents 'RAZ
With [A1].Resize(n)
    .Value = Application.Transpose(a) 'Transpose est limitée à 65536 lignes
    .TextToColumns .Cells, xlDelimited, TextQualifier:=xlTextQualifierNone, Tab:=True, Other:=False, DecimalSeparator:="." 'commande Convertir
End With
End Sub