FAQ MS-AccessConsultez toutes les FAQ

Nombre d'auteurs : 140, nombre de questions : 926, dernière mise à jour : 17 mars 2013 

 
OuvrirSommaireVBAInteraction avec d'autres applicationsApplications OfficeWord

Pour lancer un publipostage à partir d'un bouton, il suffit de mettre le code suivant dans la propriété de clic du bouton :

 
Sélectionnez

' Voici pour la déclaration du code :
Dim wdapp As Word.Application

' Démarrer Word
Set wdapp = CreateObject("Word.application")
With wdapp
       .Visible = True

      ' Ouvrir le document
      .Documents.Open "Chemincompletdudocumentwordàouvrir"

      ' Diriger le publipostage vers un nouveau document
     .ActiveDocument.MailMerge.Execute
End With

' Fermer et libérer les objets
Set wdapp = Nothing 

Ne pas oublier de cocher dans le menu Outil/Références, la bibliothèque Microsoft Word X Object Library (avec x = 8 pour Excel 97, x = 9 pour Excel 2000, x = 10 pour Excel XP, x = 11 pour Excel 2003).

Créé le 3 septembre 2004  par Coin
 
Sélectionnez
Word.Application.Run MacroName:="nom macro"
Créé le 17 septembre 2004  par Team Access

Ceci est possible en utilisant Automation par exemple.

Après avoir ajouté une référence Microsoft Word à votre projet :

 
Sélectionnez

Sub imprimer()
Dim oApp As New Word.Application
oApp.Documents.Open "D:\test.doc"
oApp.PrintOut
oApp.Quit
Set oApp = Nothing
End Sub
Créé le 20 novembre 2005  par Tofalu

Vous pouvez ajouter une propriété DisableAutoMacros comme ceci :

 
Sélectionnez

Sub OpenDocument()
Dim appwd As Word.Application
Dim strNomFichierWord As String
 
  strNomFichierWord = "C:\Un document.doc"
  Set appwd = CreateObject("Word.Application")
  With appwd
      .WordBasic.DisableAutoMacros 1 '0 pour activer
      .Visible = True
      .Documents.Open strNomFichierWord
      .Activate
  End With
End Sub

Il faut toutefois que le niveau de sécurité soit au maximum à Moyen et que la macro à désactiver soit une AutoOpen().

Créé le 20 novembre 2005  par argyronet
  

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2013 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.