Macro- recuperer valeur liste deroulante et case puis enregistrer le document avec ce nom

bonjour,

Je suis en train de creer un document type sous word.
La personne doit rentrer un titre de son choix et choisir un nom de categorie dans une liste deroulante.

Je voudrais en appuyant sur un bouton que le fichier soit enregistré avec "nom du titre - date" et que le chemin d'enregistrement soit un sous dossier ayant comme nom le nom de la categorie.

J'ai essayé de chercher sur le net les differnetes macros. Mais je bloque car il me dit "le membre de la collection requis n'existe pas". la liste déroulante a comme titre et balise "categorie"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub enregist()   Select Case ActiveDocument.FormFields("categorie").Result   End Select     MsgBox ActiveDocument.FormFields("categorie").Result   ChangeFileOpenDirectory ActiveDocument.Path ActiveDocument.SaveAs FileName:=ActiveDocument.FormFields("categorie").Result & Format(Date, "yy") & Format(Date, "mm") & Format(Date, "dd") & Format(Time, "hhmm") & ".docx" ' Application.Dialogs.Item(wdDialogFileSaveAs).Show     End Sub

---

Merci pour votre aide

j'ai écrit une macro qui marche à peu pres

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub cat()   chemin = ActiveDocument.Path MsgBox chemin   ChangeFileOpenDirectory ActiveDocument.Path & "/" & ActiveDocument.FormFields("cat").Result & "/" ActiveDocument.SaveAs FileName:=ActiveDocument.FormFields("cat").Result & "-" & Format(Date, "dd MMMM yyyy") & ".docx" ' Application.Dialogs.Item(wdDialogFileSaveAs).Show   MsgBox chemin   ChangeFileOpenDirectory chemin 'ActiveDocument.Close   Documents.Open ("categorie.docm")   'Application.Quit     End Sub

---