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
Michel Pierron
Bonjour knarf;
' Laurent Longre Sub VersionFichier() Select Case ActiveWorkbook.FileFormat Case -4143: typ = "Excel 2000 et plus" 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 "File format: " & typ & " !", 64 End Sub
MP
"knarf" a écrit dans le message de news:0c2401c3f55f$33be3eb0$ salut, quelqu'un peut-il me dire comment on fait en VBA pour retrouver la version d'excel qui a servi a créer un fichier x ???
merci d'avance
kanrf
Bonjour knarf;
' Laurent Longre
Sub VersionFichier()
Select Case ActiveWorkbook.FileFormat
Case -4143: typ = "Excel 2000 et plus"
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 "File format: " & typ & " !", 64
End Sub
MP
"knarf" <franck.racine@worldonline.fr> a écrit dans le message de
news:0c2401c3f55f$33be3eb0$3a01280a@phx.gbl...
salut, quelqu'un peut-il me dire comment on fait en VBA
pour retrouver la version d'excel qui a servi a créer un
fichier x ???
' Laurent Longre Sub VersionFichier() Select Case ActiveWorkbook.FileFormat Case -4143: typ = "Excel 2000 et plus" 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 "File format: " & typ & " !", 64 End Sub
MP
"knarf" a écrit dans le message de news:0c2401c3f55f$33be3eb0$ salut, quelqu'un peut-il me dire comment on fait en VBA pour retrouver la version d'excel qui a servi a créer un fichier x ???