Discussion :

[jaduta]

Bonjour à toutes et tous,

j'essaie de supprimer la dernière page d'un document
mais sans succès

en parcourant, le forum, j'ai trouvé ceci

Code :

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

1
2
3
4
 
rDeb = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Name:=iNum).Start
rFin = Selection.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Name:=iNum + 1).Start
ActiveDocument.Range(rDeb, rFin).Delete

ca fonctionne très bien, tant qu'il ne s'agit pas de la dernière page

je pensais, en accédant directement à la fin de mon document, avec

Code :

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

1
2
 
rFin = Selection.EndKey(Unit:=wdStory)

mais sans succès

Que dois-je faire???

Merci d'avance

[Heureux-oli]

Salut,

C'est un gros problème, les pages ne sont pas des objets Word.
Il devient donc difficile de supprimer un objet qui n'existe pas.

Pour diminuer le nombre de pages, il supprimer autre chose qu'une page.

Ce que tu peux toujours faire, c'est aller à la dernière page avec la commande GoTo, la sélection se trouve alors au début de la dernière page, tu te déplaces d'un caractère pour être sur la fin de l'avant dernière page.
Tu étends la sélection jusqu'à la fin du document et tu supprimes.

[jaduta]

Merci pour l'info Heureux-oli,

mais mes connaissances sont limitées en VBA Word
Comment puis-je faire pour réaliser ton idée

Ce que tu peux toujours faire, c'est aller à la dernière page avec la commande GoTo, la sélection se trouve alors au début de la dernière page, tu te déplaces d'un caractère pour être sur la fin de l'avant dernière page.
Tu étends la sélection jusqu'à la fin du document et tu supprimes.

Merci d'avance

[Heureux-oli]

Salut,

Dans ton code, tu as

Selection.GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Name:=iNum)

On va partir de ce code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub delDernPage()
' Aller à la dernière page du document
Selection.GoTo What:=wdGoToPage, which:=wdGoToAbsolute, Count:=Selection.Information(wdNumberOfPagesInDocument)
' Déplacement d'un caractère
Selection.MoveLeft unit:=wdCharacter, Count:=1
' Sélection de la fin du document
Selection.EndKey unit:=wdStory, Extend:=wdExtend
' suppression
Selection.Delete
 
End Sub

[jaduta]

Un tout grand merci Olivier, ca fonctionne.

Bonne journée, et merci pour ton aide.