Sauvegarde dans répertoire spécifique [Résolu]

[Marcel Chabot]

Salut,
Je connais pas du tous Word et j'aurais besoin d'aide.
J'ai une application FORMS d'Oracle qui ouvre Word.
Je voudrais savoir si on peu quand on a ouvert word, forcer l'utilisateur à sauvegarder dans un répertoire spécifique pour la sécurité des informations.
Dans la barre d'outil sous FICHIER il y a "Sauvegarder" ou "Sauvegarder sous". Peut-on forcer à ce que le chemin soit spécifique en un seul chemin?
Style O:\App_Ora\Sources\gda_10g\dev\src\doc\...


Merci beaucoup!

[Sepia]

Salut,

On a déjà répondu sur le forum sur http://www.developpez.net/forums/sho...d.php?t=450094

[Marcel Chabot]

Merci pour le code
Mais à quelle endroit on met ce code?
Application.Options.DefaultFilePath "c:\temp"
On fait une macro? Est-elle permanente après à chaque fois qu'on ouvre word sur le poste de travail?

Je n'ai jamais toucher à la programmation dans Word.
C'est un code qu'on ajoute quand on appelle word à partir de FORMS?

Merci beaucoup!

[Sepia]

Salut,

Jusqu'à Word 2007, il faut mettre le code dans une macro et cette macro dans un modèle accessible. Le plus simple pour cela est de suivre la démarche:
1°) Ouvre Word
2°) Crée un doc vierge (Commande "Fichier-Nouveau") ==> Ton doc est basé sur le modèle de doc par défaut défini dans ton Word (a priori Normal.dot)
3°) Clique sur la commande "Outils-Macro-Nouvelle macro", clique sur OK
4°) Tape le texte suivant "Ceci est un test d'enregistrement de macro"
5°) Sélectionne le texte. Fait Copier. Clique en fin de texte et fait Coller ==> maintenant tu as 2 fois "Ceci est un test d'enregistrement de macro" puis clique sur <Entrée>
6°) Clique sur la commande Outils-Macro-Arrêter l'enregistrement"
7°) Voilà tu viens de créer une 1ere macro qui est disponible pour Word
8°) Clique sur la commande "Outils-Macro-Macros", sélectionne "Macro1" et clique sur "Modifier" ==> Normalement (si ton Word n'est pas mort, un nouvelle fenêtre s'ouvre avec un truc comme ça dedans:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 23/01/08 par Marcel Chabot
'
    Documents.Add DocumentType:=wdNewBlankDocument
    Selection.TypeText Text:="Ceci est un test d'enregistrement de macro"
    Selection.TypeText Text:="Ceci est un test d'enregistrement de macro"
    Selection.TypeParagraph
    Selection.WholeStory
    Selection.Copy
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.Paste
End Sub

Ceci n'a pour but que tu te rendes compte de ce que fait Word pendant que tu tapes et ce qu'est l'enregistrement de macro, ce n'est pas ce que tu tapes qui était important mais bien la démarche ==> sélectionne tout ce qui compris entre les lignes Sub Macro1() et End Sub, non compris et tapes ton code

Code :

    Application.Options.DefaultFilePath "c:\temp"

et donc ton code (pour être bon) doit être le suivant

Code :

1
2
3
4
 
Sub Macro1()
    Application.Options.DefaultFilePath "c:\temp"
End Sub

C'est fini, tu n'as plus qu'à exécuter la macro. Pour cela, repère dans la barre de ta fenêtre une série de bouton qui ressemble aux commandes des DVD/magnétoscopes et clique sur celui qui symbolise la touche "Play" (une flèche simple orientée vers la droite).
Maintenant tu quittes tout par "<Alt>+<F4>" et tu sauvegardes rien (réponds toujours non).

Pour tester, lance Word, crée un nouveau doc et essaie de la sauvegarder. Normalement, le répertoire de sauvegarde a été modifié.

Voila. C'est plus simple à faire qu'à écrire.

[Heureux-oli]

Petite nuance

Code :

ChangeFileOpenDirectory "c:\temp"

Ne change le répertoire que pour la session Word en cours

alors que

Code :

Application.Options.DefaultFilePath "c:\temp"

le change en permanence.

Tu peux utiliser ceci

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim WithEvents oWdApp As Word.Application
 
Sub Document_Open()
 
Set oWdApp = Word.Application
 
End Sub
 
Private Sub oWdApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
Dim stNom As String
stNom = InputBox("Donnez le nom de votre fichier sans l'extension !")
ActiveDocument.SaveAs FileName:="O:\App_Ora\Sources\gda_10g\dev\src\doc\" & stNom & ".doc"
 
End Sub

Sur l'évènement Open du document, on lance une procédure qui va initialier une procédure permettant de détecter et de réagir à certains évènement se produisant dans Word.

L'évènement visé est BeforeSave.

[Marcel Chabot]

Merci beaucoup du temps que vous avez pris pour me répondre.
Je l'apprécie énormément!!!
Ça fonctionne à merveille.

Bonne journée! Ou bonne soirée pour vous

[Sepia]

Salut,

En effet, Heureux-Oli a raison, il faut bien utiliser

Code :

Application.Options.DefaultFilePath