Un peu plus d'info...
En analysant mon fichier d'entrée le code invisible est ‎
‎Samsung Galaxy A22 4G
Apres la conversion du fichier cette devient "caractere invisible"Samsung Galaxy A22 4G
Pour importer mon fichier j'utilise ce code qui fonctionne parfaitement
Dim fd As FileDialog
Dim FileName As String
Sheets("Cloture").Select
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Filters.Clear
.Filters.Add "Fichiers Texte", "*.csv"
.Title = "Sélectionnez le document"
.InitialFileName = "D:\Téléchargements" & "\order_*.csv"
End With
If fd.Show = True Then FileName = fd.SelectedItems(1)
If Not fd Is Nothing Then Set fd = Nothing
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & FileName, Destination _
:=Range("$A$1"))
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 65001
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, _
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 _
, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
N'est il pas possible d'ajouter une instruction permettant d'enlever le ‎ dans ce script, j'ai tenté avec Text.replace... mais sans succés.
Merci de votre aide