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
A voir également:
- Conversion d'un fichier xls en fichier txt
- Fichier bin - Guide
- Fichier epub - Guide
- Comment réduire la taille d'un fichier - Guide
- Fichier rar - Guide
- Fichier .dat - Guide
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+
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
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
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+