Ecrire dans les entêtes

john

XLDnaute Impliqué
Bonjour à tous,

J'ai une petite question qui sera sûrement très facile pour vous, il me semble que j'ai pu aussi le faire (il y a un certain temps lolll).

Mon problème est que je n'arrive plus à me rappeler comment écrire dans l'entête d'une feuille Word en vba !!! Voilà ce que j'ai fait, mais j'ai un mesage d'erreur !!

C'est le code qui a été fait via le menu outils, macros, nouvelle macros et je lui ai fait faire ce que je voulais. Mais quand je l'exécute par la suite ça plante sur le signet "entete_direction".

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 = wdSeekCurrentPageHeader
Selection.GoTo What:=wdGoToBookmark, Name:="entete_direction" ' il bloque sur cette ligne pourtant mon signet existe bien
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = True
End With

Pouvez-vous me donner une solution qui marche à coup sûr ??

Merci d'avance pour votre aide.

@mic@lement.

John
 

Statistiques des forums

Discussions
312 084
Messages
2 085 194
Membres
102 813
dernier inscrit
kaiyi