Autres fichier csv caracteres speciaux

G

grimat

XLDnaute Occasionnel

• 2 Octobre 2019

• #2

je le met au format txt

 

Pièces jointes

• test.txt

  133 bytes · Affichages: 7

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 2 Octobre 2019

• #3

Bonjour,

Indiquez votre version excel.

A vous relire

 

Vote positif 0 Vote négatif

G

grimat

XLDnaute Occasionnel

• 2 Octobre 2019

• #4

je suis sur excel 2007

 

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 2 Octobre 2019

• #5

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

 

Vote positif 0 Vote négatif

G

grimat

XLDnaute Occasionnel

• 2 Octobre 2019

• #6

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 ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 2 Octobre 2019

• #7

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

VB:

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

 

Vote positif 0 Vote négatif

G

grimat

XLDnaute Occasionnel

• 3 Octobre 2019

• #8

merci mais je ne touche pas sur vba

 

Vote positif 0 Vote négatif