xlOpenXMLWorkbook et excel 2003

[siocnarf]

Bonjour

Avec Excel 2003, lorsque "option explicit" est spécifié, j'obtiens une erreur au début de la routine avec xlOpenXMLWorkbook mais avec Excel 2007, il n'y a pas de problème. Pour supprimer l'erreur sous excel 2003, je dois mettre en remarque Option Explicit.

Comment pourrais-je contourner cette problématique avec Excel 2003?

Option Explicit

Select Case Application.Version

    Case Is <= "11.0"

         ActiveWorkbook.SaveAs Filename:="c:\temp\test.xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
        
    Case Is > "11.0"

        ActiveWorkbook.SaveAs Filename:="c:\temp\test.xlsx", FileFormat:=xlOpenXMLWorkbook, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
        'MsgBox CT_CheminSauvegarde
        'ActiveWorkbook.SaveAs Filename:= _
        '"H:\Support PES\Analyse des erreurs\rraf005\Data\test2.xlsx", FileFormat:= _
        'xlOpenXMLWorkbook, CreateBackup:=False
        
End Select

Merci,


François Racine

 

[tototiti2008]

Re : xlOpenXMLWorkbook et excel 2003

Bonjour François,

xlOpenXMLWorkbook est une constante qui vaut 51, si tu la remplace par sa valeur tu n'auras pas de soucis

 

[siocnarf]

Re : xlOpenXMLWorkbook et excel 2003

Problème réglé!