Discussion :

[jncoffy]

Bonjour

Je dispose d'un courier Word 2000 que je souhaite envoyer à des personnes. Ce courier est attaché à un tableau Excel 2000 qui contient la liste de ces personnes.
Je souhaite n'imprimer ce courier que pour les personnes pour lesquelles la colonne 'Convoc' est cochée par un x dans le tableau Excel.

Je sais faire ça sans problème à partir de Word. J'utilise simplement le menu 'Outils'-'Publipostage'.

Mais j'aimerai lancer l'impression de ce courier directement à partir d'un bouton de commande dans Excel. Pour cela il faut certainement que j'écrive une macro et que je l'affecte ensuite au bouton. Seul problème, je suis nul en VBA et je ne sais pas quel code écrire.

Quelqu'un pourrait-il m'aider svp ?

Jean Noël

[jncoffy]

J'ai résolu une partie de mon problème puisque j'arrive à ouvrir le document Word à partir d'Excel en utilisant le code ci-dessous ;

Code :

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

1
2
3
4
5
6
7
8
 
Sub Essai()
Dim Wrd As Object
Application.ScreenUpdating = False
Set Wrd = CreateObject("word.Application")
Wrd.Visible = True
Wrd.documents.Open ("F:\Mes Documents\Mes Cours\winword\eval1.doc")
End Sub

Par contre je ne sais pas comment lancer l'impression du document sachant que je veux imprimer le résultat de la lettre fusionnée et non la lettre type avec les noms de champs.

Si quelqu'un pouvait m'aider, ce serait sympa de sa part.

Merci d'avance

[jncoffy]

En fait le code indiqué ci-dessus ne fonctionne pas car, comme le document Word est une lettre type attachée au document Excel à partir duquel la macro s'exécute, , lorsque ce document s'ouvre, il ouvre également une nouvelle instance du document Excel.

Si quelqu'un aurait une idée...