Discussion :

[liop49]

Bonjour,

J'ai un formulaire à partir du quel j'ouvre un fichier word précis, voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Ouvrir_Commande_Click()
 
Dim appwd As Word.Application
Dim strNomFichierWord As String
 
  strNomFichierWord = "\\Serveur-caill\documents\Ventes entreprises\Lettre Commande.doc"
  Set appwd = CreateObject("Word.Application")
  With appwd
      .WordBasic.DisableAutoMacros 0 '0 pour activer
      .Visible = True
      .Documents.Open strNomFichierWord
      .Activate
  End With
 
 
End Sub

Ca fonctionne bien sauf qu'à l'ouverture du word, il ne me pose pas la question si j'accèpe ou non le fait que le fichier word a pour source une table X. En effet, le fichier word me sert de publipostage et de fait il est lié à une table et également à une base de données.
Je ne sais pas si je suis suffisament clair mais pour résumé, mon problème est que le code m'ouvre bien mon fichier word mais les fonctions de publipostage ne fonctionnent plus.

Merci d'avance pour votre aide

Nini

[Tofalu]

Ici, la simple utilisation de ShellExecute (cf la FAQ) devrait suffir. Pas besoin d'automation

[liop49]

Je viens d'essayer mais ce ne marche pas car je ne dois pas mettre les codes au bon endroit.
Est ce que qq1 peut m'orienter ?

Voici ce que j'ai fais :

Code :

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

1
2
Option Explicit
Private 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

=> j'ai mis ce code dans un module

Code :

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

1
2
3
Public Sub Ouvrir_Commande_Click()
ShellExecute Me.hwnd, "open", "\\Serveur-caill\documents\Ventes entreprises\Lettre Commande.doc", "", CurrentProject.Path, 1
End Sub

=> ce code est relié au bouton de mon formulaire permettant d'ouvrir mon fichier word.

Résultat :
Il me met une erreur en disant que "seuls des commentaires peuvent aparaître après End Sub, End Function, ou End Property.

Merci d'avance pour votre aide

[liop49]

Tofalu ou quelqu'un d'autre, est ce que tu peux m'orienter un peu plus s'il te plaît ?

[liop49]

[Pitou5464]

est ce que tu as essaye en ne mettant que ce code sur le bouton? sans passer par un module?

Code :

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

1
2
3
Public Sub Ouvrir_Commande_Click()
ShellExecute Me.hwnd, "open", "\\Serveur-caill\documents\Ventes entreprises\Lettre Commande.doc", "", CurrentProject.Path, 1
End Sub

[liop49]

Bonjour,

Je viens d'essayer et cela ne fonctionne pas car il me dit "Erreur de compilation : Sub ou Function non définie" en sbrillant ShellExecute

Normal a priori, il faut que je déclare la fonction ShellExecute mais je ne sais pas comment ?

[Dolphy35]

Salut,

Tu as suivit l'exemple de la

http://access.developpez.com/faq/?pa...ier#GestionFic


Dolphy

[liop49]

Oui voir le post ci-dessus que je ré-explique.

Le code ci-dessous m'indique une erreur - je pense que je dois oublier qqchose ou alors il n'estpas mis dans un bon endroit

Code :

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

1
2
3
Private 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

[Dolphy35]

re,

mets ce code en haut de ton form juste en dessous de Option Compare Database


Dolphy

[liop49]

Merci ca fonctionne parfaitement