Modifier le boîte de dialogue "Enregistrer sous"

[FCL31]

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]

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]

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]

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

[FCL31]

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]

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

[Sepia]

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]

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]

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]

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

[FCL31]

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]

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]

Essaie ceci

Code :

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]

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]

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

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

Une sauvegarde de document.

[FCL31]

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]

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]

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]

Peu tu expliquer un peu plus STP

[Heureux-oli]

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.