Ouvrir et renommer un fichier word depuis un template

Bonjour à tous,

J'ai un peu du mal à utiliser (et comprendre) les fonctions qui permettent de modifier des fichiers word via un code VBA sous excel.

L'objectif est assez simple :

A la racine d'un dossier j'ai un fichier template.

Dans ma feuille excel, je clique sur un bouton qui ouvre une fenêtre de saisie où je rentre le nom d'un projet et la date.

Après avoir validé les informations, j'aimerai que mon code réalise une copie de mon template enregistrée sous le nom que je viens de lui donner.

j'ai été fouiller dans la base de donnée excel ainsi que sur différents forum, ça coince toujours :/...

je sais qu'il existe une fonction SaveCopyAS ( trouvé via docs.microsoft) mais je n'arrive pas l'implémenter.

Quelqu'un peut-il me débloquer ?

D'avance merci de votre aide,

Axel.

code :

Private Sub CommandButton_Ajouter_Click()

'ouvrir le fichier template

Dim appWrd As Word.Application
Dim docWord As Word.Document
Set appWrd = CreateObject("Word.Application")
appWrd.Visible = True
Set docWord = appWrd.Documents.Open("C:\Users\********\Documents\Outil intégré\template.doc", ReadOnly:=False)

'renommer le fichier template 

Dim NewName As String
NewName = TextBox_Nom.Value
ActiveDocument.SaveAs FileName:=NewName, FileFormat:=wdFormatDocument

'Dim FileName As Variant
'FileName = TextBox_Nom.Value
'Word.Application.Documents.SaveCopyAs (FileName)

'on remet les valeurs du textbox à 0

TextBox_Nom.Value = ""
TextBox_Date.Value = ""

End Sub

Bonsoir,

Il n'y a pas besoin d'ouvrir le fichier, une simple copie du fichier suffit, en lui donnant le nom qu'on souhaite.

Ci-joint une proposition à adapter

Bouben

144copiertemplate.xlsm (15.61 Ko)

Bonjour Bouben,

merci pour ta réponse.

Je m'excuse de faire un post à rallonge mais je n'arrive pas à éditer le chemin d'accès, ce qui me renvoie le message d'erreur que tu as programmé.

Y a t'il quelque chose auquel je dois faire attention ?

EDIT : j'ai trouvé !

il faut bien faire attention où placer le backslash :

sRepertoire = "C:\Users\vanloockea\Documents\Outil intégré\Template Word\"

 sTemplate = "test.doc"

Un tout grand merci pour ton aide en tout cas !

PS : je regarde à modifier ton code, actuellement le nouveau fichier prend comme nom "Template Word" + le nouveau que je lui donne.

je vais essayer de débuger ça de mon coté !

bonne journée à toi !

EDIT 2 : problème résolu aussi, comme je le disais, faut faire gaffe où on tape le backslash !

Rechercher des sujets similaires à "ouvrir renommer fichier word template"