OVH Cloud OVH Cloud

access et visio

2 réponses
Avatar
marcum
Bonjour

je voudrais ouvrir un fichier visio directement depuis un bouton Access.
J'arrive à lancer Visio mais pas à ouvrir le fichier J'obtiens le message
d'erreur "Propriété ou méthode non gérée par cet objet"
Voici mon code
Dim stAppName As String
Dim strchemin As String
Dim applicationVisio As Object

Set applicationVisio = CreateObject("Visio.Application")
strchemin = Me!txtRepertoire & "\" & Me!txtLeFichier
applicationVisio.Open (strchemin)

où txtRepertoire contient le chemin et txtLeFichier le nom de fichier
le repertoire ou se trouve le fichier est différent de celui de Visio.exe
bien sur
Merci pour votre aide

2 réponses

Avatar
3stone
Salut,

"marcum"
| je voudrais ouvrir un fichier visio directement depuis un bouton Access.
| J'arrive à lancer Visio mais pas à ouvrir le fichier J'obtiens le message
| d'erreur "Propriété ou méthode non gérée par cet objet"
| Voici mon code
| Dim stAppName As String
| Dim strchemin As String
| Dim applicationVisio As Object
|
| Set applicationVisio = CreateObject("Visio.Application")
| strchemin = Me!txtRepertoire & "" & Me!txtLeFichier
| applicationVisio.Open (strchemin)
|
| où txtRepertoire contient le chemin et txtLeFichier le nom de fichier
| le repertoire ou se trouve le fichier est différent de celui de Visio.exe
| bien sur


regarde l'aide sur :

Application.FollowHyperlink


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Avatar
marcum
bonjour et merci pour cette aide qui a résolu mon problème

"3stone" a écrit dans le message de news:
%23Ui$S$$
Salut,

"marcum"
| je voudrais ouvrir un fichier visio directement depuis un bouton Access.
| J'arrive à lancer Visio mais pas à ouvrir le fichier J'obtiens le
message
| d'erreur "Propriété ou méthode non gérée par cet objet"
| Voici mon code
| Dim stAppName As String
| Dim strchemin As String
| Dim applicationVisio As Object
|
| Set applicationVisio = CreateObject("Visio.Application")
| strchemin = Me!txtRepertoire & "" & Me!txtLeFichier
| applicationVisio.Open (strchemin)
|
| où txtRepertoire contient le chemin et txtLeFichier le nom de fichier
| le repertoire ou se trouve le fichier est différent de celui de
Visio.exe
| bien sur


regarde l'aide sur :

Application.FollowHyperlink


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/