Ecrire du texte dans Word depuis Excel

Question

Bonsoir,

Je tourne en rond depuis hier soir avec le code suivant. Le nom de la police est bien modifié, mais j'ai systématiquement une erreur sur les lignes suivantes: "Argument ou appel de procédure incorrect". Quelqu'un a-t-il une idée ? Je mettrai un bloc With/End With plus tard...

Merci d'avance,
Hervé

Private Sub TitreJournal()
      Set Journal_Word = AppWord.ActiveDocument
      '
      ' Ecrit "Journal créé le [Date]" en noir, centré, Tahoma, corps 18
      '
      AppWord.Selection.Font.Name = "Tahoma"
      AppWord.Selection.Font.Size = 18
      AppWord.Selection.Font.Superscript = False
      AppWord.Selection.Font.Subscript = False
      AppWord.Selection.Font.Outline = False
      AppWord.Selection.Font.Shadow = False
      AppWord.Selection.Font.ColorIndex = 1 ' Noir
      AppWord.HorizontalAlignment = Center
      AppWord.Selection.TypeText Text:="Journal créé le " & TodayString
      '
      ' Saute deux lignes et écrit la date de début et la date de fin, noir, centré, Tahoma, corps 12
      '
      AppWord.Selection.Font.Size = 12
      AppWord.Selection.TypeText Text:=Chr(13) & Chr(13) & "Du " & DateDebutString & " au " & DateFinString
End Sub

ucfoutu · Answer

Bonjour,

Il nous faut déjà savoir où exactement et comment tu as défini l'objet AppWord, puis où et comment tu as défini l'objet qui représente ton document 
car :
Set Journal_Word = AppWord.ActiveDocument 
ne nous apprend rien, à commencer par le document actif

____________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches d'autres forumeurs.
Pas d'aide en ligne installée ? ==> ne comptez pas sur moi pour simplement vous dire ce qu'elle contient

Ecrire du texte dans Word depuis Excel

1 réponse

Votre réponse

Discussions similaires