Erreur 424

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

  • Votes
  • Date
  • Date décroissante
  1. Bonjour,

    Et en écrivant :

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


    ?

    Cordialement.