Bonsoir,

J'utilise FileSearch pour rechercher tous les fichiers excel d'un dossier, malheuresement Foundfiles(i) me retourne le chemin complet du fichier du type : c:\test\monFichier.xls alors que je n'ai besoin que du "nomFichier".
J'envoie dans ce resultat dans une fonction rechercher_nom qui à coup de split devrait me retourner le nom voulu.
C'est sur cette fonction que j'ai un message "Erreur de compilation : Erreur de syntaxe".
Y a t il une ame charitable pour m'indiquer où se trouve l'erreur dans la déclaration de la fonction ou des tableaux. (j'ai essayé plusieurs syntaxes mais rien n'y fait j'ai le même message
Je vous remercie d'avance de votre aide.
Voici le code de la fonction :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
Public Function rechercher_nom(arg) As String
 
'Déclaration des variables locales
 
Dim Tab(2) As String
Dim Nom(1) As String
Dim mavar As String
 
tab() = Split(arg,"\")
mavar = tab(2)
Nom = Split(mavar, ".")
rechercher_nom = Nom(0)
End Function