Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Enregister une feuille Excel sous forme d'un fichier .txt

I

ilyas_

XLDnaute Nouveau
Bonjour, j'ai une feuille excel avec des cellules qui contiennent des fonctions CONCATENER que je veux enregistrer sous un fichier .txt

Par exemple : =CONCATENER("<?xml version=";CAR(34);"1.0";CAR(34);" encoding=";CAR(34);"UTF-8";CAR(34);"?>")

Mon problème est que sur excel la cellule affiche correctement : <?xml version="1.0" encoding="UTF-8"?>

Par contre sur le fichier .txt ça me donne : <?xml version=""1.0"" encoding=""UTF-8""?>

Y a t-il une solution pour enlever les guillemets en trop sur le fichier .txt
 
Trier par date Trier par votes

cp4

XLDnaute Barbatruc
Bonsoir,

Je pense qu'un fichier texte ne peut pas contenir de formule. Il te suffirais peut-être de faire un copier/ collage spécial valeur et ensuite exporter la feuille au format txt.

Bonne soirée.
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonsoir ilyas_,MP59, cp4,

Dans la formule remplacez CAR(34) - guillemet normal - par CAR(39) - guillemet anglais.

Si nécessaire ensuite il sera facile de remplacer ce 2ème guillemet par le 1er.

A+
 
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Une solution qui devrait vous plaire davantage :

- avec le bloc-notes créez un fichier texte .txt vierge

- collez cette macro dans le VBA du fichier Excel et exécutez-la :
VB: 
Sub Export_TXT()
Dim fichier, tablo, i&
fichier = Application.GetOpenFilename("Fichier texte, *.txt")
If fichier = False Then Exit Sub
tablo = [A1].CurrentRegion.Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
'Open fichier For Output As #1 'ceci
Open fichier For Append As #1 'ou cela
For i = 1 To UBound(tablo)
    Print #1, tablo(i, 1)
Next
Close #1
End Sub
Les guillemets ne sont pas doublés.
 
Dernière édition:
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour ilyas_, le forum,

Il vaut mieux faire créer le fichier Texte par la macro, voyez le fichier joint :
VB: 
Sub Export_TXT()
Dim fichier$, tablo, i&
fichier = ThisWorkbook.Path & "\Fichier TXT.txt" 'dossier et nom à modifier éventuellement
Application.ScreenUpdating = False
Application.DisplayAlerts = False 'si le fichier a déjà été créé
ActiveSheet.Copy 'nouveau document
ActiveWorkbook.SaveAs fichier, xlText 'crée le fichier Texte
ActiveWorkbook.Close 'ferme le document
tablo = [A1].CurrentRegion.Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
Open fichier For Output As #1 'rouvre le fichier Texte en effaçant son contenu
For i = 1 To UBound(tablo)
    Print #1, tablo(i, 1) 'nouveau contenu
Next
Close #1
End Sub
A+
 

Pièces jointes

  • Export_TXT(1).xlsm
    16.8 KB · Affichages: 13
Vote positif 0 Vote négatif
I

ilyas_

XLDnaute Nouveau
Merci pour votre réponse job75, ça fonctionne correctement.
 
Vote positif 0 Vote négatif
I

ilyas_

XLDnaute Nouveau
patricktoulon à dit:
bonjour a tous
pourrait on avoir un exemple de fichier
je vois du code xml
donc perso j'ai une autre idée
Cliquez pour agrandir...
Bonjour à toi,

C'est pour concaténer une entête XML avec le corps et pour ça j'utilise excel pour récupérer des données, et après j'extrais le résultat de la concaténation sur un fichier .txt

Voici un exemple.
 

Pièces jointes

  • Générateur XML.xlsm
    324.4 KB · Affichages: 6
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
bonjour
j'avoue ne pas comprendre ta démarche un xml il y a des outils en vb(a) pour ca
et je pige pas non plus pourquoi @job75 réécrit 2 fois le fichier

donc si je suis l'idée de job(tout du moins le résultat
VB: 
Option Explicit

Sub Export_TXT()
Dim fichier$, tablo
fichier = ThisWorkbook.Path & "\Fichier TXT.txt" 'dossier et nom à modifier éventuellement
tablo = Application.Transpose([A1].CurrentRegion.Resize(, 1)) 'matrice, plus rapide, au moins 2 éléments
Open fichier For Output As #1 'ouvre le fichier Texte
    Print #1, Join(tablo, vbCrLf) 'nouveau contenu
Close #1
End Sub
j'obtiens le même résultat
je regarde d'un peu plus près ton fichier et reviens
 
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
j'avoue ne pas saisir ce que tu veux faire ni avec quelle feuille d'ailleurs
c'est brouillon tout ca
si tu me donnais un fichier xml final correspondant au données de ton fichier en post #10 je pourrais comprendre ça serait mieux je pense
un fichier xml doit avoir une structure de base bien précise

<?instruction...?>
<root>
<element>
</element>
</root>
 
Vote positif 0 Vote négatif
I

ilyas_

