Fermeture automatique d'un fichier

[chernirachid]

Bonjour,
j'ai un fichier qu'on utilise sur réseau, et avec un bouton macro on ouvre un autre fichier réseau aussi (qui est sans macro et je ne veux pas utiliser un macro dedans) je veux que ce dernier se ferme automatiquement après un certain temps. Merci pour vos aides

 

[CPk]

Re : Fermeture automatique d'un fichier

Bonjour à placer dans thisworkbook

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:0:15"), "fermeclasseur"
End Sub


A placer dans un module :

Sub fermeclasseur()
ThisWorkbook.Close
End Sub

 

[CPk]

Re : Fermeture automatique d'un fichier

Bonjour à placer dans thisworkbook

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:0:15"), "fermeclasseur"
End Sub


A placer dans un module :

Sub fermeclasseur()
workbook("nom du fichier").close
End Sub

 

[CPk]

Re : Fermeture automatique d'un fichier

Bonjour à placer dans thisworkbook

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:0:15"), "fermeclasseur"
End Sub


A placer dans un module :

Sub fermeclasseur()
workbooks("nom du fichier.extension").close
End Sub