Conversion d'un fichier xls en fichier txt

Fermé
aminezer Messages postés 8 Date d'inscription jeudi 25 octobre 2012 Statut Membre Dernière intervention 30 juin 2013 - 4 juin 2013 à 15:09
aminezer Messages postés 8 Date d'inscription jeudi 25 octobre 2012 Statut Membre Dernière intervention 30 juin 2013 - 30 juin 2013 à 14:51
bjr svp les amis j'ai un petit problème
je veux convertir un fichier .xls en fichier .txt avec certain conditions
par exemple: on un nom de 6 caractères dans xls et je veux avoir un nom .txt mais en 10 caractères exemple: Patrick=6 caractères en xls ,je avoir :0000Patrick en txt
merci d'avance les amis veuillez m'aider svp

3 réponses

f894009 Messages postés 16905 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mars 2023 1 680
4 juin 2013 à 16:39
Bonjour,

Mettez a dispo une maquette xls avec le format du fichier txt sur

https://www.cjoint.com/

n'oubliez pas de copier/coller le lien cree dans votre prochain message

A+
0
aminezer Messages postés 8 Date d'inscription jeudi 25 octobre 2012 Statut Membre Dernière intervention 30 juin 2013 1
30 juin 2013 à 10:50
merci mais je veux un programme avec vba 2007
0
f894009 Messages postés 16905 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 20 mars 2023 1 680
30 juin 2013 à 12:01
Bonjour,

Pour vous donner un programme a representatif de ce que vous attendez, il faut un minimun de details,
exemple: Patrick=6 caractères en xls ,je avoir :0000Patrick en txt ceci est un des details, s'il y en a d'autres, un fichier xls avec les details du format txt sont indispensables.

A+
0
aminezer Messages postés 8 Date d'inscription jeudi 25 octobre 2012 Statut Membre Dernière intervention 30 juin 2013 1
30 juin 2013 à 14:51
ok je vous l'envoie prochainement merci bcp
0
Frenchie83 Messages postés 2239 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 28 janvier 2023 335
30 juin 2013 à 12:04
Bonjour

Quelque chose dans ce genre

Sub EnregistrementEnTxt()
NbCArExt = Len(Right(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - InStr(1, ActiveWorkbook.Name, ".", 1)))
NbCarFichier = Len(ActiveWorkbook.Name) - NbCArExt - 1
If NbCarFichier >= 10 Then GoTo Enregistrement
NbZero = 10 - NbCarFichier
NomFich = String(NbZero, "0") & Left(ActiveWorkbook.Name, NbCarFichier)

Enregistrement:
ActiveWorkbook.SaveAs Filename:="C:\..\..\..\" & NomFich & ".txt", FileFormat:=xlText, CreateBackup:=False
End Sub

a essayer

cdlt
0
aminezer Messages postés 8 Date d'inscription jeudi 25 octobre 2012 Statut Membre Dernière intervention 30 juin 2013 1
30 juin 2013 à 14:38
merci mon amis mais ça na pas marché je vais vous envoyé mon fichier avec les détails prochainement et vous essayerais de trouver une solution ensemble avec moi merci encore
0