Excel effacer fin de chaine caractères

Résolu
shishumi Messages postés 18 Date d'inscription   Statut Membre Dernière intervention   -  
 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 : 

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
A voir également:

2 réponses

Réponse 1 / 2
LatelyGeek Messages postés 1758 Date d'inscription   Statut Membre Dernière intervention   550
 
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
0
shishumi Messages postés 18 Date d'inscription   Statut Membre Dernière intervention  
 
merci pour ton aide ton code fonctionne super bien
0
Réponse 2 / 2
louni
 
je cherche le flash age du demo star sat 4200
-le code pour effacer toutes les chaines du aston simba 202s mercie d(avance
0