Enregistrement automatique suite publipostage depuis UserFor

Bonjour,

J'ai un formulaire Userform qui me rempli automatiquement un classeur excel et réalise un publipostage mais maintenant je n'arrive pas à faire enregistrer automatiquement ce publipostage.

Conditions :

Selectionner la derniere ligne rempli dans excel.

Mettre la valeur de la cellule A de la derniere ligne remplie dans le titre de l'enregistrement.

L'utilisateur de l'userform ne doit pas voir le .doc créée avec le publipostage.

Une solution ? Merci

Voici mon code :

Private Sub commandButton9_Click()
'Recherche de la dernière ligne de la colonne B pour le remplissage
Dim drligne As Long
drligne = [B:B].Find("*", , , , 1, 2).Row + 1

'*******************************************************************
' ************ Remplissage des valeurs sans conditions *************
Range("B" & drligne) = Dateappel
Range("C" & drligne) = Heureappel 'Heure d'appel:
Range("D" & drligne) = ListBox1 'Etat Tranche
Range("I" & drligne) = Refpont 'Repère fonctionnel
Range("J" & drligne) = Demandeur 'Demandeur
Range("K" & drligne) = Entrepriseutilisatrice 'Entreprise
Range("L" & drligne) = Chargevide 'Charge/Vide
Range("M" & drligne) = Opérationencours 'Opérations
Range("N" & drligne) = NomsTechs 'Techs
Range("O" & drligne) = Heuredébut 'Heure début
Range("P" & drligne) = Constat 'Constat
Range("R" & drligne) = Diag 'Diag
Range("S" & drligne) = Actionsréalisé 'Dép
Range("T" & drligne) = Aprévoir 'Actions à prévoir
Range("U" & drligne) = Pontdispo 'Dispo sans MTI
Range("V" & drligne) = MTIposé 'MTI posé
Range("Y" & drligne) = InterlocuteurEDFFIN 'EDF fin d'intervention
Range("Z" & drligne) = HEUREAPPELFIN 'Heure appel fin
Range("AB" & drligne) = HeureFin 'Heure fin intervention
Range("W" & drligne) = NomsiMTI 'Nom EDF MTI
Range("AL" & drligne) = DateDébut 'Date de début
Range("AM" & drligne) = DateFin 'Date de fin

'pour créer le publipostage

Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("******************10 DEPANNAGE\Fiche-dep.doc")

wrdApp.ShowMe            ' pour afficher le document
 wrdApp.Visible = True

With wrdDoc
wrdDoc.Bookmarks("Date_de_la_demande").Range.Text = Me.Dateappel.Value
wrdDoc.Bookmarks("Actions_à_prévoir").Range.Text = Me.Aprévoir.Value
wrdDoc.Bookmarks("AT_TEM").Range.Text = Me.ListBox1.Value
wrdDoc.Bookmarks("Charge_Vide").Range.Text = Me.Chargevide.Value
wrdDoc.Bookmarks("Constat").Range.Text = Me.Constat.Value
wrdDoc.Bookmarks("Demandeur").Range.Text = Me.Demandeur.Value
wrdDoc.Bookmarks("Diag").Range.Text = Me.Diag.Value
wrdDoc.Bookmarks("Dépannage").Range.Text = Me.Actionsréalisé.Value
wrdDoc.Bookmarks("Entreprise_Utilisatrice").Range.Text = Me.Entrepriseutilisatrice.Value
wrdDoc.Bookmarks("Fin_inter_edf").Range.Text = Me.InterlocuteurEDFFIN.Value
wrdDoc.Bookmarks("Heure_appel_après_intervention").Range.Text = Me.HEUREAPPELFIN.Value
wrdDoc.Bookmarks("Heure_de_début").Range.Text = Me.Heuredébut.Value
wrdDoc.Bookmarks("Heure_de_fin_dintervention").Range.Text = Me.HeureFin.Value
wrdDoc.Bookmarks("Heure_de_la_demande").Range.Text = Me.Heureappel.Value
wrdDoc.Bookmarks("MTI_posé").Range.Text = Me.Dateappel.Value
wrdDoc.Bookmarks("Numéro_de_demande").Range.Text = Me.Dateappel.Value
wrdDoc.Bookmarks("Opération_en_cours").Range.Text = Me.Opérationencours.Value
wrdDoc.Bookmarks("Pont_disponible_sans_MTI").Range.Text = Me.Pontdispo.Value
wrdDoc.Bookmarks("RF").Range.Text = Me.Refpont.Value
wrdDoc.Bookmarks("Techniciens").Range.Text = Me.NomsTechs.Value
wrdDoc.Bookmarks("MTI_Personne_informée").Range.Text = Me.NomsiMTI.Value
wrdDoc.Bookmarks("DateDébut").Range.Text = Me.DateDébut.Value
wrdDoc.Bookmarks("DateFin").Range.Text = Me.DateFin.Value

.Protect wdAllowOnlyFormFields, True

End With

ActiveWorkbook.Close SaveChanges:=True 'Pour sauvegarder le classeur

End Sub

Bonjour,

Je n'ai toujours pas de solution a mon problème, quelqu'un peut m'aider ?