Discussion :

[BSide]

Bonjour,

g une base Access me permettant d'enregistrer des commandes. J'aimerais pouvoir associer un devis fournisseur à ces commandes.

Pour ce faire j'essaie d'utiliser la méthode GetOpenFileName mais rien n'y fait, le (début de) code suivant ne veut pas fonctionner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub bt_Devis_Selection_Click()
 
    Dim Selection_Devis As Variant
 
    Selection_Devis = GetOpenFilename(initialdir:="c:\")
 
End Sub

Je récupère une erreur : "Sub ou fonction non définie"

QQ1 peut-il me rafraichir la mémoire ?

Merci

[Tofalu]

Une piste

http://access.developpez.com/faq/?pa...#AffBoitDialog

[BSide]

Bonjour Tofalu,

merci pour ta réponse. J'avais préalablement pris le temps de visualiser une partie de ce que tu as envoyé.

Je suis surpris par la complexité de la solution proposée (la 1ere : "Afficher la boîte de dialogue Ouvrir..."). En effet, je me souviens avoir utilisé la méthode GetOpenFileName sous Excel sans toutes ces déclarations.
J'obtenais immédiatement la boîte de dialogue et pouvais sélectionner mon fichier.
J'ai l'impression que le code proposé re-programme qqch de déjà existant puisque GetOpenFileName est une méthode native contenue semble-t-il dans l'API.

Le O'Reilly pour Access parle d'une méthode : acbCommonFileOpenSave qui ne fonctionne pas non plus.
Cette méthode représente une sur-couche par rapport à l'API et devrait permettre de manipuler GetOpenFileName et SaveOpenFileName de façon uniforme.

Ce que je souhaite est simple :
- récupérer le chemin complet d'accès au fichier
- enregistrer cette information dans un champ de ma table au format Lien Hypertexte

Es-tu certain que ce que c'est tout ce que nous avons en rayon ?

[Tofalu]

La solution utilisant l'api windows est la meilleure (getopenfilename n'existant pas sous Access par défaut)

Et ce n'est pas compliqué. Tu colles le code dans le module et ensuite tu appelles la fonction comme dans l'exemple