Bonjour,
Voila j'utilise la commande GetOpenFilename afin de recuper un nom de fichier via l'exporateur. En fait l'utilisateur choisit un fichier .xls via l'explorateur.
Voici mon code:
	
	| 12
 3
 4
 5
 6
 7
 8
 9
 10
 11
 12
 13
 14
 15
 
 | Sub CmdOpenExpl_Click()
 
Dim Dir As String
 
Dir = CurDir$
ChDir "c:\"
SourceFileFullPath = Application.GetOpenFilename
 
If VarType(SourceFileFullPath) = vbBoolean Then Exit Sub ' cancellation
 
ChDir Dir
 
txtInputPath.Value = SourceFileFullPath
 
End Sub | 
 Mais la fonction GetOpenFileName retourne le chemin complet du fichier .xls.
	
	C:\Documents and Settings\Administrator\myfile.xls
 Moi je souhaite utiliser seulement le nom du fichier (myfile.xls) afin de manipuler ce classeur dans d'autre fonction VBA
J'ai fais le tour des fonctions autour des chaines de carateres mais je n'arrive pas a resoudre mon probleme.
Une idee?
						
					
Partager