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
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
A voir également:
- Conversion d'un fichier xls en fichier txt
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
- Comment réduire la taille d'un fichier - Guide
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
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+
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+
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
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
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
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
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
30 juin 2013 à 10:50
30 juin 2013 à 12:01
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+
30 juin 2013 à 14:51