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

Exporter au format texte

  • Initiateur de la discussion Initiateur de la discussion Ln2
  • Date de début Date de début

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 !

L

Ln2

Guest
Bonjour, je voudrais savoir comment sauvegarder une feuille excel en fichier texte, mais en imposant un format particulier aux colonnes de sortie.
J'explique:
Par exemple, j'ai 3 colonnes article, prix unitaire, fournisseur.
Et je voudrais qu'en sauvegardant, j'ai un fichier où toutes les lignes aient le meme format:
- Article sur les 17 premiers caracteres
- 1 Espace
- Prix unitaire au format EEEEE.EEE
- 1 Espace
- Fournisseur sur 17 caracteres suivants.
Retour à la ligne pour l'enregistrement suivant.

Le pb, c'est que si je sauvegarde au format texte, les prix à 17,9 ou à 17,91 feront pas les memes caracteres. De meme que les articles aux noms court ou long ?

Comment "Forcer" la taille des formats de sortie ?


PS: Il ne faudra pas à avoir à faire des modifs sur le fichier lui meme, car je les recois tres souvent, de differents fournisseurs, et il est impossible d'harmoniser tout le monde, la seule garantie que j'ai eu, c'est dans le positionnement respectif des colonnes :-(
 
Bonsoir Ln2

Ben je pense avoir compris ton problème mais essaye déjà cette macro...y aura toujours possibilité d'adapter par la suite...

En fait son principe fera que les données présentent sur Feuil1 seront rapatriées dans un fichier texte "MonFichier.txt" que j'ai placé sur le bureau...le tout sera présenté en colonnes régulières...loool

Option Explicit
' Vériland Juin 2003
' Macro TXT pour Ln2
' Forum Excel-Downloads (http://www.Excel-downloads.com)

Sub EcrireEnColonneTXT()
Open "c:windows\bureau\MonFichier.txt" For Output As 1
Dim i As Integer, derniereligne As Integer
Sheets("Feuil1").Select
derniereligne = [a65536].End(xlUp).Row
For i = 1 To derniereligne
Print #1, Cells(i, 1).Value, Cells(i, 2 ).Value, _
Cells(i, 3).Value, Chr(32)
Next
Close
End Sub


exemple réalisé sur trois colonnes...



PS : Macro à copier depuis le forum auquel cas tu risques d'avoir les attributs du post dans la macro...lol
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…