Problème avec Close

[tontonexcel]

Bonsoir à tous,

J'ai des difficultés concernant ce programme VBA joint

C'est un simple test sur un enregistrer sous et une fermeture

Sub truc()

ActiveWorkbook.Save

ActiveWorkbook.SaveAs Filename:="D:\Jeux\toto_2016.xlsm"

Range("A2").Value = 10

Workbooks.Open Filename:="D:\Jeux\toto_2015.xlsm"

Workbooks("toto_2015.xlsm").Activate

Range("A5").Value = 15

Workbooks("toto_2016.xlsm").Close

MsgBox "ok"
End Sub

Rien ne plante seul le msgbox n'est pas exécuté, je ne comprends pas puisque j'active bien le classeur toto_2015 et que logiquement le programme devrait continuer dans ce classeur quoi qu'il arrive
Je joins le classeur, avez-vous une explication ?
merci d'avance

 

[job75]

Re : Problème avec Close

Bonsoir tontonexcel,

Rien ne plante seul le msgbox n'est pas exécuté, je ne comprends pas puisque j'active bien le classeur toto_2015 et que logiquement le programme devrait continuer dans ce classeur quoi qu'il arrive

Justement pas, après le SaveAs la macro continue dans toto_2016.xlsm et comme vous fermez ce fichier rien ne peut s'exécuter ensuite.

Bonne fin de soirée.

 

[job75]

Re : Problème avec Close

Re,

Précision : la MsgBox ne s'exécute pas quand ActiveWorkbook est le ThisWorkbook de la macro.

Elle s'exécute si la macro est dans un autre classeur que ActiveWorkbook.

A+

 

[tontonexcel]

Re : Problème avec Close

Bonjour job75

merci de m'avoir répondu, effectivement j'ai compris mon erreur après avoir vu cela FAQ VBA
Bonne journée