Fermeture automatique d'un fichier

chernirachid · 18 Décembre 2015

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 · 18 Décembre 2015

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 · 18 Décembre 2015

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 · 18 Décembre 2015

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

Fermeture automatique d'un fichier

chernirachid

XLDnaute Nouveau

CPk

XLDnaute Impliqué

CPk

XLDnaute Impliqué

CPk

XLDnaute Impliqué

Discussions similaires