Créer un nouveau document Word à partir d’Excel, VBA

Vous pouvez facilement créer un nouveau document Word à partir de zéro avec l’instruction de méthode Documents.Add associée à la variable objet de votre application Word. Par exemple, dans la macro précédente nommée ActivationDeWord, l’application Word a été déclarée comme Dim WordApp As Object. Vers la fin de cette macro, avant que les variables worddoc et WordApp Object soient définies sur Nothing, vous pouvez insérer cette ligne pour ajouter un nouveau document à cette instance ouverte de Word:

WordApp.Documents.Add

Vous créerez généralement un nouveau document Word dans le but de contenir une sorte de récit ou de données, ce qui signifie que vous souhaitez enregistrer votre nouveau document. En exploitant de nombreux processus qui ont été traités dans la macro ActivationDeWord, voici un exemple de macro qui crée et enregistre un nouveau document Word:

Sub CreationDocWord()

' Déclarez les variables Object pour l'application Word

' et le nouveau document.

Dim WordApp As Object, WordDoc As Object

'L’ Instruction On Error si Word n'est pas déjà ouvert.

On Error Resume Next

' Activez Word s'il est déjà ouvert.

Set WordApp = GetObject(, "Word.Application")

If Err.Number = 429 Then

Err.Clear

' Créez une application Word si Word n'est pas déjà ouvert.

Set WordApp = CreateObject("Word.Application")

End If

' Assurez-vous que l'application Word est visible.

WordApp.Visible = True

' Activez l'application Word.

WordApp.Activate

' Créez votre nouveau document Word.

Set WordDoc = WordApp.Documents.Add

' Enregistrez votre nouveau document Word dans un chemin de dossier.

WordDoc.SaveAs "C:\mesfichiers\monNouveauDocWord.docx"

' Libérez la mémoire système réservée aux deux variables Object.

Set WordApp = Nothing

Set WordDoc = Nothing

End Sub

 

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x