(VBA): message d'erreur avec Shell sous access

Résolu
Djobi Djoba Messages postés 9 Date d'inscription vendredi 13 mai 2005 Statut Membre Dernière intervention 23 février 2006 - 14 juin 2005 à 21:37
tbbuim1 Messages postés 940 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 3 février 2011 - 15 juin 2005 à 09:31
Bonjour

Novices en VBA, je cherche à ouvrir un fichier .doc en cliquant sur un bouton de commande depuis un formulaire access2003.
En consultant les post du forum, j'ai vu la commande Shell et la syntaxe:
Shell ("C:\Program Files\Microsoft Office\Office 10\Winword.exe F:\Word\retardpai.doc"), vbNormalFocus

Or quand je clique sur le bouton en question apres l'avoir configuré, un message d'erreur apparaît:

"MaBase ne peut pas trouver la macro 'Shell("C:\....
La macro ou son groupe de macro n'existe pas ou la macro est nouvelle mais n'a pas ète enregistrée"

Que dois-je faire? Merci siou plait

N'y connaissant que peu de choses la fonction shell, shellExecute sont par défaut dans VBA de Access???

Note Microseft Jet 4.0 SP8 est installé et mon niveau de sécurit`pour macro est "faible"

1 réponse

tbbuim1 Messages postés 940 Date d'inscription jeudi 20 février 2003 Statut Membre Dernière intervention 3 février 2011 9
15 juin 2005 à 09:31
Il faut d'abord déclarer l'API ShellExecuteA dans un module comme ceci

Public Declare Function ShellExecuteA Lib
"shell32" (ByVal hwnd As Long, ByVal LPFile As String, ByVal PathFile
As String, ByVal Other As String, ByVal Other2 As String, ByVal Param
As Long) As Long


Pour ouvrir un fichier lancer cette commande

rep = "F:\Word\retardpai.doc"

ShellExecuteA 0, "Open", rep, "", "", 10


TBBUIM
3