DominoArea.org [Archive]

comment pourrais-je écrire une fonction permettant de récupérer le nom d'un fichier en ayant au départ le chemin d'accesex: a partir de C:\test.xls, je veux récupérer dans une variable test.xlsMerci

tu peux utiliser :Fichier:= @right(Chemin, '\');

Je ne peux pas utiliser les commandes, je me dois d'utiliser que le script, donc ce que vous m'avez donné comme code est bon, ca marche mais je ne peux malheureusement pas l'utiliser.Merci qd meme

En script tu peux utiliser la commande Evaluate pour évaluer le resultat d'une commande ou d'une fonction par exempleNomDuFichier = Evaluate(@right(Chemin, "\"))

Tu peux aussi faire un truc du genredim Position as integer...Position = instr(1,Chemin, "\")if Position <> 0 thenprint right(Chemin, Position)elseprint Cheminend ifPour info, il faut faire attention avec l'utilisation du Evaluate car ce dernier ralenti (de façon très légère) l'exécution du code. Cependant, si ce evaluate se trouve dans une boucle, les tps d'exé risque de devenir très important.Pour exemple, il y a quelques années, j'avais un code avec +sieur evaluate dans une boucle (nombre de rotation : 35000 environ). Avec le evaluate, le code mettait 45 minutes pour exécuter le traitement.Après remplacement de ces évaluate, je suis tombé à 25 minutes.

ce morceau de code ne permet pas de récupérer le nom du fichier excel.il me donne juste le "xls"....??!!

Houla...., j'ai besoin de vacancesRemplace le code que je t'ai donné par celui cidim Position as integerdim tmpChamin as string...Position = instr(1,Chemin, "\")while not Position = 0tmpChemin = right(Chemin, len(Chemin) - Position)Position = instr(Position+1,Chemin, "\")wendprint tmpCheminJe pense que ça devrait être bon

Salut, Je pense qu'il y a plus simple à savoir : nomFichier = strRightBack(Chemin, "\"); Cette fonction prend tout ce qui est à droite "\" en partant de la fin ) En plus, ça marchera avec les chemins de type : c:\Temp\Bidule\Truc\fichier.xls Bon courage, Rom1.

Exacte...Je n'utilise jamais cette fonction (j'ai même fini par l'oublier).Good Job Rom1.

Merci beaucoup !!!!! ca marche!! c'est gentil a vous! Merciet bon courage a tous