Word Petite erreur à résoudre pour un calendrier

[risch_cyril]

Bonjour
j'ai une case avec un calendrier type menu déroulant et je souhaite que en executant cette macro elle mettent à jour le calendrier grâce au nom du document hors j'ai deux souci le premier étant l'erreur 91. variable object ou variable de bloc with non définie comment je solutionne ca ?
Si quelqu'un peut me renvoyer le code solution dans la discussion ca serait cool.

Merci

Sub Calendrier()

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.InsertDateTime DateTimeFormat:="dddd d MMMM yyyy", InsertAsField _
:=True, DateLanguage:=wdFrench, CalendarType:=wdCalendarWestern, _
InsertAsFullWidth:=False

End Sub