Function Ouvrir$() 'Alain Cros
Dim Fichier$
Fichier = CStr(Application.GetOpenFilename( _
'Tous les fichiers (*.xls),*.xls', , 'Recherche de Fichier'))
If Fichier <> CStr(False) Then
With Application
Ouvrir = Left$(Fichier, InStr(.Substitute(Fichier, .PathSeparator, '?', _
Len(Fichier) - Len(.Substitute(Fichier, .PathSeparator, ''))), '?'))
End With
End If
End Function