Discussion :

[gandolfi]

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 :

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

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

[gandolfi]

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

Code :

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

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