excel effacer fin de chaine caractères Résolu/Fermé

Question

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

LatelyGeek · Answer

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

louni · Answer

je cherche le flash age du demo star sat 4200
-le code pour effacer toutes les chaines du aston simba 202s mercie d(avance

Excel effacer fin de chaine caractères

2 réponses