Extraire le nom d'1 fichier

PascalXLD

XLDnaute Barbatruc

• 1 Septembre 2006

• #2

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

 

Vote positif 0 Vote négatif

Joshua14

XLDnaute Occasionnel

• 1 Septembre 2006

• #3

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

PHP:

riri = tutu(UBound(tutu))

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 1 Septembre 2006

• #4

Re : Extraire le nom d'1 fichier

bonjour tout le monde

une autre syntaxe possible, moins élégante :

Code:

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

salut

 

Vote positif 0 Vote négatif

A

allegro50

XLDnaute Occasionnel

• 1 Septembre 2006

• #5

Re : Extraire le nom d'1 fichier

Merci Pascal de ta réponse...

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

 

Vote positif 0 Vote négatif

A

allegro50

XLDnaute Occasionnel

• 1 Septembre 2006

• #6

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

 

Vote positif 0 Vote négatif

Joshua14

XLDnaute Occasionnel

• 1 Septembre 2006

• #7

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

PHP:

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

Mais

PHP:

riri=tutu(Ubond(tutu))

Essaie avec cela et dis nous

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 1 Septembre 2006

• #8

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

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 1 Septembre 2006

• #9

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

 

Vote positif 0 Vote négatif

A

allegro50

XLDnaute Occasionnel

• 1 Septembre 2006

• #10

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

 

Vote positif 0 Vote négatif

A

allegro50

XLDnaute Occasionnel

• 1 Septembre 2006

• #11

Re : Extraire le nom d'1 fichier

Joshua,

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

Bon WE

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 4 Septembre 2006

• #12

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

 

Vote positif 0 Vote négatif