Discussion :

[kek's]

Bonjour à tous,

Je rencontre un petit soucis lorsque je veux ouvrir une pièce jointe qui est stockée dans ma base de données access.

J'utilise la fonction shellExecute() comme ceci :

Code :

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

Ret = ShellExecute(Me.hwnd, "open", rs("DOCUMENTATION.FILENAME"), "", CurrentProject.Path, 1)

mais lors de l'exécution la fonction renvoi l'erreur N°2 : "Fichier non trouvé".


J'ai donc essayé d'ouvrir autre chose avec cette fonction et tout marche très bien quand je donne un chemin précis.
ex :"C:\Documents and Settings\KGOUBE\Mes documents\Documents administratifs des projets\BD_STOCK V3\DE-S4-01 5 Cahier des charges C&tV.doc"

Comment dois-je faire pour ouvrir une PJ contenu dans la base ?

Si quelqu'un l'a déjà fait ça m'aiderai beaucoup

Merci

[nico84]

Bonjour,

Ceci marche bien chez moi :

Code :

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

ShellExecute 0&, vbNullString, rep & fic, vbNullString, vbNullString, vbNormalFocus

[kek's]

Bonjour nico84,

peux-tu juste m'expliquer ce que représente les valeurs du premier (0&) et du troisième argument (rep & fic) STP, car j'arrive pas à les identifier

Merci de ton aide

Kek's

[nico84]

0& j'en sais rien

"rep" et "fic" sont les variables qui contiennent respectivement le nom du répertoire et du fichier à ouvrir donc rep & fic = nom complet du fichier

J'ai aussi ce code dans un module :

Code :

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

1
2
3
4
5
'10.1 ************* ouverture de fichier avec son prog par défaut - sources :
'http://forum.lesite.fr/hfr/Programmation/VB-VBA-VBS/ouverture-fichier-commande-sujet_86188_1.htm
'http://msdn.microsoft.com/en-us/library/bb762153%28VS.85%29.aspx
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

[kek's]

Ah oooook

Merci de cette précision !
Par contre le seul soucis que j'ai c'est que dans mon cas je veux récupérer une pièce jointe de ma base ! donc je n'ai pas de répertoire ou de fichier à indiquer P
Est-ce que si on passe le chemin du fichier .accdb de la base access concernée ça marche ?

ça m'étonnerai beaucoup mais je vais tester et si tu vois une alternative n'hésites pas a m'en faire part

Merci

Kek's

[nico84]

[B]je veux récupérer une pièce jointe de ma baseKek's

Ca veut dire quoi exactement ?

rep & fic sont 2 champs d'une table de ma base... mais le fichier est stocké en dehors !

[kek's]

En fait ça veut dire que mes pièces jointes (docx, pdf,...) sont stockées dans la base de données directement ! Ca évite de stocker les fichiers à 2 endroits différents et quitte a avoir une base de données autant utiliser toutes ses fonctionnalités

Donc ce que je veux, c'est pouvoir récupérer cette PJ de la base de données pour l'ouvrir.

Tu vois mieux ce que je veux dire ?

Merci

Kek's

[nico84]

Je m'en doutais car je connaissais cette possibilité avec Oracle par exemple... mais je ne savais pas que c'était possible avec access
A partir de quelle version ? C'est quel type d'objet ?

Y a-t-il dans ce cas un moyen d'ouvrir le document sans passer par access ? J'imagine que non...

[kek's]

je travaille actuellement avec un version d'Access 2007 !

le type d'objet est "pièce jointe" composé de plusieurs propriétés tels que : FileName, FileData,...

En fait j'essaye d'ouvrir le document dans le but d'informatiser la rédaction de certains documents de mon entreprise.

Cette ouverture de document via Access est utilisé pour ouvrir les annexes que l'on veut lier au document rédigé.

Donc il n'y a pas d'autres moyens malheureusement

[nico84]

Ca me semble dangereux d'utiliser cette fonction alors que la base est limitée à 2 Go et les utilisateurs risquent de ne pas comprendre pourquoi ils ne voient pas leur doc dans windows (ou se faire des copies sauvages de partout )

Par contre dans l'absolu c'est plus fiable que ma méthode car si le doc est déplacé je ne le trouve plus...

Mais en dehors de ces considérations philosophiques, si la fonction existe il y a nécessairement les outils qui vont avec pour ouvrir les documents !

[kek's]

je suis entièrement d'accord avec toi Nico84 !

Maintenant comme tu l'as soulevé il y a ce problème de déplacement de fichiers qui peut arriver

Néanmoins cette solution serai beaucoup plus facile

En tout cas merci de ton aide et de tes conseils !

A+

Kek's