Discussion :

[olivier45fr]

Bonjour,

je souhait enregistre en automatique par VBA mais je ne sais pas comment faire pour que dans le nom du fichier il recuper la "RéponseUtilisateur"

merci de votre aide

[TomDuBouchon]

Tu peux essayer ça:

Code :

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

ThisDocument.SaveAs("TADADA"&Application.VARIABLES.Item('nom de ton invite').Value&".rep")

[olivier45fr]

Voici la macro que j'ai mis

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
21
22
23
24
25
26
27
ub Send()
 
Dim strBOUserDocsPath As String
Dim strBOdocument As String
Dim Doc As Document
Dim DpVars As Variables
Dim dpvar As Variable
Dim txt As String
Dim txt1 As String
Dim a0 As String
Application.Interactive = True
Set Doc = Application.ActiveDocument
Set DpVars = Doc.Variables
txt = ""
For Each dpvar In DpVars
If txt = "" Then
txt = dpvar.Value
Else
txt1 = dpvar.Value
Debug.Print txt
End If
Next
a0 = "Traçablilité de la référence - " & txt & " - lot - " & txt1
strBOUserDocsPath = busobj.ActiveDocument.Path & "\" & "Fichier XLS\"
strBOdocument = a0
Application.ActiveDocument.SaveAs (strBOUserDocsPath & a0 & ".xls")
End Sub