ActiveWorkbook.SaveAs 2003 et 2007

David · 27 Octobre 2009

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.

Code:

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

Et celui qui marche :

Code:

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

Merci pour votre aide

fhoest · 27 Octobre 2009

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 · 27 Octobre 2009

Re : ActiveWorkbook.SaveAs 2003 et 2007

Merci fhoest pour ta réponse.

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

Code:

 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

ActiveWorkbook.SaveAs 2003 et 2007

David

XLDnaute Occasionnel

fhoest

XLDnaute Accro

David

XLDnaute Occasionnel

Discussions similaires

ActiveWorkbook.SaveAs 2003 et 2007

David

XLDnaute Occasionnel

fhoest

XLDnaute Accro

David

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency