Gestion des versions

Le
bob123
Bonjour,

J'écris un document en Word2003
je le modifie/corrige régulièrement .
Y a t'il un moyen d'avoir (en début de document par ex)
une gestion des versions du type:
no_version_majeure.no_version_mineure
la version mineure s'incrémentant à chaque sauvegarde
la version majeure s'incrémentant sur demande

Merci
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
michdenis
Le #21239231
Bonjour,

Une suggestion : http://cjoint.com/?cvdMAjbnVc



"bob123" 4b800cd2$0$19860$
Bonjour,

J'écris un document en Word2003
je le modifie/corrige... régulièrement .
Y a t'il un moyen d'avoir (en début de document par ex)
une gestion des versions du type:
no_version_majeure.no_version_mineure
la version mineure s'incrémentant à chaque sauvegarde
la version majeure s'incrémentant sur demande

Merci
bob123
Le #21239561
OK merci
je vais étudier ça

"michdenis"
Bonjour,

Une suggestion : http://cjoint.com/?cvdMAjbnVc



"bob123" discussion :
4b800cd2$0$19860$
Bonjour,

J'écris un document en Word2003
je le modifie/corrige... régulièrement .
Y a t'il un moyen d'avoir (en début de document par ex)
une gestion des versions du type:
no_version_majeure.no_version_mineure
la version mineure s'incrémentant à chaque sauvegarde
la version majeure s'incrémentant sur demande

Merci



GD
Le #21246321
Bonsour® michdenis avec ferveur ;o))) vous nous disiez :


Une suggestion : http://cjoint.com/?cvdMAjbnVc




ceci c'était pour m'amuser. il y a peut-être une façon d'obtenir le même résultat en utilisant seulement des champs.



;o)))

http://www.cijoint.fr/cjlink.php?file=cj201002/cijBdAjcM6.doc


'-----------------dans ThisDocument
Dim MyWd As New MonApp
Private Sub Document_Open()
Set MyWd.MonWd = Application
'----- verification si la propriété personnalisée "Version" existe
On Error GoTo majver
MsgBox "Version " & ThisDocument.CustomDocumentProperties("Version") _
& vbCrLf & "derniere sauvegarde le :" & ThisDocument.BuiltInDocumentProperties(12) _
& vbCrLf & "par : " & ThisDocument.BuiltInDocumentProperties(7), _
vbInformation, _
ThisDocument.Name
Exit Sub
majver:
'----- création de la propriété personnalisée "Version"
ThisDocument.CustomDocumentProperties.Add Name:="Version", LinkToContent:lse, Value:="1-1", Type:=msoPropertyTypeString
End Sub

'---------------- dans MonApp
Public WithEvents MonWd As Application

Private Sub MonWd_DocumentBeforeSave(ByVal Doc As Document, _
SaveAsUI As Boolean, Cancel As Boolean)
Dim X As Variant, reponse As Variant
With ThisDocument
'----- informations utilisateur
MsgBox "Version " & .CustomDocumentProperties("Version") _
& vbCrLf & "nbr de total de révisions " _
& vbCrLf & .BuiltInDocumentProperties(wdPropertyRevision), _
vbQuestion, _
.Name & " "
'----- recupération du N° version
X = Split(.CustomDocumentProperties("Version"), "-")
'----- choix niveau de MaJ des indices
reponse = MsgBox("Désirez-vous incrémenter l'indice Majeur : " & X(0), _
vbYesNo + vbQuestion, _
"Attention !!! MaJ de Version : " & .CustomDocumentProperties("Version"))
'----- MaJ indice majeur / raz indice mineur
If reponse = vbYes Then
X(0) = Str(X(0) + 1)
X(1) = "1"
'----- MaJ indice mineur
Else
X(1) = Str(X(1) + 1)
End If
'------ mémorisation N° de version
.CustomDocumentProperties("Version") = Str(X(0)) & "-" & Str(X(1))
End With
End Sub
michdenis
Le #21246501
Bonjour GD,

Une suggestion très intéressante...

Cependant, dans ce fichier, il manque quelque chose !
Si l'usager décide de modifier l'indice Majeur ou Mineur ou
les deux, il me semble qu'une fenêtre "enregistrer sous"
devrait apparaître pour enregistrer le fichier sous la nouvelle
version. Le demandeur préfère peut-être écraser la version
précédente ?
GD
Le #21248221
Bonsour® michdenis avec ferveur ;o))) vous nous disiez :

Une suggestion très intéressante...

Cependant, dans ce fichier, il manque quelque chose !
Si l'usager décide de modifier l'indice Majeur ou Mineur ou
les deux, il me semble qu'une fenêtre "enregistrer sous"
devrait apparaître pour enregistrer le fichier sous la nouvelle
version. Le demandeur préfère peut-être écraser la version
précédente ?



c'est en effet un choix ...
qui peut etre conditionné
par exemple :
soit avec l'option suivi des modifications
soit les options d'enregistrement (toujours creer une copie de sauvegarde *.bak)
auquel cas on "enregistre Sous" dés l'ouverture une copie avant suivi (Thisdocument.name + N°version)
la sauvegarde en sortie est alors automatique (seul ThisDocument.name)
attention à la place disque !!!!

soit Annule et Remplace
on enregistre seulement le fichier nouveau (seul ThisDocument.name)
mais il y a perte de l'historique
Publicité
Poster une réponse
Anonyme