Paramétrage dans une fonction [Résolu]

[edsaar]

Bonjour,

Je souhaite récupérer un fichier dans un dossier (en pointant dessus sans l'ouvrir) à partir d'un lien hypertexte connu.
Pour cela, en cherchant bien, j'ai trouvé la fonction idoine qui fonctionne:

Code :

Shell("Explorer.EXE /SELECT,C:\chemin du fichier.doc", 6 ).

Mon souci est que ce "chemin du fichier" est évolutif. Il est récupéré dans une table Acces (d'une seule ligne) générée à l'issue d'une requête.

Mon faible niveau en VBA ne me permet pas d'insérer dans le code précédent ce paramétrage évolutif.

Ma question: comment insérer dans mon code le "chemin du fichier" que je dois récupérer dans une table (que j'appellerai table1) ? L'idée étant de faire évoluer le "chemin du fichier" au niveau de cette table et d'avoir une ligne de code allant le récupérer directement dans cette table.

Merci pour vos idées.

[mout1234]

Bonjour,

S'agissant d'une table composée d'une seule ligne, et supposant que le champ contient un chemin valide..., cela devrait fonctionner avec une DLookup.
QQ chose du genre:

Code :

1
2
3
4
5
6
 
Dim sDoc as String
sDoc = DLookup("Chemin","Table1")
 
 .... Shell("Explorer.EXE /SELECT," & sDoc, 6 )
....

[edsaar]

Bravo merci beaucoup d'avoir consacré un peu de temps. Cela fonctionne !