ActiveWorkbook.SaveAs 2003 et 2007

[David]

Bonjour à tous

J'ai un drole de problème, sureùent une option que je n'ai pas vu ou quelque chose du genre.

J'utilise ActiveWorkbook.SaveAs sur 2 fichiers différents.

Sous 2003 pas de problème, sous 2007 un marche et pour l'autre j'ai un message d'erreur :

Les fonctionnalités suivantes ne peuvent pas être enregistrées dans des classeurs sans macro

.Projet VB

Ce que je ne comprend pas c'est pourquoi l'un marche et pas l'autre ???

Je vous met le code des 2, j'ai besoin que ça marche sous 2003 et 2007.

    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Résultats Dev.xls", _
        Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=True, CreateBackup:=False

Et celui qui marche :

ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Résultats Ac.xls", _
Password:="", WriteRespassword:="", _
ReadOnlyRecommended:=True, CreateBackup:=False

Merci pour votre aide

 

[fhoest]

Re : ActiveWorkbook.SaveAs 2003 et 2007

bonjour,
je suis nouveau sur le site,
je remarque dans le code qui fonctionne WriteRespassword:="", et celui qui ne fonctionne pas le p est en majuscule, ensuite si je comprend bien les deux lignes de code sont pour 2007 ? si pas, peut etre les extension de fichier qui ne sont pas bonne,
il m'ai deja arriver de devoir effacé un bon complet de code et de le réécrire pour que ca fonctionne
fhoest...

 

[David]

Re : ActiveWorkbook.SaveAs 2003 et 2007

Merci fhoest pour ta réponse.

J'ai contourné le problème avec en If else.

 If Val(Application.Version) < 12 Then
FileFormat:=xlExcel9795
Else
FileFormat:=xlExcel8
End If

Et ça à l'air de marcher parfaitement.

Ps: le code n'est pas entier 😉.

Merci à tous