ouverture intempestive d'un fichier excel

[philmaure]

bonjour par macro, le soir je referme un fichier excel en l'enregistrant avec la date du jour.
Mon problème est qu'une fois fermé il s'ouvre tout seul automatiquement.
Pour info voici ma macro (pour laquelle vous m'avre aider )

Dans Thisworbook j'ai mis :

Private Sub Workbook_Open()
Application.OnTime TimeValue("19:35:00"), "Ferme1"

End Sub

Puis dans un module :

Sub Ferme1()
'Workbooks("Adhérence à chaud.xls").Close savechanges:=True
ChDir "P:\STAT\Partage\Suivi\Archives"
Workbooks("Adhérence à chaud.xls").SaveAs Filename:="P:\STAT\Partage\Suivi\Archives\Adhérence à chaud " _
& Format(Date, "ddmmyyyy"), _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Workbooks.Open Filename:="P:\STAT\Partage\Suivi\Adhérence à chaud.xls"
End Sub


Merci pour votre aide
Cdlt
philippe

 

[Pierrot93]

Re : ouverture intempestive d'un fichier excel

Bonjour,

essaye ceci, à placer dans le module "thisworkbook" :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime TimeValue("19:35:00"), "Ferme1", , False
End Sub

bon après midi
@+

 

[philmaure]

Re : ouverture intempestive d'un fichier excel

Bonjour Pirrot et merci pour la réponse.
Je vais tester et verrais lundi matin si ca fonctionne.
Je tiendrais le site au courant
Bonne a-m