Microsoft 365 problème importation fichier texte (Unicode(UTF-8)?)

[Yukitos]

Bonjour à tous,

Lorsque j'importe un fichier .txt je n'ai pas les accents.
le “é” est remplacé par “é”, le “ô” est remplacé par “ô”
il faut peut être incérer une commande pour Unicode (UTF-8) ?

Bonnes fêtes à tous

Sub import_donnees()
Dim fich_txt As String
Dim fich_source As String

fich_source = ActiveWorkbook.Name
'effacement des données présentes
Feuil1.Range("B2:B" & Feuil1.Cells(Rows.Count, 2).End(xlUp).Row).ClearContents
ChDir ActiveWorkbook.Path
'demande a l'utilisateur de choisir un fichier
fich_txt = Application.GetOpenFilename("Tous les fichiers (*.txt),*.txt")
'ouverture du fichier txt
Workbooks.OpenText Filename:=fich_txt, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, Local:=True, Semicolon:=True

'copie des lignes
ActiveWorkbook.Sheets(1).Range("A1:D" & ActiveWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row).Copy 'Workbooks(fich_source).Feuil1.Range("A1")
'collage spéciale des valeurs
Workbooks(fich_source).Sheets(1).[B2].PasteSpecial xlValues
'fermeture du fichier
Application.DisplayAlerts = False
ActiveWorkbook.Close False
Application.DisplayAlerts = True
'End Sub

 

[Yukitos]

Re

=>Yukitos
Poil dans la main ou lendemain de Noel difficile?

Sub Version_courte_Bis()
Dim fichier$
fichier = Application.GetOpenFilename("Tous les fichiers (*.txt),*.txt")
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fichier, Destination:=Range("A1"))
    .FieldNames = -1: .PreserveFormatting = -1
    .RefreshStyle = 1: .SaveData = -1: .AdjustColumnWidth = -1
    .TextFilePlatform = -535: .TextFileStartRow = 1: .TextFileParseType = xlDelimited
    .TextFileTextQualifier = 1: .TextFileSemicolonDelimiter = -1
    .TextFileColumnDataTypes = Array(1, 1, 1, 1): .Refresh BackgroundQuery:=False
End With
End Sub

Test toujours OK

Encore merci Jm
Peut être les deux
j'ai une erreur d'exécution mais uniquement à la première ouverture du fichier excel
Dim fichier$
fichier = Application.GetOpenFilename("Tous les fichiers (*.txt),*.txt")
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fichier, Destination:=Range("H2"))
.FieldNames = -1: .PreserveFormatting = -1
.RefreshStyle = 1: .SaveData = -1: .AdjustColumnWidth = -1
.TextFilePlatform = -535: .TextFileStartRow = 1: .TextFileParseType = xlDelimited
.TextFileTextQualifier = 1: .TextFileSemicolonDelimiter = -1
.TextFileColumnDataTypes = Array(1, 1, 1, 1): .Refresh BackgroundQuery:=False
End With
End Sub
si j'exécute une deuxième fois pas d'erreur.

 

[Staple1600]

Re

Bah, mettre en commentaire ce qui pose problème.
(ou mettre sur True, pour voir ce qui se passe)
Et retester.
Le principal étant que les accents sont bien préservés, non?

PS: Le code initial a été obtenu par l'enregistreur de macros.
C'est le réflexe premier que devrait avoir tout VBAisté "débutant"

 

[patricktoulon]

re
re
ben pour la seconde fois c'est normal

tu associe une plage a une base de donnée quel qu'elle soit (en l’occurrence ici un fichier texte) tu ne peux plus associer une nouvelle requete il te faut deleter la première
pour cela c'est simple avant le "End with" tu met ".Delete"tu garde les donnée mais la requete n'est plus
tu peux donc la relancer X fois
c'est pas plus compliqué

 

[ChTi160]

Bonjour le Fil

TextFileColumnDataTypes = Array(1, 1, 1, 1): .Refresh BackgroundQuery:=False

Ne manque t'il pas un point devant le BackgroundQuery?
Jean marie

 

[ChTi160]

Le texte ne s'affiche pas entre les balises code normal?

 

[Staple1600]

Re, Bonjour ChTi160

=>JM
Non, il ne manque rien
C'est un copier/coller qui vient de mon VBE
Et une fois importé un *.txt, je ne m'amuse pas à le réimporter une seconde fois.
Ou si je le fais, je prends le soin de le faire sur une nouvelle feuille.

 

[Yukitos]

Encore merci Jm
Peut être les deux
j'ai une erreur d'exécution mais uniquement à la première ouverture du fichier excel
Dim fichier$
fichier = Application.GetOpenFilename("Tous les fichiers (*.txt),*.txt")
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fichier, Destination:=Range("H2"))
.FieldNames = -1: .PreserveFormatting = -1
.RefreshStyle = 1: .SaveData = -1: .AdjustColumnWidth = -1
.TextFilePlatform = -535: .TextFileStartRow = 1: .TextFileParseType = xlDelimited
.TextFileTextQualifier = 1: .TextFileSemicolonDelimiter = -1
.TextFileColumnDataTypes = Array(1, 1, 1, 1): .Refresh BackgroundQuery:=False
End With
End Sub
si j'exécute une deuxième fois pas d'erreur.

Option Explicit et c'est beaucoup mieux...

Re

Bah, mettre en commentaire ce qui pose problème.
(ou mettre sur True, pour voir ce qui se passe)
Et retester.
Le principal étant que les accents sont bien préservés, non?

PS: Le code initial a été obtenu par l'enregistreur de macros.
C'est le réflexe premier que devrait avoir tout VBAisté "débutant"

JM j'ai bien utilisé l'enregistreur, puis testé aussi en mettant en commentaire ou de mettre True

 

[Yukitos]

re
re
ben pour la seconde fois c'est normal

tu associe une plage a une base de donnée quel qu'elle soit (en l’occurrence ici un fichier texte) tu ne peux plus associer une nouvelle requete il te faut deleter la première
pour cela c'est simple avant le "End with" tu met ".Delete"tu garde les donnée mais la requete n'est plus
tu peux donc la relancer X fois
c'est pas plus compliqué

Bonjour Patricktoulon
cela fonctionne merci pour l'explication

 

[Staple1600]

Re

De l'importante d'être précis dans la rédaction de la question

Lorsque j'importe un fichier .txt je n'ai pas les accents.

Ce qui n'est pas la même chose que
J'importe N fichiers *.txt dans un seul et même classeur et sur une feuille unique.

 

[Yukitos]

Re

De l'importante d'être précis dans la rédaction de la question

Ce qui n'est pas la même chose que
J'importe N fichiers *.txt dans un seul et même classeur et sur une feuille unique.

Un grand merci pour le coup de main JM

 

[Staple1600]

Re

Je n'ai rien fait
C'est l'enregistreur qui a tout fait.
Et mon code VBA était fonctionnel depuis le message#2
(pour ce qui concerne la problématique principale: les caractères accentués)
Le reste pouvait se déduire après quelques recherches de ci de là

 

[patricktoulon]

re
bizarre quand même j'ai testé avec le fichier donné en exemple et je n'ai pas de soucis avec les accents
voilà ce que j'ai obtenu avec l'enregistreur de ma cro
j'ai ajouté le ".delete"

Sub Macro1()
'
' Macro1 Macro
'

'   With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Users\polux\DeskTop\regles.txt", Destination:=Range("$A$1"))
        .CommandType = 0
        .Name = "regles"
        .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 = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 2, 2, 2)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
        .Delete'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
End With
End Sub