Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access publipostage

publipostage

12 réponses
Avatar
URIANE
Bonsoir,
J'ouvre un formulaire en création ou modification, attitré à un individu
avec nom_prénom adresse, ensuite dans un champs "mémo" je vais taper un
courrier sans formule de politesse ni d'introduction, j''ai 4 lettres types
différentes qui sont liées par une requête à mon formulaire, la condition est
que le champs courrier doit être "vrai", pour le moment je procède par lien
hypertexte, je clic sur le type de lettre désiré, qui va s'ouvrir dans word
et il me reste ensuite à cliquer pour effectuer mon publipostage vers mon
imprimante..Je souhaite ne plus pratiquer avec le lien hypertexte mais un btn
par exemple et faire le publipostage vers mon imprimante sans ouvrir word,
directement est-ce possible ??????
Si oui peut-on me donner la procédure à suivre.
Merci
--
Uriane
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
URIANE
EUREKA ! mon sauveur, mille fois merci......
A+
--
Uriane



Voici le code :
...


Transforme comme suit:

'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 ("c:lettre_type" & Me.lst_type)

'Diriger le publipostage vers un nouveau document

' Exécute la fusion (le publipostage)
.ActiveDocument.MailMerge.Execute

' Imprime en premier plan (l'exécution est suspendue)
.ActiveDocument.PrintOut False

' Ferme le document fusionné
.ActiveDocument.close wdDoNotSaveChanges

' Ferme le document de publiposatge
.ActiveDocument.close wdDoNotSaveChanges

' Ferme Word
.Quit

End With
' Libére l'objet
Set wdapp = Nothing

End Sub

J'en ai profité pour ajouter quelques commentaires. C'est mieux ?






Avatar
Gilles MOUGNOZ
EUREKA ! mon sauveur, mille fois merci......
A+
--
Uriane


Tout de suite les grands mots...
Sauvons le monde, chacun à notre niveau, et il n'en sera que plus beau !
(en plus ça rime)

Au plaisir

1 2