Erreur 424

Daniel -  
Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

je cherche à récupérer le path de ma base de donnée avec ce bout de code:
Sub GetPath()
Dim FName As Variant
FName = Application.GetOpenFilename(filefilter:="Access Files,*.acc*")
Sheet1.Range("I3").Value = FName
End Sub
mais une erreur 424 apparaît toujours et je ne comprends pas pourquoi



1 réponse

Kuartz Messages postés 852 Date d'inscription   Statut Membre Dernière intervention   61
 
Bonjour,

Et en écrivant :

Sheets(1).Range("I3").Value = Dir(FName)


?

Cordialement.
0