Sub GestionWord ()
Set AppWord=CreateObject(« Word.Application »)
On Error Resume Next
‘ Cherche une instance de Word si elle existe
Set AppWord = GetObject(, « Word.Application »)
If Err <> 0 Then
‘ Si GetObject échoue, utiliser CreateObject pour créer une instance de Word
Set AppWord = CreateObject(« Word.Application »)
End If
‘ ajoute un nouveau document
AppWord.Documents.Add
‘ insère du texte au point d’insertion
AppWord.Selection.TypeText Text:= »Liste des Stagiaires »
‘ sauter une ligne
AppWord.Selection.TypeParagraph
‘ copie le contenu de A1 dans le document Word
AppWord.Selection.TypeText Text:= » » & Range(« A1 »).Value
‘ enregistre les modifications
AppWord.Documents.Save
‘ rend Word visible
AppWord.Visible = True
‘ Quitte Word
AppWord.Quit
‘ Vide l’objet en mémoire
Set AppWord = Nothing
End Sub