Erreur 424

Fermé
Daniel - Modifié par Daniel le 28/07/2016 à 17:51
Kuartz Messages postés 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 - 29 juil. 2016 à 11:29
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 850 Date d'inscription vendredi 13 février 2015 Statut Membre Dernière intervention 15 février 2019 59
29 juil. 2016 à 11:29
Bonjour,

Et en écrivant :

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


?

Cordialement.
0