Sauvegarder un document dans 2 fichiers diférents en même temps

Bonjour Françoise

Bonjour,
Je découvre le forum de discussion et vous remercie de votre aide,
même si ma première approche se fait par une question et non par une
réponse à vos problèmes.
Ma question est : "Dans WORD XP Professionnel, peut-on sauvegarder un
document à 2 endroits différents en une seule opération : par exemple
dans un fichier spécifique au document et dans un fichier"chrono" qui
est numéroté. Précision : mes documents sont sauvegardés sous cette
forme : n°??? /2005-nom du document.

En standard, non je ne crois pas, il va falloir sortit le meule à macro
pour ce cas intéressant.
Il peut y avoir quelques difficultés cependant :
Tu souhaiterais que le numéro soit automatique ou vous le gérez en manuel ?
Le fichier d'enregistrement du chrono est toujours le même probablement,
mais l'autre on doit pouvoir le choisir sans doute.
Et en cas de modification du document il faut aussi modifier celui du
chrono ?

--

A+

Bonjour Geo,
Merci de t'intéresser à mon cas.
1. Le n° de chrono est géré manuellement.
2. La sauvegarde du document se fait dans un fichier spécifique à chaque
document
3. J'aimerais qu'une seconde sauvegarde du document se fasse
automatiquement. Ce fichier s'alimenterait alors par ordre croissant ou
décroissant avec mon n° de chrono.
4. La révision d'un document ne modifiant pas la numérotation chronologique,
la sauvegarde se fera, normalement, en double.

On peut toujours rêver d'améliorer le quotidien.
Merci à tous. TOute proposition sera intéressante.
Bon W.E.

Bonjour Françoise

Bonjour,
Je découvre le forum de discussion et vous remercie de votre aide,
même si ma première approche se fait par une question et non par une
réponse à vos problèmes.
Ma question est : "Dans WORD XP Professionnel, peut-on sauvegarder un
document à 2 endroits différents en une seule opération : par exemple
dans un fichier spécifique au document et dans un fichier"chrono" qui
est numéroté. Précision : mes documents sont sauvegardés sous cette
forme : n°??? /2005-nom du document.

En standard, non je ne crois pas, il va falloir sortit le meule à macro
pour ce cas intéressant.
Il peut y avoir quelques difficultés cependant :
Tu souhaiterais que le numéro soit automatique ou vous le gérez en manuel ?
Le fichier d'enregistrement du chrono est toujours le même probablement,
mais l'autre on doit pouvoir le choisir sans doute.
Et en cas de modification du document il faut aussi modifier celui du
chrono ?

--

A+

Bonjour Françoise

Bonjour Geo,
Merci de t'intéresser à mon cas.
1. Le n° de chrono est géré manuellement.
2. La sauvegarde du document se fait dans un fichier spécifique à
chaque document
3. J'aimerais qu'une seconde sauvegarde du document se fasse
automatiquement. Ce fichier s'alimenterait alors par ordre croissant
ou décroissant avec mon n° de chrono.
4. La révision d'un document ne modifiant pas la numérotation
chronologique, la sauvegarde se fera, normalement, en double.

Je comprends toujours un peu lentement, mais prenons un petit exemple.

1- Document n°001 /2005-Lettre à ma concierge.doc
est enregistré dans le répertoire Ma maison
et en même temps dans le répertoire Chrono sous 00001.doc
2- Document n°002 /2005-Lettre à mon banquier.doc
est enregistré dans le répertoire Ma banque
et en même temps dans le répertoire Chrono sous 00002.doc
3- Document n°002 /2005-Lettre à mon banquier.doc
est modifié puis réenregistré dans le répertoire Ma banque
et en même temps dans le répertoire Chrono sous 00003.doc
...
n- Document n°00x /2005-Lettre à mon avocat.doc
est enregistré dans le répertoire Ma banque (oui car ça concerne un litige
avec la banque)
et en même temps dans le répertoire Chrono sous 0000n.doc

C'est cela ?

--

A+

