OVH Cloud OVH Cloud

ActiveWorkbook.Close

2 réponses
Avatar
jham
Voici une partie de programme . Mon application plante=20
toujours =E0 activeworkbook.close. Pourtant je l'ai test=E9e=20
sur plusieurs machine et le tout fonctionne. =20
On dirait que seule ma machine ne comprend pas cette=20
commande (et d'ailleurs les autres m=E9thodes de fermeture) =20
Pourtant elle a =E9t=E9 cr=E9=E9e sur ma machine=20

VBA donne comme erreur :
method 'close' of object'_workbook'failed=20

Sub sauvepicture(nomfichier, actualfile)
ActiveWorkbook.SaveAs FileName:=3D _
"C:\" + nomfichier, FileFormat:=3D _
xlNormal, Password:=3D"", WriteResPassword:=3D"",=20
ReadOnlyRecommended:=3DFalse _
, CreateBackup:=3DFalse

Windows(nomfichier).Activate

ActiveWorkbook.Close



End Sub

2 réponses

Avatar
Ledev
Peut être qu'office est mal installez ou endommagé
Dans un premier temps tentez par les macros dans un document(et si c'est
déjà cas, tentez avec VB ou VBScript). Tentez en changeant de document(défoi
que), et en dernier recoure, tentez une réparation d'office(puis si toujours
rien, réinstallation voir si sa change quelque chose).

a+

"jham" a écrit dans le message de
news:01bf01c34bc6$9f2de9e0$
Voici une partie de programme . Mon application plante
toujours à activeworkbook.close. Pourtant je l'ai testée
sur plusieurs machine et le tout fonctionne.
On dirait que seule ma machine ne comprend pas cette
commande (et d'ailleurs les autres méthodes de fermeture)
Pourtant elle a été créée sur ma machine

VBA donne comme erreur :
method 'close' of object'_workbook'failed

Sub sauvepicture(nomfichier, actualfile)
ActiveWorkbook.SaveAs FileName:= _
"C:" + nomfichier, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse _
, CreateBackup:úlse

Windows(nomfichier).Activate

ActiveWorkbook.Close



End Sub
Avatar
jham
J'ai trouvé enfin!!

Un détail qui vous guête tous !
J'avais un add-in en fonction que j'avais ajouté l'an
passé.
Or en le mettant inactif mon programme roule fort bien!!

Pourquoi ce add-in me bloquait une fonction VBA?
curieux...


-----Message d'origine-----
Voici une partie de programme . Mon application plante
toujours à activeworkbook.close. Pourtant je l'ai testée
sur plusieurs machine et le tout fonctionne.
On dirait que seule ma machine ne comprend pas cette
commande (et d'ailleurs les autres méthodes de


fermeture)
Pourtant elle a été créée sur ma machine

VBA donne comme erreur :
method 'close' of object'_workbook'failed

Sub sauvepicture(nomfichier, actualfile)
ActiveWorkbook.SaveAs FileName:= _
"C:" + nomfichier, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:úlse _
, CreateBackup:úlse

Windows(nomfichier).Activate

ActiveWorkbook.Close



End Sub
.