1. la fonction te renvoi le chemin complet et le nom que tu as choisi.
2. Pour l'appel c'est classique
vchemin = OuvrirUnFichier(Application.hwndAccessApp, "Parcourir", 1, "Tous les fichiers", "*.*")
Ici on visualise tous les fichiers.
Pour le découpage.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Public Function fFichierExt(strCheminFichier As String, strType As String) As String
' Retourne l'un des éléments suivant le chemin/fichier passé en référence
' strCheminFichier contient le chemin et fichier
' strType =
' F renvoi le nom du fichier et son extension
' E renvoi l'extension du fichier
' C renvoi le chemin sans le nom ni l'extension
' U renvoi l'unité
On Error GoTo ErrSub
Select Case strType
Case Is = "F" ' renvoi le fichier
fFichierExt = Right(strCheminFichier, Len(strCheminFichier) - InStrRev(strCheminFichier, "\"))
Case Is = "E" ' renvoi l'extension
fFichierExt = Right(strCheminFichier, Len(strCheminFichier) - InStrRev(strCheminFichier, "."))
Case Is = "C" ' renvoi le chemin
fFichierExt = Left(strCheminFichier, InStrRev(strCheminFichier, "\"))
Case Is = "U" ' l'unité
fFichierExt = Left(strCheminFichier, InStr(strCheminFichier, "\"))
End Select
Exit Function
ErrSub:
Resume Next
End Function |
Y a plus qu'à !
Partager