AUDREYPHIL
XLDnaute Nouveau
Bonjour,
je tente de créer une macro sous Excel pour pouvoir lancer un publipostage.
J'ai ma base de données Excel, et j'ai mon document de publipostage word.
J-aimerai que quand je clique sur le bouton Enrgistrer cela me lance le publipostage dans word.
j'ai deja réussi à ce que cela m'enregistre ma base de données et m'ouvre WOrd, mais je n'arrive pas à faire la macro qui me lancerai le publipostage sachant que j'ai une fenetre de commande SQL .
Je voudrais automatiser cela. pourriez vous m'aider?
voila ou j'en suis
Sub EnrgetFermer()
'
' Macro1 Macro
'
ActiveWorkbook.Save
ChDir "C:\Users\audre\Documents\Factures groupes"
ActiveWorkbook.SaveAs Filename:=[D2].Value
Set wordApp = CreateObject("word.Application")
wordApp.Visible = True
Application.WindowState = xlMinimized 'reduit la taille de xcel'
Application.Quit 'ferme l'application'
Application.DisplayAlerts = False
End Sub
Sub macro1() 'ouvre word et le document cité'
Set wordApp = CreateObject("word.Application")
wordApp.Visible = True
wordApp.Documents.Open "C:\Users\audre\Documents\Factures groupes\FACTURE BB GROUP.docm"
Application.DisplayAlerts = True
End Sub
je tente de créer une macro sous Excel pour pouvoir lancer un publipostage.
J'ai ma base de données Excel, et j'ai mon document de publipostage word.
J-aimerai que quand je clique sur le bouton Enrgistrer cela me lance le publipostage dans word.
j'ai deja réussi à ce que cela m'enregistre ma base de données et m'ouvre WOrd, mais je n'arrive pas à faire la macro qui me lancerai le publipostage sachant que j'ai une fenetre de commande SQL .
Je voudrais automatiser cela. pourriez vous m'aider?
voila ou j'en suis
Sub EnrgetFermer()
'
' Macro1 Macro
'
ActiveWorkbook.Save
ChDir "C:\Users\audre\Documents\Factures groupes"
ActiveWorkbook.SaveAs Filename:=[D2].Value
Set wordApp = CreateObject("word.Application")
wordApp.Visible = True
Application.WindowState = xlMinimized 'reduit la taille de xcel'
Application.Quit 'ferme l'application'
Application.DisplayAlerts = False
End Sub
Sub macro1() 'ouvre word et le document cité'
Set wordApp = CreateObject("word.Application")
wordApp.Visible = True
wordApp.Documents.Open "C:\Users\audre\Documents\Factures groupes\FACTURE BB GROUP.docm"
Application.DisplayAlerts = True
End Sub