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

Marine_blatz · 27 Décembre 2021

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 · 27 Décembre 2021

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

fanch55 · 27 Décembre 2021

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

Marine_blatz · 27 Décembre 2021

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 · 27 Décembre 2021

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

merciiiiii

fanch55 · 27 Décembre 2021

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

Rajouter Activedocument. devant les ActiveWindow ...

Marine_blatz · 27 Décembre 2021

fanch55 à dit:
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

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

Marine_blatz

XLDnaute Nouveau

fanch55

fanch55

XLDnaute Barbatruc

Marine_blatz

XLDnaute Nouveau

Marine_blatz

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Marine_blatz

XLDnaute Nouveau

Discussions similaires