Excel effacer fin de chaine caractères

Résolu/Fermé

shishumi Messages postés 18 Date d'inscription vendredi 16 mai 2008 Statut Membre Dernière intervention 1 décembre 2008 - 26 mai 2008 à 11:56
louni - 3 juin 2008 à 00:03

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:

Excel effacer fin de chaine caractères
Liste déroulante excel - Guide
Caractères ascii - Guide
Caractères spéciaux symboles clavier - Guide
Formule excel - Guide
Si et excel - Guide

2 réponses

Réponse 1 / 2

LatelyGeek Messages postés 1758 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 5 janvier 2023 550
26 mai 2008 à 12:06

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

shishumi Messages postés 18 Date d'inscription vendredi 16 mai 2008 Statut Membre Dernière intervention 1 décembre 2008
26 mai 2008 à 12:12

merci pour ton aide ton code fonctionne super bien

Réponse 2 / 2

louni
3 juin 2008 à 00:03

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

Discussions similaires

1500 signes équivaut à combien de ligne dans un document wor

Discussions similaires

Newsletters