OVH Cloud OVH Cloud

Bonjour à tous

3 réponses
Avatar
Cestmoi
Je suis nouveau et j'ai acces 2003.
Voilà mon problème:

J'ai un fm et je voudrais y mettre un bouton de commande qui me dirigerais
vers une fiche word;
exemple:

ma base de donnée est dans le répertoire G:\CDS\CDS.mdb
La fiche où je dois aller est dans g:\CDS\fiches cursus\*.doc
Je voudrais que lorsque je suis dans: le fm Tout, l'enrgistrement X, et
quand je clique sur le bouton, il me dirige directement vers la fiches
cursus\X.doc
Si c'est pas possible alors qu'il me dirige vers le dossier qui contient les
fiches cursus.


--
Bien à vous.

3 réponses

Avatar
Gafish
Bonjour,

Cestmoi wrote:
ma base de donnée est dans le répertoire G:CDSCDS.mdb
La fiche où je dois aller est dans g:CDSfiches cursus*.doc
Je voudrais que lorsque je suis dans: le fm Tout, l'enrgistrement X,
et quand je clique sur le bouton, il me dirige directement vers la
fiches cursusX.doc


Regarde cette fonction là qui va te permettre d'ouvrir un document word avec
un bouton :
http://www.mvps.org/accessfr/apis/api0018.htm
Tu mets cette fonction dans un module public et tu peux l'appeler ensuite de
faocn classique n'importe où comme suit :
fHandleFile("C:monRepmonDoc.doc", Win_NORMAL)
Et là, rien ne t'empèche de mettre le chemin du document en paramètre.
Imaginons que tu as une zone qui s'appele zoneX, tu peux faire comme suit :
fHandleFile("C:monRep" & Me.zoneX & ".doc", Win_NORMAL)

Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Cestmoi
Salut à tous,
Voilà j'ai mis le code, tel que télécharger, dans le Module 1 que j'ai
renommé fHandleFile.
Voici dans la fm:

Private Sub Commande6_Click()
On Error GoTo Err_Commande6_Click

Dim oApp As Word.Application

Set oApp = CreateObject("Word.Application")
oApp.Visible = True
fHandleFile("G:CDSfiches cursus", WIN_NORMAL)


Exit_Commande6_Click:
Exit Sub

Err_Commande6_Click:
MsgBox Err.Description
Resume Exit_Commande6_Click

End Sub
----------------------------------------------
Là ça bloque il me dit:
erreur de compilation
erreur de syntaxe
j'avoue que je ne comprend plus rien je ne vois pas ???
Merci de m'aider :))
--
Bien à vous.
"Gafish" a écrit dans le message de news:

Bonjour,

Cestmoi wrote:
ma base de donnée est dans le répertoire G:CDSCDS.mdb
La fiche où je dois aller est dans g:CDSfiches cursus*.doc
Je voudrais que lorsque je suis dans: le fm Tout, l'enrgistrement X,
et quand je clique sur le bouton, il me dirige directement vers la
fiches cursusX.doc


Regarde cette fonction là qui va te permettre d'ouvrir un document word
avec

un bouton :
http://www.mvps.org/accessfr/apis/api0018.htm
Tu mets cette fonction dans un module public et tu peux l'appeler ensuite
de

faocn classique n'importe où comme suit :
fHandleFile("C:monRepmonDoc.doc", Win_NORMAL)
Et là, rien ne t'empèche de mettre le chemin du document en paramètre.
Imaginons que tu as une zone qui s'appele zoneX, tu peux faire comme suit
:

fHandleFile("C:monRep" & Me.zoneX & ".doc", Win_NORMAL)

Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr





Avatar
Gafish
Cestmoi wrote:
Salut à tous,
Voilà j'ai mis le code, tel que télécharger, dans le Module 1 que j'ai
renommé fHandleFile.
Voici dans la fm:

Private Sub Commande6_Click()
On Error GoTo Err_Commande6_Click

Dim oApp As Word.Application

Set oApp = CreateObject("Word.Application")
oApp.Visible = True
fHandleFile("G:CDSfiches cursus", WIN_NORMAL)


Exit_Commande6_Click:
Exit Sub

Err_Commande6_Click:
MsgBox Err.Description
Resume Exit_Commande6_Click

End Sub
----------------------------------------------



Quand il te dir "erreur de syntaxe", il te pointe quelle ligne ?
Déja je vois un souci ici
fHandleFile("G:CDSfiches cursus", WIN_NORMAL)
ton fichier n'a pas d'extension ?
Tu veux simplement ouvrir un document word ?
Si c'est le cas, cela suffit :

Private Sub Commande6_Click()
On Error GoTo Err_Commande6_Click

fHandleFile("G:CDSfiches cursus.doc", WIN_NORMAL)


Exit_Commande6_Click:
Exit Sub

Err_Commande6_Click:
MsgBox Err.Description
Resume Exit_Commande6_Click

End Sub


Arnaud
--
Charte du forum : http://users.skynet.be/mpfa/
Recherche dans les archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr