Aide relation word vb.net

Bonjour,

Je suis entrain de développer une petite application qui permet de générer un document word à partir d'un fichier word déjà existant.j'ai déjà créer la template word avec l'onglet quickpart du word et j'arrive pas à générer ensuite le nouveau document à partir de mon application.J'aimerais bien que vous m'aidiez s'il vous plait
Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Dim oWord As Microsoft.Office.Interop.Word.Application Dim oDoc As Microsoft.Office.Interop.Word.Document   'Start word Document template oWord = CreateObject("Word.Application") oWord.Visible = True oDoc = oWord.Documents.Add("C:\eclipsework\word.docx")   oDoc.Bookmarks.Item("num").Range.Text = TextBox1.Text     oDoc = Nothing oWord = Nothing GC.Collect() GC.WaitForPendingFinalizers() GC.Collect() GC.WaitForPendingFinalizers()     'All done Me.Hide()

---

Bonjour,

À vrai dire je n'ai pas trop compris ton code, et je suis retourné à la base, soit ton besoin de créer un nouveau document à partir d'un modèle. Or, c'est ce que petit bout de code fait.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub NouveauDocumentWord() 'Quand on pilote VBA-Word par automation, il faut utiliser en principe les valeurs 'numériques des constantes. Ici, je triche en attribuant une valeur à une variable 'du même nom que la constante, la valeur numérique équivalente. Dim wdFormatDocumentDefault As Integer = 16 Dim Modèle As String = "C:\Users\Clément Marcotte\Documents\CodeProjet.dotm" Dim AppWord As New Microsoft.Office.Interop.Word.Application AppWord.Visible = True Dim DocWord As Microsoft.Office.Interop.Word.Document = AppWord.Documents.Open("C:\Users\Clément Marcotte\Documents\CodeProjet.dotm", ) DocWord.SaveAs2(FileName:="C:\Users\Clément Marcotte\Documents\Understand how bitwise operators work.docx", AddToRecentFiles:=True, FileFormat:=wdFormatDocumentDefault) AppWord.Quit() AppWord = Nothing MessageBox.Show("terminé") End Sub

---

1) Il crée une nouvelle instance de Word.
2) Il utilise la collection Documents qui est indispensable pour ouvrir/ajouter un document WORD; de même manière que la collection Worksheets est indispensable pour ouvrir/créer un classeur Excel pour ouvrir le modèle
3) Il enregistre le modèle sous un autre nom
4) Il ferme Word.
5) Si tu veux garder Word ouvert, enlève cette ligne:

Code:

---

AppWord.Quit()

---

Évidemment, je te laisse corriger les chemins d'accès et les noms de fichiers

merci ça marche !