Discussion :

[colbubu]

bonjour j ai un petit probleme dans mon code qui marchait jusqu'à aujourd'hui et la je ne sais pas pourquoi il me marque l'objet a été supprimé voici mon code

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
    Docu.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    objWord.WordBasic.ViewFooterOnly
 
 
    objWord.Selection.MoveRight Unit:=wdWord, Count:=4
    objWord.Selection.MoveDown Unit:=wdParagraph, Count:=3
    objWord.Selection.MoveDown Unit:=wdLine, Count:=2
 
' chargement du template building blocks
Templates.LoadBuildingBlocks
    ' recherche du bon template
    For Each docModele In Templates
        If docModele.Name = "Building Blocks.dotx" Then
            ' si trouvé insertion du bloc numéro de page
            Templates(docModele.FullName).BuildingBlockEntries("Numéro normal"). _
            Insert Where:=objWord.Selection.Range, RichText:=True
            Exit For
        End If
    Next

voila il s'agit d un tableau en pied de page et je veux insérer un numéro de page dans la derniere case du tableau donc si vous pouvez m'aider c est avec grand plaisir

[colbubu]

en fait ma macro bug quand une autre page word est ouverte j ai donc résolu le probleme d'une façon tres compliqué

j ai fermé l autre page word