Extraire le nom d'1 fichier

[allegro50]

Bonjour le Forum.

Merci de m'indiquer comment extraire le nom d'un fichier (de longueur variable) dans la chaine de son chemin complet en VBA.

Exemple : Dans "C:\repertoire1\ss_rep1\toto.xls" et dans "C:\repertoire2\monfichier.xls"
je cherche à retrouver "toto.xls" d'une part et "monfichier.xls" d'autre part.

Question subsidiaire : comment affecter ce resultat ds une variable.

Merci de votre aide

Bon am
PG

 

[PascalXLD]

Re : Extraire le nom d'1 fichier

Bonjour

Dim tutu
Dim riri As String

tutu = Split("C:\repertoire1\ss_rep1\toto.xls", "\")
riri = tutu(UBound(tutu))

oups edition suite à erreur signalée par Joshua

Dans le variable riri tu recupères ton nom

Ne fonctionne pas avec excel97

 

[Joshua14]

Re : Extraire le nom d'1 fichier

Bonjour Pascal76 et allegro50,

Je me suis interessé à ce fil et je ne vois pas bien comment marche ton code Pascal. La deuxième ligne me parait etrange. ne serais ce pas

riri = tutu(UBound(tutu))

 

[Hervé]

Re : Extraire le nom d'1 fichier

bonjour tout le monde

une autre syntaxe possible, moins élégante :

tutu = StrReverse(Split(StrReverse("C:\repertoire1\ss_rep1\toto.xls"), "\")(0))
MsgBox tutu

salut

 

[allegro50]

Re : Extraire le nom d'1 fichier

Merci Pascal de ta réponse...

Mais c'est quoi "titi" ds ton exemple ?

 

[allegro50]

Re : Extraire le nom d'1 fichier

Re-bonjour a tous

Merci de vs interesser à mon souci.
Vous aurez bien compris que mon but est d'ouvrir 1 fichier, d'y faire un certain nombre de choses, de le fermer et d'en ouvrir un autre d'y faire des choses etc... jusqu'a la plus grande valeur de i

Pour plus de clarte j'ai integre les instructions de Pascal (corrigées par Joshua) dans mon bout de code
Ca bloque sur riri ---------> incomptabilite de type



Sub Macro1()

Dim tutu
Dim riri As String
Dim i As Integer

For i = 1 To 2
Select Case i
Case 1
Workbooks.Open Filename:="C:\Documents and Settings\Patrick\exemple.xls"
tutu = Split("C:\Documents and Settings\Patrick\exemple.xls", "\")
riri = tutu(UBound(Split(tutu, "\")))
MsgBox riri
Case 2
Workbooks.Open Filename:="C:\Documents and Settings\Patrick\fichier2.xls"
tutu = Split("C:\Documents and Settings\Patrick\fichier2.xls", "\")
riri = tutu(UBound(Split(tutu, "\")))
MsgBox riri

End Select
Next i
End Sub

 

[Joshua14]

Re : Extraire le nom d'1 fichier

Re,

Sans aucunement vouloir repondre à la place de Pascal, je pense que ton sooucis se porte sur le definition de riri

En effet, pour moi ce n'est pas

riri = tutu(UBound(Split(tutu, "\")))

Mais

riri=tutu(Ubond(tutu))

Essaie avec cela et dis nous

 

[PascalXLD]

Re : Extraire le nom d'1 fichier

Re

oups en effet pour mes tests j'étais passés par une variable titi non indispensable que j'ai supprimé mais je me suis planté au recopiage car j'avais fait un autre test

donc c'est bien

tutu = Split("C:\repertoire1\ss_rep1\toto.xls", "\")
riri = tutu(UBound(tutu))

toutes mes excuses

 

[PascalXLD]

Re : Extraire le nom d'1 fichier

Re

D'un autre coté Allegro je ne comprens pas trop l'interet de mettre en dur

Workbooks.Open Filename:="C:\Documents and Settings\Patrick\exemple.xls"

et ensuite de trouver un fonction pour juste recuperer exemple.xls car là tu peux aussi le mettre en dur

Mais bon on a peut-être pas tout le code

Bonne soirée

 

[allegro50]

Re : Extraire le nom d'1 fichier

Bonsoir ,

Merci Pascal de tes corrections efficaces..
C'est exactement ce que je voulais.
En effet vu comme ca , ca parait ne servir a rien mais en fait j'ai besoin de ce nom pour naviguer d'une fenetre a l'autre ds le corps du code.

Encore merci et bon we.

PG

 

[allegro50]

Re : Extraire le nom d'1 fichier

Joshua,

J'ai oublié de t'associer ds mes remerciements.

Bon WE

 

[Brigitte]

Re : Extraire le nom d'1 fichier

Bonjour,

Cherchez l'intrus...

Y en a un autre que tu as oublié de remercier... Pourtant quelle carrure, tant dans son avatar que dans ses interventions.

Tu donnes ta langue au chat ?

Tata Olive