Discussion :

[mordrhim]

Bonjour,

pour cette fois-ci je demande de l'aide ^^

j'ai un chemin de fichier "c:\Dossier1\Dossier2\...\Dossier'n'\Fichier.xls"

j'aimerais récuperer le nom du fichier grâce à ce chemin.

Pour ce faire je triche un peu mais cettre tricherie à une limite

Code :

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

1
2
3
4
5
6
7
8
9
10
Myarray = Split(FilePath, "\", -1, 1)
Rang = 0
Do
    On Error GoTo Suite
    FileName = Myarray(Rang)
    Rang = Rang + 1
Loop
 
'----------------------------------------------------------------
Suite:

ce qui me sépare le Path en dossier / sous dossiers / fichier
si je n'execute cette commande qu'une seule et unique fois, pas problème (lorsque je dépasse mon rang max, ya une erreur donc il va à Suite: )
cependant, si je dois refaire cette partie de mon macro, il ne gère plus le On Error GoTo Suite.

d'ou ma question,
est-il possible de gérer cette erreur plusieurs fois ?
si non, comment savoir le nombre de valeurs dans mon array Myarray(Rang)

par exemple :
Myarray("mot1","mot2","mot3","mot4")
dire que le rang max est 3 :
Myarray(0) -> "mot1"
Myarray(1) -> "mot2"
Myarray(2) -> "mot3"
Myarray(3) -> "mot4"


PS: je vous donne pas mon code entier, ca serait imbuvable.

[SilkyRoad]

bonsoir

Tu peux récupérer directement le nom du fichier ainsi:

Code :

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

MsgBox Dir("c:\Dossier1\Dossier2\...\Dossier'n'\Fichier.xls")

Sinon pour ta question initiale, tu peux aussi tester:

Code :

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

1
2
MyArray = Split("c:\Dossier1\Dossier2\...\Dossier'n'\Fichier.xls", "\", -1, 1)
MsgBox MyArray(UBound(MyArray))

michel

[mordrhim]

Code :

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

MsgBox Dir("c:\Dossier1\Dossier2\...\Dossier'n'\Fichier.xls")

est parfait (connaissais po la commande ^^)