Discussion :

[une_tite_question]

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

[AlainTech]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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

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

[did103]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[une_tite_question]

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

[AlainTech]

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.

[une_tite_question]

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 ?

[une_tite_question]

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