Ouvrir classeur excel certaine heure

[Jeremyy]

Bonjour a tous, je voudrais que un fichier s'oure automatiquement à 15h et lance une macro.

Comment faire?

Merci d'avance a tous

 

[mromain]

Re : Ouvrir classeur excel certaine heure

bonjour Jeremyy

une solution serait de créer un fichier excel avec ce code à l'ouverture du fichier :

Private Sub Workbook_Open()
Application.Visible = False
While "[COLOR="Red"][B]9:31:0[/B][/COLOR]" <> CStr((Hour(Now) & ":" & Minute(Now) & ":" & Second(Now)))
    DoEvents
Wend
Application.Workbooks.Open ("[COLOR="Red"][B]C:\toto.xls[/B][/COLOR]")
Application.Visible = True
ThisWorkbook.Close SaveChanges:=False
End Sub

(l'heure et le nom de fichier à adapter)


et ensuite, tu t'arrange pour que ce fichier se lance au démarage de Windows (Ce lien n'existe plus).

pour que le fichier qui s'ouvre lance une macro, il suffit de la placer (ou de l'appeler) dans le sub "Workbook_Open"

a+

 

[Dull]

Re : Ouvrir classeur excel certaine heure

Salut Jeremyy, mromain, le Forum

Regarde ce Fil

Bonne Journée

 

[kjin]

Re : Ouvrir classeur excel certaine heure

Bonjour,
Et qui appuie sur le bouton "activer les macros" ?!
A+
kjin

 

[Jeremyy]

Re : Ouvrir classeur excel certaine heure

merci a vous tous, j'ai commencé a creusé l'idée de mromain mais le probleme c'est que sa me cache tout mes classeurs ...

 

[mromain]

Re : Ouvrir classeur excel certaine heure

re,

voila pour éviter de cacher l'appli (si d'autres classeurs sont déja ouverts)
au pire, supprime les lignes en gras.

Private Sub Workbook_Open()
[B]If Application.Workbooks.Count > 1 Then Application.Visible = False[/B]
While "9:31:0" <> CStr((Hour(Now) & ":" & Minute(Now) & ":" & Second(Now)))
    DoEvents
Wend
Application.Workbooks.Open ("C:\toto.xls")
[B]If Application.Visible = False Then Application.Visible = True[/B]
ThisWorkbook.Close SaveChanges:=False
End Sub

a+

 

[kjin]

Re : Ouvrir classeur excel certaine heure

Re,
Comme tu est une personne prudente, tu auras sans doute mit le niveau sécu des macros d'Excel sur moyen (voir haut)
Comme je l'ai suggéré, tu ne peux pas activer ou désactiver les macros par... macro ! Donc pour répondre précisémment à ta question, soit tu mets le niveau sécu d'Excel au niveau bas (à tes risques et périls) auquel cas tu peux utiliser le gestionnaire de tâches planifiées de windows et programmer l'ouverture de ton classeur à 17h, soit tu ouvres ton classeur à l'allummage de l'ordi (faut pas oublier !) et tu actives les macros.
Dans les 2 cas, dans un module standard

Sub message()
ActiveWindow.WindowState = xlMaximized
MsgBox "il est l'Hor Monseignor"
End Sub
Sub Auto_Open()
Application.OnTime TimeValue("17:00:00"), "message"
ActiveWindow.WindowState = xlMinimized
End Sub

A+
kjin

 

[Jeremyy]

Re : Ouvrir classeur excel certaine heure

merci. en faite le probleme avec le code de mromain est que après l ouverture du classeur qui sera caché tout les classeurs que j'ouvre ensuite ne sont pas visible non plus. 😡!

Et comme c'est a mon travail le planificateur de tache ne marche 🙁

Merci a tous pour votre aide bonne ap' 😉

 

[mromain]

Re : Ouvrir classeur excel certaine heure

re Jeremi,

au pire, supprime les lignes en gras.

a+

 

[kjin]

Re : Ouvrir classeur excel certaine heure

Re,
Et pourquoi cacher le classeur ?!
A+
kjin