erreur de syntaxe dans la déclaration du tableau ou de la fonction

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:

---

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

---

Bonjour,

Après avoir récupéré ton chemin complet, utilise la foction Dir, elle te donnera le nom du fichier (sans son chemin).

Pour répondre à ta question, déclare tes tableaux sans dimension.

Code:

---

1 2	Dim Tab() As String Dim Nom() As String

---

Pour répondre à ta question, Tab est un mot réservé, change de nom de la variable.

Citation:

---

Tab, fonction


Utilisée avec l'instruction Print # ou la méthode Print pour positionner la sortie.

Syntaxe

Tab[(n)]

L'argument n représente le numéro de la colonne dans laquelle la prochaine expression d'une liste doit être affichée ou imprimée. Si cet argument est omis, la fonction Tab place le point d'insertion au début de la zone d'impression suivante. Il est ainsi possible de remplacer une virgule définie comme séparateur décimal par la fonction Tab dans les paramètres régionaux.

---

si tu mettais le code en entier de recherche des fichiers, il y aura éventuellement plus simple

Un petit exemple peut aider, surtout pour boucler le Dir:

Code:

---

1 2 3 4 5 6 7 8 9

RépC = "C:\Program Files" Répertoire = Dir(RépC, vbDirectory) 'premier Dir For i = 1 To 100 If Répertoire = "" Or Répertoire = "Nom recherché" Then Exit For End If Répertoire = Dir ' 2ème Dir, puis permet de boucler Next i

---

Merci beaucoup pour toutes ses infos et aussi rapidement.
Je teste tout çà tout de suite.

Citation:

---

Envoyé par mercatog

Pour répondre à ta question, Tab est un mot réservé, change de nom de la variable.

---

Bien vu mercatog. Ca ne m'a même pas sauté aux yeux. :oops:

Merci beaucoup,
Grâce à vos conseils, j'ai pu isoler les noms de fichiers et avancer.
Par contre :
Je teste le code en faisant F5 ou excuter Sub.
a chaque tour de boucle ou avant chaque fonction, la procédure s'arrete et je dois appuyer régulièrement sur F5 pour que la procédure continue...
ça ne vous dit rien ?

Merci à tous, je marque le post comme résolu