Discussion :

[cjpneros]

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]

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]

merci de la rapidité de la réponse

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

[Heureux-oli]

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.

[cjpneros]

encore merci
ci-joint fichier pour mieux comprendre

[Heureux-oli]

Salut,

Tu n'as pas modifié ton code avec les explications que je t'ai données

[cjpneros]

salut aujourd'hui est un autre jour

si j'ai mis ....mais cela ne fonctionne pas ..
j'ai essayé de bidoullé mais sans grand succès c'est pourquoi que j'ai mis mon fichier en pièce jointe pour mieux comprendre ma problématique..
encore une merci de m'aider

[Heureux-oli]

Salut,

Pourrais-tu expliquer ce que tu ne comprends pas et où tu coinces ?

Code :

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

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

Mais cependant, il manque beaucoup de chose à ton code.
Tes variables ne sont pas définies !

http://heureuxoli.developpez.com/office/word/vba02/

[cjpneros]

apres beaucoup de réflexion et de et j'ai trouvé la solution

merci à heureux au lit

affaire :

[cjpneros]

A ye moi avoir prouvé tout seul comme un grand