Sub Macro()
'
'définit "nom" comme étant la valeur du champ N°2 de la feuille de donnée utilisée dans le publipostage
nom = ActiveDocument.MailMerge.DataSource.DataFields(2).Value
'idem pour "prénom" en fonction de la valeur de la colonne n°3
'prénom = ActiveDocument.MailMerge.DataSource.DataFields(3).Value
'idem pour "consultation" en fonction de la valeur de la colonne n°6
'consultation_du = ActiveDocument.MailMerge.DataSource.DataFields(6).Value
ChangeFileOpenDirectory "C:\ton\chemin\dossiers\etc\" 'c'est le chemin ou va être enregistré ton fichier -- bien ajouter le "\" à la fin.
'Ci-dessous la commande qui enregistre ton fichier en incluant le champs "société" qu'on a défini plus haut
ActiveDocument.SaveAs FileName:=societe & ".doc", FileFormat:=wdFormatDocument
End Sub