Discussion :

[Mailgifson]

Bonjour à tous,

J'aimerais créer un bouton sur un formulaire Access qui ouvre un document Word quand on clic dessus.

J'avoue que je suis un peu perdu avec le nouveau système de macro d'Office.

Quelqu'un aurait-il une idée et un petit moment pour m'aider à créer cela ?

Merci
Mailgifson

[Cinesra]

Salut,

Il faut utiliser la fonction ShellExecute (à définir dans un module au préalable) avec l'option Open et le chemin d'accés à ton fichier, sur l'événement sur clic de ton bouton.

[Dolphy35]

Salut,

Tu peux directement ouvrir Word par Automation.

Code issu de la FAQ http://access.developpez.com/faq/?page=Word#DesactMacro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub OpenDocument()
Dim appwd As Word.Application
Dim strNomFichierWord As String
 
  strNomFichierWord = "C:\Un document.doc"
  Set appwd = CreateObject("Word.Application")
  With appwd
      .visible = True
      .Documents.Open strNomFichierWord
      .Activate
  End With
End Sub

@+

[Mailgifson]

Oui, j'ai trouvé pas mal d'exemples avec cette fonction, mais je ne vois pas où je peux saisir cette commande dans Access 2010.

Un clic droit sur mon bouton, me permet d'accéder "Créer code évènement", mais là impossible de faire fonctionner le code.

Quand je fais créer macro, même problème... Access ne me laisse pas saisir mon propre code, je dois passer par l'interface "simplifiée".

Quand je vais dans "Outils de base de données" / "Visual Basic", j'arrive bien à créer ma macro, mais elle n'est pas reconnu dans le reste de projet.

Enfin voilà, je suis un peu pommé là...

[Cinesra]

Peut être que tu as bloqué le code lors de l'ouverture d'Accès quand il te demande si tu veux autoriser ou non le code VBA (enfin je ne sais plus comment c'est tourné)?

Méfis toi aussi de bien vérifier l'intitulé du début de ton code, que ce soit la bonne instruction de départ. Par exemple:

Code :

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

Private Sub Bouton_click()

et pas:

Code :

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

Private Sub Bouton_BeforeUpdate(Cancel As Integer)

Ciao

[Mailgifson]

Mon problème, c'est que je ne sais pas ou entrer ce code.

[Heureux-oli]

Salut,

En mode création de ton Formulaire, tu ajoutes un bouton.
Tu n'utilises pas l'assistant qui te propose une multitude d'actions en cliquant sur Cancel ou Annuler.

Ensuite, dans les propriétés du nouveau bouton que tu viens de faire, tu dois trouver l'évènement SurClic.
Lorsque tu te places sur cette ligne, un bouton avec trois points apparaît.
Tu cliques sur ce bouton et tu choisis ensuite Générateur de Code.

Tu auras

Code :

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

1
2
3
Private Sub TonBouton_OnClic()
 
End Sub

Il ne te reste qu'à y mettre le code.

[Mailgifson]

Je n'ai pas "Générateur de Code"

[ClaudeLELOUP]

Bonjour,

ouvre le formulaire en mode création.
Double-clique sur le bouton ---> afficher les propriétés
Choisis l'onglet Evénement
double-clique sur Sur clic ----> [Procédure événementielle] apparaît
Clique sur le bouton avec les ... à droite

Tu y es ! C'est l'éditeur de code.

Entre la 1ère et la dernière ligne

Code :

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

1
2
3
4
5
Private Sub TonBouton_Click()
 
---->ici
 
End Sub

tu pourrais, par exemple utiliser ceci

Code :

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

Shell "C:\WINDOWS\EXPLORER.EXE " & LeChemindetonFichier, vbNormalFocus

qui équivaut à un double-clic sur la nom d'un fichier pour provoquer son ouverture avec le programme qui lui est associé.

C'est la solution que te proposait Cinesra dans un post précédent.

Ton code devient donc

Code :

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

1
2
3
4
Private Sub TonBouton_Click()
 
Shell "C:\WINDOWS\EXPLORER.EXE " & LeChemindetonFichier, vbNormalFocus
End Sub

Tu reviens à ton formulaire ... tu essaies ... et tu viens nous redire que ça marche.
Bonne journée.

[Mailgifson]

Je vais devenir fou... vous allez me prendre pour un débile, mais ça ne marche pas :


OK > ouvre le formulaire en mode création.
OK > Double-clique sur le bouton ---> afficher les propriétés
OK > Choisis l'onglet Evénement
OK > double-clique sur Sur clic ----> [Procédure événementielle] apparaît
OK > Clique sur le bouton avec les ... à droite


KO> Tu y es ! C'est l'éditeur de code.

Moi, je me retrouve sur cet écran:
http://www.cijoint.fr/cjlink.php?fil...cijNnauJVZ.png

Et là, pas moyen de saisir le code que je veux.

Pour info : Le menu "Création" / "Convertir les macros en Visual Basic" est grisé.

[Heureux-oli]

Salut,

Tu es en mode page.

[Mailgifson]

Je n'ai que "Mode Formulaire" et "Mode Page" sur les formulaires

[Heureux-oli]

Salut,

Dans le déroulant, tu as Formulaire, Page, Création.

[Mailgifson]

Effectivement, j'ai bien les 3 modes de disponibles, quand je fais un nouveau projet.

Mais dans le projet existant, le "mode création" n'est pas disponible... bizarre !

[Mailgifson]

Bon, j'ai récréé mon projet... et tout fonctionne parfaitement maintenant

Merci à tous !

[Heureux-oli]

Salut,

Essaies de réparer le premier projet pour voir ?

[Mailgifson]

Trop tard