Discussion :

[azopei]

bonjour,

tout nouveau sur access et ce forum je voulais d'abord saluer et remercier tout ses participants pour leur contribution qui m'ont permis en deux semaines de faire des trucs beaucoup plus avancés que ce que j'aurais imaginé pouvoir faire (et très fonctionnels en plus). A tous donc MERCI.

Ma question ensuite :
je me demandais si il y a une instruction de type INSTR mais qui lit les chaine de caractère de droite à gauche.
Dans mon cas je souhaitais à partir d'un chemin de fichier (chemin as string) obtenir le simple nom du fichier.
j'ai donc fait la fonction suivante :

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
16
17
 
Public Function ExtraireFichierduChemin(chemin As String)
 
Dim CRT As Long
Dim raccourci As String
 
raccourci = chemin
CRT = InStr(1, raccourci, "\")
 
While CRT
raccourci = Right(raccourci, Len(raccourci) - CRT)
CRT = InStr(1, raccourci, "\")
Wend
 
ExtraireFichierduChemin = raccourci
 
End Function

Mais il y a peut-être plus simple... Si vous avez des commentaires ou si ces quelques lignes peuvent être utiles à quelqu'un...

[STEF_1]

Salut,

Il faut utliser le FileScripting object dont voici un petit exemple :

Code :

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

1
2
3
4
5
 
 
Dim Fs As New FileSystemObject
Debug.Print Fs.GetFile(CurrentDb.Name).ShortName
Set Fs  = Nothing

A+

[cafeine]

Hello,
en dehors de la solution de STEF_1

InstrRev() n'existe que depuis la version 2000 d'Access.

[azopei]

Merci bien.
je vais essayé de trouver un bouquin qui recense exhaustivement les instructions dispo. Si vous avez un conseil...
a+

[cafeine]

re-hello,

j'ai l'impression que nous avons répondu de manière exhaustive à ta question ... sinon tu as l'aide en ligne.

[azopei]

re bonjour Cafeine

Vos réponses étaient en effet exhaustives et je vous en remercie.

Je me disais simplement que je ferais bien de m'acheter un bouquin qui recense les instructions dispo plutôt que de vous déranger à nouveau pour demander, par exemple, si il existe une instruction équivalente au Recherchev d'excel, et encombrer ainsi le forum de questions peu intéressantes et chronophages pour ses membres.

Mon dernier post ne se référait pas à ma question ou à vos réponses : c'était une réflexion propre qui, j'en conviens, n'avait pas grand chose à foutre là.

bref, encore merci et désolé pour le dérangement et la maladresse de ma remarque .

[cafeine]

Ma dernière remarque visait à te faire cliquer sur le bouton situé en bas à gauche, afin de signaler que tu avais obtenu au moins une réponse satisfaisante.