Discussion :

[Ricou.13]

Bonjour à tous!!!
Je travail sous ACCESS 2002.
je vous explique mon probleme:
je stock dans une table le chemin de fichier divers (.doc, .xls,...) mais je n'arrive pas a les ouvrir a partir d'un formulaire. J'ai essayé la fonction:shellexecute mais elle me renvoi des messages d'erreurs.
Comment dois-je faire?
J'ai cherché sur le forum mais je n'ai rien trouvé qui ne marche pour moi.
Merci d'avance

Ricou

[Florider]

Si c'est pour ouvrir des fichiers Microsoft .doc (Word) et .xsl (Excel) il vaut mieux utiliser des commandes specifiques qui permettent de controler ces applications par le code (automation).
Mais pour ca tu devrais trouver ton bonheur dans la FAQ Access ou bien sur le forum car il ya déjà des sujets qui traitent de cela
exemple:
http://www.developpez.net/forums/vie...t=ouvrir+excel

Sur celui-ci tu auras même la réponse à ta commande Shell()

[Etienne Bar]

ShellExecute fonctionne parfaitement.

Montre nous ton code et indique le message d'erreur !

[Ricou.13]

Merci les gars, j'ai refais la fonction shellexecute et maintenant ça fonctionne.
Pour ceux que ça interresse je met mes sources:

Code :

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

1
2
3
4
5
6
7
8
9
'Mettre la declaration de la fonction dans un module:
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
'La lancer en appuyant sur un bouton:
Private Sub Commande0_Click()
Dim lapi As Long
a$ = "d:\toto.doc"
lapi = ShellExecute(Me.hwnd, "open", a$, vbNull, vbNull, 5)
End Sub

Voila, voila, je vous remercie pour vos réponses.