Créer une macro à partir d'Excel vers Word

Bonjour à toutes te à tous,

Je souhaite créer une macro qui permettrait d'ouvrir un document Word à partir d'Excel.

Le document Word est situé toujours au même endroit et a toujours le même nom.

De plus je voudrais savoir s'il est possible de lancer une macro automatiquement à l'ouverture d'une feuille Excel et comment peut on fermer automatiquement un onglet Excel lorsque la macro est exécutée.

Merci d’avance de vos réponses.

Cordialement.

Xavier

Un exemple pour les 2 premières questions.

Option Explicit

Sub openWord()
    Dim wordApp As Object

    Set wordApp = CreateObject("word.Application")
    wordApp.documents.Open "C:\Temp\test.docx"
    wordApp.Visible = True
    Sheets("Feuil2").Delete
End Sub

Pour lancer la macro à l'ouverture du classeur : si la macro s'appelle openWord(), ça donne :

Option Explicit

Private Sub Workbook_Open()
    openWord
End Sub

Si vous voulez décortiquer le fichier contenant la macro il faudra procéder comme suit :

1) Créer le dossier c:\Temp sur votre disque dur et y sauvegarder un fichier Word nommé Test.docx
2) Ouvrir le fichier openWord.xlsx ci-dessous ; il doit ouvrir le fichier Test.docx et supprimer l'onglet "Feuil2" à l'ouverture
3) recréer l'onglet "Feuil2" et sauvegarder la macro pour revenir au point de départ
4) Fermer le fichier Test.docx

Bonjour Optimix

Merci pour la réponse et l'aide fournie.

Avec un peu d"adaptation, tout fonctionne.

Bien Cordialement.

Xavier