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