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

Marine_blatz

XLDnaute Nouveau
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
 

Marine_blatz

XLDnaute Nouveau
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

XLDnaute Nouveau
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
 

Discussions similaires

Réponses
9
Affichages
283

Statistiques des forums

Discussions
297 998
Messages
1 964 988
Membres
200 793
dernier inscrit
marcovit