Modifier le boîte de dialogue "Enregistrer sous"

**FCL31** · 04/04/2008, 14h03

Je voudrais savoir si il est possible de odifier le boîte de dialogue "Enregistrer sous" ou en créer une personalisé

Je voudrais que la boite de dialoge enregistrer sous me demande quel page je veu enregistrer

**Heureux-oli** · 04/04/2008, 14h37

Tu vas devoir créer un boîte de dialogue basée sur un UserForm.

Le problème le plus important que tu vas rencontrer c'est le choix et la ségrégation des pages.

**FCL31** · 04/04/2008, 15h49

Escuse moi mais j'ai encore jamais fait de programmation sur Word et donc par consequant j'ai jamais utilisé les termes que tu me donne (déolé mais je voi pas trop se que tu veu dire)

Peut tu m'expliqué et pourqu'oi pas me donner un exemple STP

**Heureux-oli** · 04/04/2008, 21h02

Pour un exemple, j'aurais besoin de ta version de Word.

**FCL31** · 05/04/2008, 01h24

Oui escuse

Word 2003
Je rajoute qu'il y a un tableau Excel dans le doc

Si il te faut plus de renseignement fait le savoir

**Heureux-oli** · 05/04/2008, 09h28

Voilà un exemple, à toi de faire la suite.

**Sepia** · 07/04/2008, 00h37

Salut,

Attention, contrairement à ce que l'on croit souvent, et comme te le dit Heureux-Oli, la notion de page dans Word est très complexe. En fait, Word gère du texte pas de la publication donc pas la page en tant que telle. La page dépend de beaucoup de choses dont les marges, les tailles des entêtes et des pieds de page, les notes... mais aussi de l'imprimante avec laquelle tu travailles et si tu en as plusieurs, de la dernière utilisée lors de ta session de Word et si tu n'en as aucune de l'imprimante par défaut de ton système.

Donc si tu as une macro qui te demande de sauvegarder une page, tu risque de ne pas avoir le même résultat si tu changes de poste alors que c'est le même fichier. Ce comportement de Word explique le succès de PDF qui lui imprime le même rendu de la page (en fait pas tout à fait mais tu ne le vois pas en tant qu'utilisateur) quelque soit l'imprimante (si elle accepte le format évidemment).

Donc si tu veux quelque chose de sûr et d'identique, ça va être difficile

**FCL31** · 08/04/2008, 14h03

Escuse moie Heureux-oli mais je suis peut étre un peu c** mais je ne comprend pas comment marche ton exemple (qui me parai trés bien)

Je voudrais un truc comme ca dans un document déjà existant et que ce formulaire s'ouvre lorsque je clique sur un bouton ou autre (un raccourci clavier, un bouton dans les barre d'outils,...).

Mais je me penche quand même dessus

**Heureux-oli** · 08/04/2008, 18h12

Je l'ai mis sur un évènement de mon document, mais tu peux tout mettre dans le normal et l'utiliser au départ d'un bouton ou sur l'évènement close du document.

**FCL31** · 08/04/2008, 18h34

Excuse mais je connai pas les codes VBA sur Word donc peut tu etre un peu plus explicite STP

**FCL31** · 10/04/2008, 14h18

j'ai regarder un peu mieu et le probléme c'est que lorsque je choisi la page "de" / "à" sa m'enregistre la totalité du document or je voufrais mettre par exemple "de : 2" / "à : 2" seulement la page 2 soit sauvegarder.

**Heureux-oli** · 10/04/2008, 14h38

Envoyé par Heureux-oli

Tu vas devoir créer un boîte de dialogue basée sur un UserForm.

Le problème le plus important que tu vas rencontrer c'est le choix et la ségrégation des pages.

C'est là que tu va rencontrer ton plus gros problème.

Les pages ne sont pas des objets fixes en Word.

**Heureux-oli** · 10/04/2008, 15h21

Essaie ceci

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
Sub test()
Dim myRange As Range
Dim oDoc2 As Document
 
Selection.GoTo What:=wdGoToPage, which:=wdGoToAbsolute, Count:=2
Selection.Bookmarks.Add Name:="bmStart", Range:=Selection.Range
 
Selection.GoTo What:=wdGoToPage, which:=wdGoToAbsolute, Count:=3
Selection.Bookmarks.Add Name:="bmEnd", Range:=Selection.Range
 
 
 
Set myRange = ActiveDocument.Range(Start:=ActiveDocument.Bookmarks("bmStart").Range.Start, End:=ActiveDocument.Bookmarks("bmEnd").Range.End)
 
myRange.Select
Selection.Copy
Set oDoc2 = Documents.Add
oDoc2.Select
Selection.Paste
oDoc2.SaveAs "c:\temp\testnd.doc"
 
 
End Sub

**FCL31** · 10/04/2008, 15h38

Merci mais je le met ou se code ?

De plus je ne vois pas dans ton code où on utilise les TextBox pour les n° de page

**Heureux-oli** · 10/04/2008, 15h49

A toi de l'intégrer dans le formulaire.

Tu as un endroit pour les numéros de page.

Une sauvegarde de document.

**FCL31** · 10/04/2008, 15h50

Merci mais je le met ou se code ?

De plus je ne vois pas dans ton code où on utilise les TextBox pour les n° de page

**FCL31** · 10/04/2008, 19h21

Je voi que c'est un truc tres compliqué !

Si c'est pas possible, au pire l'enregistrement de la derniere page suffirai mais avoir le choi serai mieu.

**Heureux-oli** · 10/04/2008, 21h12

Pour les pages, tu dois récupérer le contenu des textbox et la valeur doit suivre
count:=

Pour le nom du fichier, c'est le paramètre derrière le SaveAs.

**FCL31** · 11/04/2008, 14h19

Peu tu expliquer un peu plus STP

**Heureux-oli** · 11/04/2008, 14h39

Selection.GoTo What:=wdGoToPage, which:=wdGoToAbsolute, Count:=2
Selection.Bookmarks.Add Name:="bmStart", Range:=Selection.Range

Dans ce code, on va à la seconde page et on y place un signet.
Le nuléro de page étant 2, il suffit de le remplacer par la valeur du TextBox de ton forlukaire.

oDoc2.SaveAs "c:\temp\testnd.doc"

cette ligne va sauvegarder le document avec le nom "c:\temp\testnd.doc"

Il suffit de mettre le nom inséré dans le textbox du formulaire.