Fermeture automatique classeur

[Christian T]

Bonjour le forum

Je voudrais dans une macro
1 - ouvrir un classeur pour pouvoir le consulter
2 - automatiquement après un certain délai, le feermer, dans l'hypothèse ou j'oublie de la faire

J'ai essayé ces quelques lignes, ça coince.
Sub Macro1()
Dim Start As Double

Workbooks.Open Filename:= _
'C:\\test\\REPERTOIRE.xls'

Start = Timer
Do While Timer < Start + 180
Loop
ActiveWorkbook.Close savechanges:=False

End Sub
Quelqu'un a-t-il une idée ?

Merci d'avance
Christian

 

[Dull]

Salut Christian T, le Forum,

va faire un tour sur Lien supprimé ou tape dans la case rechercher (en haut à droite) ton sujet

@+ :woohoo:

 

[Christian T]

RE bonjour le forum, Bonjour Dull

Merci Dull, je vais comparer la solution du fil que tu m'as signalé avec une solution que je viens de trouver.

Je la livre ici, peut-être interessera-t-elle quelqu'un :
Sub OuvertureFermeture()
'
' Macro1 modifiée

Dim Start As Double
Dim MonFichier As Variant

MonFichier = 'C:\\REPERTOIRE.xls'
Workbooks.Open (MonFichier)
Start = Timer
' Boucle et
' Détermination en secondes du temps d'ouverture de MonFichier (60 secondes ici)
While Timer < Start + 60
'la fonction DoEvents permet de prendre la main pendant la boucle
DoEvents
Wend
ActiveWorkbook.Close savechanges:=False

End Sub
Bonne journée à tous
Christian