Bonjour Géo,
En espérant que le W.E. a été ensoleillé pour tout le monde, mais c'est
lundi matin et il faut revenir à la dure réalité du bureau.
Oui Géo, tu as bien compris mon problème, sauf ...
que dans le point 3 de ton exemple, la lettre modifiée reste au chrono 00002
et ne devient pas 00003.
Bon courage pour ce casse-tête. Je planche moi aussi de mon côté.
A+

Bonjour Françoise

Bonjour Geo,
Merci de t'intéresser à mon cas.
1. Le n° de chrono est géré manuellement.
2. La sauvegarde du document se fait dans un fichier spécifique à
chaque document
3. J'aimerais qu'une seconde sauvegarde du document se fasse
automatiquement. Ce fichier s'alimenterait alors par ordre croissant
ou décroissant avec mon n° de chrono.
4. La révision d'un document ne modifiant pas la numérotation
chronologique, la sauvegarde se fera, normalement, en double.

Je comprends toujours un peu lentement, mais prenons un petit exemple.

1- Document n°001 /2005-Lettre à ma concierge.doc
est enregistré dans le répertoire Ma maison
et en même temps dans le répertoire Chrono sous 00001.doc
2- Document n°002 /2005-Lettre à mon banquier.doc
est enregistré dans le répertoire Ma banque
et en même temps dans le répertoire Chrono sous 00002.doc
3- Document n°002 /2005-Lettre à mon banquier.doc
est modifié puis réenregistré dans le répertoire Ma banque
et en même temps dans le répertoire Chrono sous 00003.doc
....
n- Document n°00x /2005-Lettre à mon avocat.doc
est enregistré dans le répertoire Ma banque (oui car ça concerne un litige
avec la banque)
et en même temps dans le répertoire Chrono sous 0000n.doc

C'est cela ?

--

A+

Bonjour Françoise

Bonjour Géo,
En espérant que le W.E. a été ensoleillé pour tout le monde, mais
c'est lundi matin et il faut revenir à la dure réalité du bureau.
Oui Géo, tu as bien compris mon problème, sauf ...
que dans le point 3 de ton exemple, la lettre modifiée reste au
chrono 00002 et ne devient pas 00003.
Bon courage pour ce casse-tête. Je planche moi aussi de mon côté.

La piste à creuser serait d'utiliser l'événement beforesave de manière à
enregistrer le document dans le chrono avec la première partie du nom du
fichier.
On peut même imaginer générer le numéro automatiquement, c'est expliqué
dans la faq.
Mais on risque d'avoir des effets indésirables du genre :
Dans le BeforeSave déclenchement d'un autre BeforeSave en enregistrant dans
le chrono et là ça devient problématique.
On peut bloquer le déclenchement d'évènement, mais il va falloir jouer fin.
Si tu ne sais pas faire reviens-nous.
Si tu sais faire reviens-nous aussi avec la solution, ce sera intéressant.

--

A+

Re

Ou surcharger les commandes Fichier enregistrer et fichier enregistrer
sous.
C'est peut-être plus simple à maîtriser

--

A+

Re re
Voici le Save, qui est le plus simple à faire.
On ne peut pas mettre de "/" dans un nom de fichier, j'ai mis un "-" pour
le test.
attention aux retours à la ligne intempestifs faits par OE-quotefix.

Option Explicit
Sub FileSave()
Dim NomChrono As String
Const RepChrono As String = "F:temp"
Dim NomDoc As String
Dim p As Integer
NomDoc = ActiveDocument.name
p = InStr(1, NomDoc, "-")
If p > 0 And Left(NomDoc, 2) = "n°" Then
NomChrono = Right("00000" + Mid(NomDoc, 3, p - 3), 5)
Else
' ou faire un enregistrement "normal"
' activedocument.save
MsgBox "nom de fichier incorrect : " + NomDoc
Exit Sub
End If
ActiveDocument.SaveAs FileName:=RepChrono + NomChrono,
AddToRecentFiles:úlse
ActiveDocument.SaveAs FileName:=NomDoc
End Sub

Re (ter) comme l'agence
Bon voici la totale, si quelqu'un veut l'optimiser, pas de problème :-)
On pourrait déjà faire une petite fonction pour éviter le codage en double,
mais faiut bien que Fraçoise participe aussi.
Option Explicit
Const RepChrono As String = "F:temp"

