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

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Y

Yukitos

XLDnaute Nouveau
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


VB: 
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
 
Solution
Staple1600
Re

Une version un peu plus courte
(qui fonctionne toujours sur mon PC avec le fichier exemple)
Les caractères accentués sont bien récupérés.
VB: 
Sub Version_courte()
Dim fichier$
fichier = "C:\temp\regles.txt"
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & fichier, Destination:=Range("A1"))
    .Name = "regles": .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
Trier par date Trier par votes
Staple1600 à dit:
Re

=>Yukitos
Poil dans la main ou lendemain de Noel difficile?
🙄
VB: 
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
Cliquez pour agrandir...
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.
 
Vote positif 0 Vote négatif
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" 😉
 
Vote positif 0 Vote négatif
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é 😉
 
Vote positif 0 Vote négatif
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.
😉
 
Vote positif 0 Vote négatif
Yukitos à dit:
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.
Cliquez pour agrandir...
Option Explicit et c'est beaucoup mieux...
Staple1600 à dit:
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" 😉
Cliquez pour agrandir...
JM j'ai bien utilisé l'enregistreur, puis testé aussi en mettant en commentaire ou de mettre True
 
Vote positif 0 Vote négatif
patricktoulon à dit:
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é 😉
Cliquez pour agrandir...
Bonjour Patricktoulon
cela fonctionne merci pour l'explication
 
Vote positif 0 Vote négatif
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à 😉
😉
 
Vote positif 0 Vote négatif
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"
VB: 
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
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
699
TooFatBoy
TooFatBoy
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
394
job75
job75
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
525
safranien
S
oguruma
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
911
oguruma
oguruma
M
  • Question Question
Microsoft 365 Création fichier texte
2
Réponses
15
Affichages
830
patricktoulon
patricktoulon
J
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
902
jebibo
J
Chaton77
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
749
Chaton77
Chaton77
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
Dranreb
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
434
Latias
L
A
  • Question Question
Insérer un copier / coller
Réponses
0
Affichages
381
aziz
A
M
  • Résolu(e)
XL 2016 comment créer une Barre de défilement ou faire simplement défiler son texte ?
2
Réponses
25
Affichages
2 K
melltel
M
Nicolas JACQUIN
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
Nicolas JACQUIN
M
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
528
Maxou69
M
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
762
guiyom
G
U
  • Résolu(e)
Autres Centrer ou Annuler Centrer
Réponses
12
Affichages
665
un internaute
U
T
  • Question Question
XL 2019 Problème espace
Réponses
3
Affichages
554
job75
job75
A
  • Résolu(e)
XL 2016 Autofill Destination sur colonne adjacente
Réponses
3
Affichages
562
Aldonanou
A
A
  • Question Question
XL 2019 Vérifier si une ligne existe dans un autre fichier
Réponses
7
Affichages
802
A-F
A
A
  • Question Question
XL 2010 Date dans fichier pour impression pdf
Réponses
2
Affichages
1 K
Aldonanou
A
Retour