XL 2016 Supprimer plusieurs pages dufichier word en une seul operation

[leader]

😉😉😉Coucou

J’ai un document word de plusieurs pages. Je souhaite en supprimer une grâce à une macro. Pour l’instant j’arrive à me positionner sur la page en question.

Voici mon programme :

Private Sub OptionButton2_Click()
Dim Link As String
Set WordApp = CreateObject("word.Application")
Link = "D:\Users\Desktop\STAGE\CCTP-MCEL 2014-2018 V1 trame.docx"
WordApp.Visible = True
WordApp.Documents.Open Link
WordApp.Selection.GoTo What:=1, Which:=2, Name:="16"

End Sub

 

[Lone-wolf]

Coucou leader! 😉 Bienvenue sur XLD

Entre supprimer 1 page et supprimer plusieurs pages(titre du message), il y a la lune entre deux.

EDIT: voici la macro fonctionnelle.

Public Sub test()
Dim Wordapp As Object
Dim Link As String
Dim iNum As Integer
Dim rDeb, rFin

    Set Wordapp = CreateObject("Word.Application")
    Link = ThisWorkbook.Path & "\Doc1.doc"
    Wordapp.Documents.Open Link
    iNum = 16

    With Wordapp
             .Visible = True
             .Selection .GoTo What:=1, Which:=2, Name:=iNum
             rDeb =.Selection .GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=iNum).Start
            rFin = .Selection.GoTo(What:=wdGoToPage, Which:=wdGoToNext, Name:=iNum + 1).Start
    End With
    ActiveDocument.Range(rDeb, rFin).Delete

End Sub

 

[Staple1600]

Bonsoir le fil, le forum, Lone-Wolf😉

@leader [Bienvenue sur le forum]
Une autre façon de faire (sans Selection)
Ici test fait sur le document actif (donc à adapter à la problématique)

Sub SupprimerPage()
Dim Rng As Range, Num&
On Error Resume Next
Num = InputBox("Saisir le N° de la page", "SUPRESSION PAGE")
With ActiveDocument
    Set Rng = .GoTo(What:=1, Name:=Num): Set Rng = Rng.GoTo(What:=-1, Name:="\page")
Rng.Delete
End With
End Sub

PS: Tu as posté dans la mauvaise section du forum
Ta question concerne Word.

 

[leader]

Bonjour 🙂

Merci pour vos réponse. Je pense que je me suis mal exprimée, lorsque j'ouvre le fichier à une page saisie tous les autres pages sont supprimée.
je vous remercie encore pour vos réponse .

Bonne journée

 

[leader]

🙁🙁🙁 Toujours personne

 

[Staple1600]

Bonsoir le fil, le forum

a)

Pour tous

2 – Tous les membres du forum répondent gracieusement aux questions.
Il n’y a donc aucune obligation de résultat et de délai. Les mots URGENT, SOS, AU SECOURS sont donc à bannir.

b)

J’ai un document word de plusieurs pages.
Je souhaite en supprimer une grâce à une macro.