XLDnaute Nouveau
j'essaye d'arriver à un fichier similaire à celui là, c'est mon premier contact avec XML donc j'avoue ne pas être à 100%
 

Pièces jointes

  • Nouveau document texte.txt
    1.8 KB · Affichages: 6
Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc
re
j'avais compris en voyant les 2 exemples dans dans la feuille Générateur xml
mais il ne sont pas bons car il y a des balises qui ne sont pas fermés ou pas ouverte avec une fermeture LOL!!!!!
exemple ici
<OrgId>
<Othr>
<Id>_</Id> ici c'est bon ouvert et fermé
<SchmeNm>
<Prtry>_</Prtry>
</SchmeNm>
</Othr>
</OrgId>
</Id> !!!!!!!!donc !!!!cette fin de balise n'a pas d'ouverture ca fout en l'air ton xml
</Dbtr>
<DbtrAcct>
Cliquez pour agrandir...
et il y en a d'autre erreur encore
je pense pas que concaténer en formule soit la meilleur solution trop compliqué à déboguer
en vba on peut construire une architecture xml dans un xmldomdocument en memoire
et il y a la fonction save
sans oublier en UTF-8 certains caractères doivent être convertis sinon la aussi ca fout en l'air le xml
 
Vote positif 0 Vote négatif
I

ilyas_

XLDnaute Nouveau
si tu remonte d'une ligne tu vas trouvé la balise ouvrante.
<Nm>CLIENT A DEBITER</Nm>
<Id>
<OrgId>
<Othr>
<Id>_</Id>
<SchmeNm>
<Prtry>_</Prtry>
</SchmeNm>
</Othr>
</OrgId>
</Id>
j'avoue ne pas avoir une formation en vba donc je ne sais pas travaillé avec mais si tu as une solution en vba je suis preneur.
Voici le resultat final de la concaténation.
 

Pièces jointes

  • Nouveau document texte.txt
    1.9 KB · Affichages: 1
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Question Question
Microsoft 365 Bug liste de validation sur fichier de menu/Repas
2
Réponses
17
Affichages
481
ChTi160
M
  • Question Question
Microsoft 365 Créer en VBA un Fichier Xml a partir d'un tableau
2
Réponses
15
Affichages
269
patricktoulon
D
  • Résolu(e)
Microsoft 365 Copier / coller données spécifiques documents txt vers Excel
Réponses
3
Affichages
585
Staple1600
F
  • Résolu(e)
Microsoft 365 Comment enregistrer chaque ligne en tant que fichier texte dans Excel?
2
Réponses
24
Affichages
738
TooFatBoy
  • Résolu(e)
XL 2010 Navigation fichier XML
Réponses
14
Affichages
870
patricktoulon
Y
  • Question Question
Autres Macros étranges sur ancien fichier Excel
2
Réponses
17
Affichages
581
Oneida
T
  • Question Question
XL 2016 Problème à l'ouverture d'un classeur
Réponses
0
Affichages
1 K
tykenta
T
P
  • Question Question
XL 2019 Message Excel inintelligible
Réponses
1
Affichages
1 K
Compte Supprimé 979
C
T
  • Question Question
XL 2016 Erreur lors de l'ouverture du classeur
Réponses
0
Affichages
2 K
tykenta
T
I
  • Question Question
XL 2019 Message d'erreur : désolé... nous avons rencontré un problème dans le contenu de...
Réponses
2
Affichages
2 K
im_Guillaume
I
  • Résolu(e)
XL 2010 Boucles imbriquées et fichier XML à géométrie variable
2
Réponses
27
Affichages
2 K
patricktoulon
  • Question Question
XL 2013 formation à renouveler selon une date
Réponses
13
Affichages
570
chris
I
  • Question Question
XL 2019 Optimisation d'un code VBA pour liste
2 3 4
Réponses
46
Affichages
5 K
im_Guillaume
I
D
  • Résolu(e)
Microsoft 365 lier deux colonnes selon une liste de distribution dans un premier fichier
2
Réponses
16
Affichages
607
Daniel200666
D
L
  • Question Question
XL 2013 Macro pour exporter sur excel certaines données d'un fichier txt
Réponses
1
Affichages
590
sylvanu
T
  • Question Question
Autres Deprotection d une feuille d'un ancien Excel
Réponses
3
Affichages
621
TooFatBoy
N
  • Question Question
Microsoft 365 Mise à jour de données d'un fichier Excel à un autre, sous Sharepoint
Réponses
0
Affichages
484
Newbeee
N
POWERQUERY :: Récupérer les attributs d'un fichier, Parcourir un dossier, Récupérer le contenu d'un fichier texte, Vérifier la présence d'un fichier
Réponses
0
Affichages
330
oguruma
S
  • Question Question
XL 2016 Afficher les bornes min et max dans lequel se trouve une valeur
Réponses
5
Affichages
411
stuka
S
POWERQUERY :: Combiner tous les fichiers .csv d'un dossier ou combiner des fichiers .csv spécifiques
Réponses
0
Affichages
484
oguruma
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…