Sub FileSave()
Dim NomChrono As String
Dim NomDoc As String
Dim p As Integer

NomDoc = ActiveDocument.name
p = InStr(1, NomDoc, "-")
If p > 0 And Left(NomDoc, 2) = "n°" Then
NomChrono = Right("00000" + Mid(NomDoc, 3, p - 3), 5)
Else
' ou faire un enregistrment "normal"
' activedocument.save
MsgBox "nom de fichier incorrect : " + NomDoc
Exit Sub
End If
ActiveDocument.SaveAs FileName:=RepChrono + _
NomChrono, AddToRecentFiles:úlse
ActiveDocument.SaveAs FileName:=NomDoc
End Sub

Sub FileSaveas()
Dim NomChrono As String
Dim NomDoc As String
Dim p As Integer
Dim r As Integer
If ActiveDocument.Path = "" Then
NomDoc = "n°xxxx-Titre"
Else
NomDoc = ActiveDocument.name
End If
With Dialogs(wdDialogFileSaveAs)
.name = NomDoc
r = .Show
End With
Select Case r
Case 0 ' annuler
Exit Sub
Case Else

End Select

NomDoc = ActiveDocument.name
p = InStr(1, NomDoc, "-")
If p > 0 And Left(NomDoc, 2) = "n°" Then
NomChrono = Right("00000" + Mid(NomDoc, 3, p - 3), 5)
Else
' ou sauter
MsgBox "nom de fichier incorrect : " + NomDoc
Exit Sub
End If
ActiveDocument.SaveAs FileName:=RepChrono + _
NomChrono, AddToRecentFiles:úlse
ActiveDocument.SaveAs FileName:=NomDoc
End Sub

Bonjour
Un grand merci d'avoir planché si fort.
Je ne suis pas sûre d'avoir tout compris (mon niveau informatique n'étant
pas très haut), mais je vais me faire aider.
Je te redonne de mes nouvelles dès que j'ai pu avancer.
Bonne journée à tous et a+

Re (ter) comme l'agence
Bon voici la totale, si quelqu'un veut l'optimiser, pas de problème :-)
On pourrait déjà faire une petite fonction pour éviter le codage en double,
mais faiut bien que Fraçoise participe aussi.
Option Explicit
Const RepChrono As String = "F:temp"

Sub FileSave()
Dim NomChrono As String
Dim NomDoc As String
Dim p As Integer

NomDoc = ActiveDocument.name
p = InStr(1, NomDoc, "-")
If p > 0 And Left(NomDoc, 2) = "n°" Then
NomChrono = Right("00000" + Mid(NomDoc, 3, p - 3), 5)
Else
' ou faire un enregistrment "normal"
' activedocument.save
MsgBox "nom de fichier incorrect : " + NomDoc
Exit Sub
End If
ActiveDocument.SaveAs FileName:=RepChrono + _
NomChrono, AddToRecentFiles:úlse
ActiveDocument.SaveAs FileName:=NomDoc
End Sub

Sub FileSaveas()
Dim NomChrono As String
Dim NomDoc As String
Dim p As Integer
Dim r As Integer
If ActiveDocument.Path = "" Then
NomDoc = "n°xxxx-Titre"
Else
NomDoc = ActiveDocument.name
End If
With Dialogs(wdDialogFileSaveAs)
.name = NomDoc
r = .Show
End With
Select Case r
Case 0 ' annuler
Exit Sub
Case Else

End Select

NomDoc = ActiveDocument.name
p = InStr(1, NomDoc, "-")
If p > 0 And Left(NomDoc, 2) = "n°" Then
NomChrono = Right("00000" + Mid(NomDoc, 3, p - 3), 5)
Else
' ou sauter
MsgBox "nom de fichier incorrect : " + NomDoc
Exit Sub
End If
ActiveDocument.SaveAs FileName:=RepChrono + _
NomChrono, AddToRecentFiles:úlse
ActiveDocument.SaveAs FileName:=NomDoc
End Sub