Discussion :

[69didier]

Bonjour,
depuis 2 jours, le code VBA suivant me lève une erreur d'exécution '91' sur le ligne surlignée ci-dessous : Variable objet ou variable de bloc With non définie

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.HeaderFooter.LinkToPrevious = True
Selection.WholeStory
Selection.Cut

Avez vous déjà eu ce type d'erreur ?

[E KERGRESSE]

Bonjour,

Il vous faut peut-être préalablement tester la présence d'une partie Header (ou Footer) dans votre section.

Un exemple de test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Sub Test()
 
    LireEnTeteDePage ActiveDocument
 
End Sub
 
Sub LireEnTeteDePage(ByVal DocEncours As Document)
 
Dim sEc As Section
Dim I As Integer
 
    For Each sEc In DocEncours.Sections
        If sEc.Headers.Count > 0 Then
           For I = 1 To sEc.Headers.Count
               With sEc.Headers(I)
                    Debug.Print .Range.Text
               End With
           Next I
        End If
    Next sEc
 
End Sub