cherche une macro de génération de nom de fichier

**cjpneros** · 20/01/2009, 13h25

bonjour à tous
je cherche une macro pour word
enregistrer un dot en doc avec un nom et une date et heure en sachant que le nom doit être récuperé dans un champ texte d'un formulaire "texnom"
merci ...car moi rien connaitre en VBA:
ci-dessous ma macro elle tourne mais je ne sais pas comment récupérer ce mot dans mon champ texnom pour le joindre comme nom de fichier? ex ( dupont dante et heure.doc) pour le moment ceae me fait formulaire date et heure.doc

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Enregistrer_Click()
Dossier = "c:\temp\"
RacineNomFichier = "formulaire"
 
 
Rem ActiveDocument.Tables(1).Cell(1, 2).Range.Text = Date & " " & Time
Rem ActiveDocument.FormFields("TxtNom").Result = "titi"
 
strDate = Format(Date, "dd-mm-yy") & "-" & Format(Time, "h-mm-ss")
Fichier = Dossier & RacineNomFichier & "-" & strDate & ".doc"
ActiveDocument.SaveAs FileName:=Fichier
ActiveDocument.Close
SetAttr Fichier, vbReadOnly
End Sub

**Heureux-oli** · 20/01/2009, 14h06

Salut,

Dans ton code, tu as déjà un morceau dans l'autre sens.

Code :

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

ActiveDocument.FormFields("TxtNom").Result = "titi"

Tu le fais dans l'autre sens :

Code :

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

1
2
 
stMonTexte = ActiveDocument.FormFields("TxtNom").Result

**cjpneros** · 20/01/2009, 14h39

merci de la rapidité de la réponse

mais cela ne change rien y a t il une autre modif à faire
merci

**Heureux-oli** · 20/01/2009, 15h01

Ne sachant pas comment est ton document, c'est assez difficile d'en dire plus.

Voilà, j'ai mis un exemple sur le forum.
A la fermeture, le document est sauvegardé en C:\Temp\ et avec le texte que tu auras mis dans le champ du formulaire.