(VBA): message d'erreur avec Shell sous access [Résolu]

Messages postés
9
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
23 février 2006
- - Dernière réponse : 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"
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
940
Date d'inscription
jeudi 20 février 2003
Statut
Membre
Dernière intervention
3 février 2011
5
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 123 internautes nous ont dit merci ce mois-ci