Jerry
XLDnaute Junior
Bonjour au Forum,
Comment je peux faire pour récupérer le nom du fichier excel ouvert sachant que la variable TheFile donne le chemin complet + le nom de fichier sous la forme: "c:\Mes Documents\administratif\Exemple.xls" et que ce chemin est différent à chaque fois.
y a-t-il une astuce pour obtenir le nom du fichier directement??
____________________________________________________________
ThePath = "R:\BE\A-O\"
UserDir = CurDir
ChDir ThePath
TheFile = Application.GetOpenFilename("Excel Files(*.xls),*.xls")
If TheFile = False Then
ChDir UserDir
Exit Sub
End If
Set WB = Workbooks.Open(TheFile)
ChDir UserDir
___________________________________________________
Comment je peux faire pour récupérer le nom du fichier excel ouvert sachant que la variable TheFile donne le chemin complet + le nom de fichier sous la forme: "c:\Mes Documents\administratif\Exemple.xls" et que ce chemin est différent à chaque fois.
y a-t-il une astuce pour obtenir le nom du fichier directement??
____________________________________________________________
ThePath = "R:\BE\A-O\"
UserDir = CurDir
ChDir ThePath
TheFile = Application.GetOpenFilename("Excel Files(*.xls),*.xls")
If TheFile = False Then
ChDir UserDir
Exit Sub
End If
Set WB = Workbooks.Open(TheFile)
ChDir UserDir
___________________________________________________