Discussion :

[Flop1908]

Bonjour,

Mon probleme est le suivant, je récupère un nom de fichier avec son chemin complet, et je voudrais séparé le nom du fichier et son chemin. Le soucis étant que l'emplacement des fichiers peut changer.

Pour illustrer :
'Voila le nom complet que je récupère
Strlink = "I:\Directions\3-Partage\PROJETS\Project_Office\Suivi_des_projets\FicheIntervention2010.xls"
'et voila les varible que je souhaite remplir
Chemin = "I:\Directions\3-Partage\PROJETS\Project_Office\Suivi_des_projets"
Fichier = "FicheIntervention2010.xls"
'Toute ses variables sont de type String

[Manhexter]

Salutations,

Alors pour le chemin de ton fichier tu as cette fonction :

Code :

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

1
2
3
4
5
6
7
8
9
Public Function ExtractFilePath(ByVal sFullPath As String) As String
 
If Right(sFullPath, 1) = "\" Then
    ExtractFilePath = sFullPath
Else
    ExtractFilePath = Left(sFullPath, InStrRev(sFullPath, "\"))
End If
 
End Function

Elle te renvoie le chemin de ton fichier à partir du chemin complet (Merci la ).
Tu stocke le résultat de ta fonction dans une variable et pour récupérer le fichier tu n'as plus qu'à faire :

Code :

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

fichier = right(chemincomplet,len(chemincomplet)-len(resultatdelafonction))

Voilà,

Bonne journée

[Flop1908]

Merci ca marche super !

Voila ce que ca donne grace a ta fonction:

Code :

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

1
2
    Dossier = ExtractFilePath(strLink)
    Fichier = Right(strLink, Len(strLink) - Len(Dossier))

Merci aussi pour la rapidité