Excel effacer fin de chaine caractères
Résolu
shishumi
Messages postés
18
Date d'inscription
Statut
Membre
-
louni -
louni -
Bonjour,
Voila j'ai un code qui me permet de récupérer des noms de fichiers dans une feuilles excel mais le problème c que je ne doit pas avoir les 20 dernier caractères.
voici mon code :
merci beaucoup pour votre aide
Voila j'ai un code qui me permet de récupérer des noms de fichiers dans une feuilles excel mais le problème c que je ne doit pas avoir les 20 dernier caractères.
voici mon code :
For Each Fichier In DossierSource.Files
Workbooks.Open Filename:=Fichier
Workbooks("Maquette.xls").Worksheets("synthèse").Cells(x, 25) = ActiveWorkbook.Name
x = x + 1
Next
merci beaucoup pour votre aide
Configuration: Windows XP Firefox 2.0.0.14
2 réponses
-
For Each Fichier In DossierSource.Files
Workbooks.Open Filename:=Fichier
NomFichier=ActiveWorkBook.Name
LongueurTotale=Len(NomFichier)
NbCaractères=LongueurTotale-20
Workbooks("Maquette.xls").Worksheets("synthèse").Cells(x, 25) = Left(NomFichier,NbCaractères)
x = x + 1
Next -
je cherche le flash age du demo star sat 4200
-le code pour effacer toutes les chaines du aston simba 202s mercie d(avance
