Autres fichier csv caracteres speciaux

[grimat]

Bonjour, J'extrais chaque jour des fichiers csv avec des adresses mais j'ai un probleme pour les caracteres spéciaux (les caracteres avec des accents ou autres caracteres speciaux).

Je souhaite retrouver le contenu de ces fichiers csv sur un excel, comment faire ?

PS, j'ai juste besoin de la solution concernant les caracteres speciaux, je sais ensuite convertir un csv en excel avec des colonnes.

Le fichier en PJ.

Merci d'avance

 

[grimat]

je le met au format txt

 

[Hasco]

Bonjour,

Indiquez votre version excel.

A vous relire

 

[grimat]

je suis sur excel 2007

 

[Hasco]

Bonjour,

Ouvrez un nouveau fichier excel vierge.
Dans le ruban cliquez sur 'Données/A partir du texte'
Localisez votre fichier, valider ce qui provoquera l'apparition de l'assistant d'importation.
Etape 1 : choisir Délimité et bien vérifier l'origine du fichier

A l'étape 2 : choisissez le point-virgule

cliquez sur Terminer
C'est fait.

Pour les caractères spéciaux, il faut bien déterminer l'origine du fichier à l'étape 1

Bon après midi

 

[grimat]

SUPER MERCI !!

Derniere question, le champ "origine du ficher" propose une grande liste d'options, est il possible de faire un parametrage pour que le utf8 apparaisse au début ?

 

[patricktoulon]

bonjour
pourquoi voudrais tu utiliser le dialog données??

tu le fait une fois en enregistrant le code et tu nettoie le code de tout ce qui est inutile
si tu veux un dialog (sélection de fichier) utilise getopenfilename qui renvoie le chemin

Sub test()
   Dim chemin As String
   chemin = "C:\Users\polux\Downloads\test.txt"
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & chemin, Destination:=Range("$A$1"))
        .Name = "trucbidule"
        .FieldNames = True
        .TextFilePlatform = 65001
        .PreserveFormatting = True
        .RefreshStyle = xlInsertDeleteCells
         .AdjustColumnWidth = True
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileSemicolonDelimiter = True
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
        .Delete
    End With
End Sub

 

[grimat]

merci mais je ne touche pas sur vba