FAQ MS-Access
FAQ MS-AccessConsultez toutes les FAQ
Nombre d'auteurs : 140, nombre de questions : 926, dernière mise à jour : 15 juin 2021
Sommaire→VBA→Interaction avec d'autres applications→Applications Office→Word
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 = NothingNe 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 SubCréé 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 SubIl 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