Fermeture du bon fichier
Bonjour à tous !
J'ai un problème sur le fichier suivant "SUIVI DES FICHES D'ANOMALIE". Je cherche à le fermer automatiquement à 20h00.
Le problème est qu'avec les codes suivants, il ferme le classeur actif si j'en ai plusieurs d'ouverts. Je veux cibler le bon fichier.
Voici mes codes :
Sub actualisation()
If ThisWorkbook.ReadOnly Then Exit Sub
ActiveWorkbook.RefreshAll
End Sub**********************************************************************
Sub fermeture()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub**********************************************************************
Private Sub Workbook_Open()
Call actualisation
Application.OnTime TimeValue("20:00:00"), "fermeture"
End SubAvez-vous une autre solution que :
Sub fermeture()
Windows("SUIVI DES FICHES D'ANOMALIE").Activate
ActiveWorkbook.Save
ActiveWorkbook.Close
End SubJ'aimerais ne pas cibler le nom du fichier car ce code génère des erreurs et en plus, je ne suis pas à l'abri que des gens modifient le nom du fichier ..
Cordialement,
Charles CARON
E
Bonjour,
Si la macro se trouve dans le fichier visé vous pouvez le fermer à l'aide de l'instruction :
ThisWorkbook.CloseCdlt,