Discussion :

[ahmedpa]

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 :

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
 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()

[clementmarcotte]

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 :

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

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 :

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

AppWord.Quit()

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

[ahmedpa]

merci ça marche !