Pb avec les fonction InStrRev et StrReverse...

Question

Bonjour!

J'ai besoin de récupérer le nom d'un fihier à partir de son chemin complet: filePath/fileName (filePath étant lui-même composé de répertoire et sous-répertoires donc il comprend un nb indéterminé de / ).

Je voulais utiliser la fonction InStrRev, ou InStr combinée avec StrReverse, mais ces 2 fonctions semblent ne pas marcher en VBA. Est-ce normal? Est-ce qu'il existe une autre fonction sous VBA qui puisse rechercher un caractère dans une chaîne en partant de la fin?

Merci d'avance pour votre aide!

jrivet · Answer

Salut,

Essaie de voir si ca ca peut t aider

Dim Pa as string
Dim NomFichier
Pa = Application.Path
NomFichier= Mid(Pa, InStrRev(Pa, "") + 1)
@+
Julien
-----------------------------------------------------------
 :big)  Essaie ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

cs_cissou06 · Answer

C'est gentil mais justement VBA ne reconnaît pas la fonction InStrRev....

jrivet · Answer

Salut,

ben j ai essayer ca sous excel et si je ne me trompe pas le vb de excel c est du vba

@+
Julien
-----------------------------------------------------------
 :big)  Essaie ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

cs_cissou06 · Answer

J'avais bien compris que vb d'Excel c'est du VBA mais chez moi ça marche pas alors je suppose que j'ai une version trop vieille d'Excel par rapport à la tienne et qui ne prend pas en compte cette fonction. Merci quand même. Je vais faire autrement.

phantom_2005 · Answer

salut,

je travaille aussi en vba mais sous access alors tu peux essayé ceci



Dim Str As String, StrFile As String, StrFold As String
Dim pos As Integer, Posi As Integer

'Initialise le début de la recherche
Posi = 1

Str = InputBox("Entrer le chemin du fichier")

'Recherche de la position du dernier ""
While Posi <> 0
    pos = Posi
    Posi = InStr(pos + 1, Str, "", 0)
Wend

'Affichage du nom de fichier sans le chemin
StrFile = Right(Str, (Len(Str) - pos))
StrFold = Left(Str, (Len(Str) - Len(StrFile)))



normalement ça fonctionne

 :big)

cs_cissou06 · Answer

J'ai fini par faire un truc dans le genre qui marche bien effectivement! Merci beaucoup!

Pb avec les fonction InStrRev et StrReverse...

6 réponses

Discussions similaires