Dim Repertoire As String, Fichier As String, Chemin As String
Chemin = 'c:\\dede\\dada\\toto.xls'
Repertoire = Mid(Chemin, 1, InStrRev(Chemin, '\\'))
'mid = Fonction qui prend un morceaux de texte
'MID(Chaine de départ, n° de caractère de départ, N° d'arrivée)
'Par exemple Mid('DEDE THE BEST',1,4) renvoi 'DEDE'
'Par exemple Mid('DEDE THE BEST',6,8) renvoi 'THE'
Fichier = Mid(Chemin, InStrRev(Chemin, '\\') + 1, Len(Chemin))
'InstrRev recherche dans une chaine le premier caractére se trouvant entre parenthèse ici le \\
' en partant de la FIN !!! (instr pour partir du debut)
' Len indique le nombre de caractères d'une chaine
End Sub