Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Fermeture automatique classeur

Christian T

XLDnaute Nouveau
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
 

Christian T

XLDnaute Nouveau
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…