Caractère "é" remplacé par truc bizarre dans ma feuille

Bonjour :

Dans toutes les cellules de ma feuille, le caractère "é" est remplacé par un truc bizarre "├⌐". Par ex : "ing├⌐nieur" à la place de "ingénieur" .

Comment je peux résoudre remettre "é" si on ne peux pas entrer "├⌐" dans le code.(Quand je colle "├⌐" dans mon code ça donne "??")

Merci d'avance.

Vu que cette feuille est une copie d'un fichier .csv, est-ce que je peux agir sur la procédure de la copie pour éviter ce problème?

Par exemple, dans mon code, ajoute "remplace "é" par "e" "?

Voici mon code de la copie :

Dim MyDocuments, strFileName, myToday, file, strConnection As String

strConnection = "TEXT;" & "C:\Users\stg_pao\Desktop\ExportStat_Campagne_Destinataires.csv"
With ActiveSheet.QueryTables.Add(Connection:= _
    strConnection, Destination:=Workbooks("data.xlsm").Sheets("Commerciaux").Range("$A$1"))
    .Name = "temp"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .TextFilePromptOnRefresh = False
    .TextFilePlatform = 437
    .TextFileStartRow = 1
    .TextFileParseType = xlDelimited
    .TextFileTextQualifier = xlTextQualifierDoubleQuote
    .TextFileConsecutiveDelimiter = True
    .TextFileTabDelimiter = True
    .TextFileSemicolonDelimiter = True
    .TextFileCommaDelimiter = False
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(1)
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
End With

' Importation données commerciaux terminée

' ---------------------------------------------------------------------------------------------------

Bonjour,

essaie avec d'autres valeur pour cet ligne-ci

.TextFilePlatform = 437

en remplaçant 437 par une des valeurs ci-dessous (suivant ton cas)

xlMacintosh

xlMSDOS

xlWindows

h2so4 a écrit :

Bonjour,

essaie avec d'autres valeur pour cet ligne-ci

.TextFilePlatform = 437

en remplaçant 437 par une des valeurs ci-dessous (suivant ton cas)

xlMacintosh

xlMSDOS

xlWindows

Bonjour :

Merci de m'avoir répondu.

J'ai tout essayé mais ils donnent "é" à la place de "é". Est-ce qu'il y en aurait d'autres que je pourrais essayer?

La bonne nouvelle est que je peux taper "é" dans mon code. Donc je peux écrire un programme pour remplacer "é" par "e" ou "é".(mais je ne sais pas vraiment comment faire)

Solution trouvée :

Workbooks("data.xlsm").Sheets("Commerciaux").Cells.Replace "é", "é", xlPart

Problème résolu.