bonjour
est il possible de laisser des accents dans une feuille excel lorsque j'utilise une macro d'importation de text  
Y a t il un parametre à régler?
 
voici ma macro d'importation de mon fichier text  qui me met les accent sous des symboles bizarre
Sub inserer_fichier()
 
' inserer_fichier Macro
' Macro enregistrée le 04/01/2006 par SJA
 
    With ActiveSheet.QueryTables.Add(Connection:= _
        Range("A1" ).Value, Destination:=Range("A8" ))
        .Name = "CFR_RP_SURCOMP_FP"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 850
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierNone
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1)
        .TextFileThousandsSeparator = "."
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With  
 
Merci

Salut,
 
Essaie ceci :
 
.TextFilePlatform = xlMSDOS
au lieu de  
.TextFilePlatform = 850
 
C'est probablement un problème de compatibilité ANSI/ASCII.
 
A+
Horatio
 
 

Et si cela ne fonctionne toujours pas, essaie aussi :
.TextFilePlatform = xlWindows
A+
Horatio