Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Word Gestion des versions

Gestion des versions

5 réponses
Avatar
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
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour,

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



"bob123" a écrit dans le message de groupe de 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
Avatar
bob123
OK merci
je vais étudier ça

"michdenis" a écrit dans le message de news:

Bonjour,

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



"bob123" a écrit dans le message de groupe de
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



Avatar
GD
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
Avatar
michdenis
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 ?
Avatar
GD
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