FileFormat:=xlExcel8 incompatible Excel 2000

Bonjour,

Des utilisateurs remplissent un formulaire.

Ma macro le sauvegarde avec

ActiveWorkbook.SaveAs Filename:= _

"C:\temp\Demande", FileFormat:=xlExcel8

Ce morceau de code n'est pas reconnu par Excel 2000.

Comment puis je indiquer à la fois à Excel 2000 et à Excel 2007 qu'il faut enregistrer au format Excel 97/2003 et que ce soit reconnu par les 2 versions

merci

Salut le forum

Une tentative n'ayant plus Excel 2000 pour tester

On Error Resume Next
Do
Err.Clear
Fich = Application.GetSaveAsFilename(fileFilter:="Excel Files (*.xls), *.xls")
ActiveWorkbook.SaveAs Filename:=Fich, FileFormat:=xlExcel8
Loop Until Err.Number = 0

Mytå

Bonsoir,

j'ai testé ton idée mais cela n'a pas fonctionné.

Je me suis donc lancé dans une longue recherche sur le forum et les tutos. En compilant j'ai fini par composer un truc qui a l'air de tourner :

If Application.Version = "12.0" Then

ActiveWorkbook.SaveAs Filename:= _

"C:\temp\Demande", FileFormat:=56

Else

ActiveWorkbook.SaveAs Filename:= _

"C:\temp\Demande.xls"

End If

bonne soirée

Prasik