Version XL à la création

[Michel_M]

Bonjour à tous,

Existe t il un moyen pour connaitre la version (ou l'identifiant) Excel avec laquelle a été créé une appli , cad date de création inscrite dans la fenetre "propriétés"?

D'avance Merci
Michel

 

[Zon]

Salut,

Filedatetime("Tonfichier.xls") ne te convient pas ?

A+++

 

[Chris35]

tu peux essayer :

Sub VersionFichier()
Select Case ActiveWorkbook.FileFormat
Case -4143
typ = "Excel 2000"
Case 16
typ = "Excel 2.1"
Case 29
typ = "Excel 3"
Case 33
typ = "feuille Excel 4"
Case 35
typ = "classeur Excel 4"
Case 39
typ = "Excel 5"
Case 43
typ = "Excel 97/2000& 5/95"
Case Else
typ = "inconnu"
End Select
MsgBox "format:" & typ
End Sub


regarde l'aide de FileFormat

======

pour info

il y a :

Sub VersionExcel()
msgBox Application.Version
End Sub

ou =INFO("version") si on est en feuille de calcul


qui donnent la version (non détaillée) de excel que tu utilises.

ActiveWorkbook.Author = "Jean Selva" 'qui définit le nom de l'auteur ds les propriétés

Sub AuteurFichier()
msgBox ActiveWorkbook.Author
End Sub


Désolé mais c'est tout ce peux te dire sur le sujet

à tester

tiens nous au courant si tu trouves mieux

A+

Chris

 

[Michel_M]

bonsoir Zon et Chris,

Merci des tuyaux: je vais essayer sur Excel et Word. Trouver ces versions pourrait peut-être démontrer un licenciement abusif (usage de faux)

Michel

 

[chris35]

Bonne Chance,

mais je crains que ce soit juridiquement bien difficile.

En effet, le Fileformat ne donne que la version d'excel utilisée lors du dernier enregistrement ... et non celui du 1er enregistrement.

Quant aux différentes dates gérées par l'onglet statistiques de propriétés de fichier, elles peuvent toutes être facilement modifiées, sans aucune possibilité de vérification de leur authenticité (à ma connaissance).

A+

Chris

PS : pour infos, tu peux utiliser un algorithme comme le suivant pour lister toutes les propriétés du classeur :

Sub edit_BuiltinDocumentProperties()
Dim Val As Variant
Dim R As Byte
On Error Resume Next
R = 1
For Each Val In ActiveWorkbook.BuiltinDocumentProperties
Cells(R, 1) = Val.Name
Cells(R, 2) = Val.Value
R = R + 1
Next
End Sub

 

[Michel_M]

Bonjour Chris,

Je crains qu'il n'y ait peu d'espoir également à moins de se payer un expert pour trouver l'Id d'origine, et encore...

Merci
et aussi merci pour le dessin de Gotlib ( raah lovely)

Michel