christophe82
XLDnaute Nouveau
Bonjour,
Après avoir parcouru de nombreux forums et essayé plusieurs solutions, je n'arrive toujours pas à coder une macro permettant de fermer le classeur qui m'interesse parmis d'autres qui pourraient être ouverts par l'utilisateur.
L'objectif : le classeur excel doit absolument être fermé pour être remonté sur un serveur le soir. J'ai programmé un timer qui gère la fermeture automatique du classeur si il reste inactif un certain temps (définissable).
Mon problème = la procédure ne fonctionne pas si d'autres classeurs excel sont ouverts en plus de celui qui m'interesse.
J'ai utilisé les codes suivants qui me donnent toujours le même résultat à savoir : "Erreur d'execution '1004' : La méthode 'Select' de l'objet '_Worksheet' a échoué"
et macro arrêtée avec classeurS ouverts.
Dernier code "bourrin" qui ne marche pas :
Sub Ferme()
Dim wb As Workbook
For Each wb In Workbooks
wb.Close True
Next
Application.Quit
End Sub
J'ai également essayé les codes à base de
WorkBooks("nom précis du fichier.xls").Activate
ActiveWorkBook.Close True
...pour le même résultat
J'ai positionné mes différents essais aussi bien dans un module de macro que dans "ThisWorkBook"... pour le même résultat dès qu'un autre classeur est ouvert
Ce cas ne me paraît pas si compliqué et pourtant... c'est sur ça que je coince.
D'avance merci aux bonnes âmes qui auraient une solution à me proposer.
Après avoir parcouru de nombreux forums et essayé plusieurs solutions, je n'arrive toujours pas à coder une macro permettant de fermer le classeur qui m'interesse parmis d'autres qui pourraient être ouverts par l'utilisateur.
L'objectif : le classeur excel doit absolument être fermé pour être remonté sur un serveur le soir. J'ai programmé un timer qui gère la fermeture automatique du classeur si il reste inactif un certain temps (définissable).
Mon problème = la procédure ne fonctionne pas si d'autres classeurs excel sont ouverts en plus de celui qui m'interesse.
J'ai utilisé les codes suivants qui me donnent toujours le même résultat à savoir : "Erreur d'execution '1004' : La méthode 'Select' de l'objet '_Worksheet' a échoué"
et macro arrêtée avec classeurS ouverts.
Dernier code "bourrin" qui ne marche pas :
Sub Ferme()
Dim wb As Workbook
For Each wb In Workbooks
wb.Close True
Next
Application.Quit
End Sub
J'ai également essayé les codes à base de
WorkBooks("nom précis du fichier.xls").Activate
ActiveWorkBook.Close True
...pour le même résultat
J'ai positionné mes différents essais aussi bien dans un module de macro que dans "ThisWorkBook"... pour le même résultat dès qu'un autre classeur est ouvert
Ce cas ne me paraît pas si compliqué et pourtant... c'est sur ça que je coince.
D'avance merci aux bonnes âmes qui auraient une solution à me proposer.