Accès VBA GetOpenFileName ne fonctionne pas

Question

J'ai une base de données d'accès qui fonctionne correctement sous Windows 7 office 2010. mais dans Windows 10 Office 2013 un code ne fonctionne pas.

Voici le code qui a un problème.

Private Sub Text0_Click() 
Dim s As String 
s = MyGetOpenFileName 
Me.Text0.Value = s 

End Sub

dans Windows 7 chaque fois que je clique sur la zone de texte les fenêtres ouvertes. mais dans Windows 10 si je clique rien ne se passe.

Answer 1

Je pense que cela devrait fonctionner:

Dim OpenFile Comme classeur

fPath = Application.GetOpenFilename(FileFilter:="Excel files, *.xl; *.xlsx; *.xlsm; *.xlsb; *.xlam; *.xltx; *.xls; *.xlt ", Title:="You can type the title for Your window here") 

If fPath = False Then 
    Exit Sub 
End If 

Set OpenedFile = Workbooks.Open(fileName:=fPath, UpdateLinks:=0, IgnoreReadOnlyRecommended:=True) 

Je montre la fenêtre avec filtre pour les fichiers Excel, puis vérifier si le fichier est seleted si vrai, alors j'ouvrir le fichier.