Discussion :

[Tintou]

Bonjour,

J'utilise un code dans la FAQ (pas d'auteur mentionné) qui permet de récupérer le chemin d'un répertoire quand on a le chemin complet du fichier.
Le problème est que dans ce code la fonction "InStrRev" est utilisée et elle n'est pas reconnu chez moi (j'utilise access97). Seulement InStr et InStrB sont disponibles. Le problème c'est qu'elles ne me permettent de récupérer que la première occurence de ma chaine de caractère. Et je voudrais la dernière.
Si quelqu'un sait comment je pourrais remédier à cela, merci d'avance.

[Invité]

Bonjour

Essaye ce petit bout de code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function RechChemin(strChemin As String) As String
 
    Dim tabChemin() As String
    Dim i As Integer
    Dim strPath As String
 
    tabChemin = Split(strChemin, "\")
    For i = 0 To CInt(UBound(tabChemin)) - 1
        strPath = strPath & "\" & tabChemin(i)
    Next i
 
    RechChemin = Right(strPath, Len(strPath) - 1)
End Function

Je pense que split existe sous 97

Edit
En complément, tu passes comme paramètre à la fonction le nom complet de ton fichier (Chemin avec le nom du fichier)

Starec

[Lou Pitchoun]

Salut,

Il me semble que je me suis servis de cette fonction.
Par contre il faut que je remette la main dessus.

[Tintou]

Malheureusement Split n'est pas reconnu non plus...

[Invité]

Bonjour

Tu as dans les Sources du forum Access un code de remplacement pour la fonction Split : http://access.developpez.com/sources...onctionSplit97

Starec

[Tintou]

Je remarque qu'il y en a aussi une pour la fonction InstrRev.

Je regarde ça.

[Tintou]

ça marche nickel, merci beaucoup !

[Lou Pitchoun]

Je ne sais plus ou j'ai mis ça désolé.

Mais...
Ca ça MARCHE !!!

Code :

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

1
2
3
4
5
6
7
Sub ReturnFolder()
 
Set fso = New FileSystemObject
 
Debug.Print fso.GetParentFolderName(Chemin ou chemin + nom fichier)
 
End Sub

merci Tofalu pour ce tuto qui fait des merveilles