Conversion d'un fichier xls en fichier txt
aminezer
Messages postés
10
Statut
Membre
-
aminezer Messages postés 10 Statut Membre -
aminezer Messages postés 10 Statut Membre -
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
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
-
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+ -
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 -
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
