Discussion :

[slorgue]

Bonjour,


J'ai trouvé ce code ici même mais j'ai un petit probleme et ne connaissant pas grand chose en VBA je me tourne vers vous. Voici mon problemem j'ai un document avec un sommaire et donc je souhaiterais imprimer la page dont le titre est "MODIFICATION DE PERIMETRE" mais pas le sommaire.

comment coder cela

merci de votre aide.

Bonne journée.

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
24
25
Sub ChercheEtPrint()
    ActiveDocument.Range.Select
    Selection.HomeKey Unit:=wdStory
    Selection.Range.Find.ClearFormatting
    With Selection.Find
        .Text = "MODIFICATION DE PERIMETRE"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True 'Mots Entier
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute
    End With
  While Selection.Find.Found
       Debug.Print "Trouvé"
       Application.PrintOut Range:=wdPrintCurrentPage
       Selection.Find.Execute 'Cherche suivant
  Wend
  Call ChercheEtPrint2
  Call ChercheEtPrint3
End Sub

[Heureux-oli]

Salut,

Reçois tu un message d'erreur ?
Peux-tu nous dire ce qui ne fonctionne pas ?

[slorgue]

BOnjour,

tout fonctionne bien mais il m'imprime ma page de sommaire + la page voulu et j'aimerais ne pas imprimer le sommaire .

merci de votre aide.

[Heureux-oli]

Salut,

Code :

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

1
2
3
 
  Call ChercheEtPrint2
  Call ChercheEtPrint3

Ça correspond à quoi ??
Tu fais appel à ces routines mais on ne sais pas ce qu'elles contiennent.

[slorgue]

oups j'ai oublié des les retirer elle n'y sont plus dans ma macro.

[Heureux-oli]

J'y pense, ton sommaire est-il une table des matières Word ou un sommaire manuel.
Si ce sommaire est manuel, ton texte s'y trouve deux fois !!

Il faut faire un test supplémentaire pour connaître le numéro de la page trouvée, si c'est la première page, il ne faut pas l'imprimer.

[Heureux-oli]

Je viens de tester, et même pour un sommaire fait par Word, la page s'imprime, il faut donc faire un test supplémentaire.

[Heureux-oli]

Voilà le code modifié !

Code :

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

1
2
3
4
5
6
7
  While Selection.Find.Found
       Debug.Print "Trouvé"
       If Selection.Information(wdActiveEndPageNumber) <> 1 Then
       Application.PrintOut Range:=wdPrintCurrentPage
       End If
       Selection.Find.Execute 'Cherche suivant
  Wend

[slorgue]

c'est une table des matières Word .

voicle code modifier mais j'ai toujours la table des matieres qui s'imprime. ?

une idée.

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
24
25
26
27
28
29
30
Sub ChercheEtPrint()
    ActiveDocument.Range.Select
    Selection.HomeKey Unit:=wdStory
    Selection.Range.Find.ClearFormatting
    With Selection.Find
        .Text = "MODIFICATION DE PERIMETRE"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = True 'Mots Entier
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute
    End With
  While Selection.Find.Found
       Debug.Print "Trouvé"
 
       If Selection.Information(wdActiveEndPageNumber) <> 1 Then
       Application.PrintOut Range:=wdPrintCurrentPage
       End If
       Selection.Find.Execute 'Cherche suivant
 
 
       'Application.PrintOut Range:=wdPrintCurrentPage
       'Selection.Find.Execute 'Cherche suivant
  Wend
End Sub

[Heureux-oli]

Salut,

La table des matière s'étend sur combien de pages ?

[slorgue]

3 pages. mais je viens de voir un truc curieux la priemere page de mon document est al page 2 et rien avant ??

[Heureux-oli]

Code :

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

1
2
3
If Selection.Information(wdActiveEndPageNumber) < 3 Then
       Application.PrintOut Range:=wdPrintCurrentPage
       End If

Modifies le code pour voir ?

Si ce n'est pas toi qui a fait le document, probablement que la personne qui a écrit le document a voulu ne pas numéroter la première page ou commencer à 2.

[slorgue]

non pas de changement j'ai toujours mon sommaire.

[Heureux-oli]

Positionne ton curseur dans le sommaire et utilise ce code

Code :

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

1
2
3
Sub NumPageAmontrer()
    Debug.Print Selection.Information(wdActiveEndPageNumber)
End sub

Dis moi quel page tu reçois !

[slorgue]

bonjour,

il ne se passe rien.

bonne journée.

[Heureux-oli]

Surprenant !
Ton sommaire n'a pas de numéro de page.

[Sepia]

Salut,

C'est tout à fait normal avec le code que tu as d'imprimer la page de sommaire et la page que tu veux, puisque c'est ce que tu demandes à Word (c'est même bien qu'il le fasse ). En effet, tu recherches toutes les occurrences du texte "MODIFICATION DE PERIMETRE" (et Word les trouve) et lorsque tu en as trouvé tu demandes à imprimer la page. Comme ton texte est la fois dans le sommaire et dans le texte, tu imprimes... le sommaire et la page concernée.

Pour éviter ce point (qui est le bon fonctionment de Word mais qui n'est pas ce tu veux), utilises un style (certainement "Titre 1" mais je ne sais pas vraiment sans ton doc) pour rechercher dans le texte et pas dans la table des matières. Et cà devrait marcher.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("Titre 1")
    With Selection.Find
        .Text = "MODIFICATION DE PERIMETRE"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With

@+