Re : Gérer l'impression de certaines pages avec Word
Bonjour Modeste,
Merci pour ta réponse. J'ai un peu changer d'idée depuis hier (il y juste les fous qui ne changent pas d'idée
). Je me suis dit : et si je sélectionnais les pages que je ne veux pas au lieu de celles que je veux et que je les effaçais. Il ne me resterait que les pages que je veux et je pourrais ainsi les sauvegarder pour usage futur. Donc, l'idée serait de ne garder que les pages dont la case à cocher est… cochée.
Alors, voici ce que j’ai essayé, mais ça ne fonctionne pas :
Sub Macro15()
' Macro 15
'Sub selectpages ()
Dim rgePages As Range
If CheckBox1 = False Then
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=5
Set rgePages = Selection.Range
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=5
rgePages.End = Selection.Bookmarks("\Page").Range.End
rgePages.Select
End If
If CheckBox2 = False Then
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=6
Set rgePages = Selection.Range
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=7
rgePages.End = Selection.Bookmarks("\Page").Range.End
rgePages.Select
End If
If CheckBox3 = False Then
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=8
Set rgePages = Selection.Range
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=15
rgePages.End = Selection.Bookmarks("\Page").Range.End
End If
Selection.Delete
End Sub
J'ai mis une copie de mon fichier test en pièce jointe.
Merci beaucoup !