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

M
  • Question Question
Microsoft 365 Création fichier texte
2
Réponses
15
Affichages
662
patricktoulon
patricktoulon
J
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
773
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
453
Chaton77
Chaton77
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
Dranreb
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
192
patricktoulon
patricktoulon
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
289
Latias
L
chris6999
  • Question Question
Microsoft 365 Boucle VB pour supprimer les caractères spéciaux et numériques d'une chaîne
Réponses
5
Affichages
428
patricktoulon
patricktoulon
Nicolas JACQUIN
  • Question Question
XL 2019 Fusionner jusqu'à dernière colonne contenant
Réponses
8
Affichages
668
TooFatBoy
TooFatBoy
Nicolas JACQUIN
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
Nicolas JACQUIN
N
  • Question Question
Microsoft 365 Aide adaptation d'une macro
Réponses
2
Affichages
285
netparty
N
C
  • Question Question
XL 2021 Problème de remplissage d'une colonne conditionné à d'autres valeurs
Réponses
2
Affichages
394
CathyLD
C
D
  • Question Question
XL 2010 Valoriser cellule par clic
Réponses
4
Affichages
486
fanch55
fanch55
A
  • Question Question
Insérer un copier / coller
Réponses
0
Affichages
310
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
1 K
melltel
M
T
  • Résolu(e)
Microsoft 365 optimisation d'un programme en utilisant la fonction Array
Réponses
5
Affichages
565
Thomas_1
T
T
  • Question Question
XL 2016 Optimisation d'une boucle
2 3
Réponses
30
Affichages
2 K
thivame
T
E
  • Résolu(e)
Microsoft 365 Boucle sur lignes <>0
Réponses
2
Affichages
333
eric72
E
M
  • Résolu(e)
XL 2016 Amélioration de code
Réponses
3
Affichages
576
M@xu3L
M
A
  • Question Question
XL 2016 Boucle sur sous répertoire fso.GetFolder SharePoint
Réponses
0
Affichages
848
Aldonanou
A
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
458
guiyom
G
Retour