Word Problème d'exécution de ma macro

[Marine_blatz]

Bonjour,

je cherche quelqu'un qui pourrait m'expliquer comment cela se fait t-il que ma macro ne remet pas à jour le champs pied de page automatiquement à l'ouverture du document ?

Merci d'avance au géni qui trouverais la solution

Private Sub Workbook_Open()

Dim aI As Integer
Dim aJ As Integer

For aI = 1 To ActiveDocument.Sections.Count
For aJ = 1 To ActiveDocument.Sections(aI).Headers.Count
ActiveDocument.Sections(aI).Headers(aJ).Range.Fields.Update
Next
For aJ = 1 To ActiveDocument.Sections(aI).Footers.Count
ActiveDocument.Sections(aI).Footers(aJ).Range.Fields.Update
Next
Next
End Sub

 

[fanch55]

Bonsoir,
je pense que vous confondez Word et Excel.
Private Sub Workbook_Open() ==> Excel
Private Sub Document_Open() ==> Word

 

[Marine_blatz]

Toi qui sais tout, tu sais pourquoi mon code me met erreur de variable ou de bloc with à l'execution de cette macro ? c'est pour changer la date d'une cellule dans un tableau word, à partir de la date inscrite dans le titre du document.

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

 

[Marine_blatz]

Bonsoir,
je pense que vous confondez Word et Excel.
Private Sub Workbook_Open() ==> Excel
Private Sub Document_Open() ==> Word

merciiiiii

 

[fanch55]

erreur de variable ou de bloc with à l'execution de cette macro ?

Rajouter Activedocument. devant les ActiveWindow ...

 

[Marine_blatz]

Rajouter Activedocument. devant les ActiveWindow ...

Hum non toujours pas

Sub Calendrier()

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

End Sub