Discussion :

[franckm95]

Bonjour à tous,

Je fais en ce moment un programme qui fait des calculs sur une feuille excel puis un bouton permet d'afficher un Userform.
Ce Userform rempli un document word prédéfini.

Mon soucis c'est que ces documents word on pour nom Document1 , Document2.
Je voudrais qu'ils prennent le nom d'un textbox du Userform.

Je vous prie de bien vouloir m'aider .

[Philippe Tulliez]

Bonjour,
Il vous suffit de faire un SaveAs du document Word, qui je suppose au départ est ouvert depuis un modèle, en lui donnant comme nom la valeur du contenu du TextBox (Propriété Value de celui-ci)

Pour obtenir une réponse plus pertinente, merci de publier le code qui vous permet de remplir le document Word au départ de votre UserForm

[franckm95]

Bonjour M. Tuliez,

Je vois envoie ci-dessous le code qui me permet de générer le document word

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
 
Private Sub valider_Click()
 
Set ww = CreateObject("word.application")
ww.Visible = True
 
'CreateObject ("word.application") crée une nouvelle occurrence de l’objet Word Application
 
'On appelle cette application ww
 
ww.Visible = True 'permet de visualiser Word (sinon, Word fonctionnerait en tâche de fond invisible)
Set newdoc = ww.Documents.Add(Template:="C:\Documents\Modèles Office personnalisés\CP.docx")
 
'Dim nom As Range
Set nom = newdoc.bookmarks("nom").Range
nom.Text = Me.nom1.Value
 
End Sub

[franckm95]

J'ai reussi à faire .
Merci M. Tulliez