Lancer une macro à une date et heure précis

Bonjour,

J'aimerai faire un petit truc humoristique en VBA pour la période de Noel

Lancer une vidéo sympa sur le thème noël pendant le boulot sur un fichier qu'ils utilisent régulièrement

Donc un jour donnée disons vers 10h30, çà lance un truc sur noel

Est ce possible et comment

Bonsoir,

Personne a une idée?

Bonsoir Arakis,

côté VBA Excel, tu as :

côté Windows, regarde le « Planificateur de tâches ».

joyeux Noël humoristique !

dhany

Bonjour Dhany

Le hic j'ai pas trop accès au poste fixe mais à un fichier en réseau oui,

Donc en fait plusieurs personne ouvre le même fichier juste pour lire des informations dessus et j'aimerai que vers 10h30 cela lance la vidéo Noel.avi

Souhait:

A)Impératif

Ouvrir la vidéo Noel.avi

B)Options

Mettre plein écran

Activer le son si c’était bloqué

Bonjour,

Si dans ton entreprise un fichier excel est capable de prendre le contrôle des Windows

des employés à leur insu pour lancer des vidéos… bonjour la sécurité

Essaies plutôt de voir çà avec le responsable informatique du réseau de ton entreprise avant de te faire virer

Bonjour Arakis,

Xmenpl a tout à fait raison !

alors ne vas pas risquer de te faire virer, surtout en période de Noël,

et en plus juste pour une petite blague humoristique !

dhany

bonsoir,

C'était une vidéo sur noel avec des rennes et des sapins.

Je vais mettre des photos dans un userform dans le fichier qui pop à une heure donné çà sera lus simple

J'ai demandé avant aussi

Bonsoir Arakis,

ah oui, c'est joli, les sapins et les rennes, et d'circonstance !

tu vois, y'a pas que cerfs-volants : les rennes-volants aussi, ça existe !

dhany

Bonsoir,

Du coups je mets dans une macro wookbook.open

Ensuite je mets la syntaxe pour déclencher à une heure précise et je mets userform.show?

J'aimerai faire apparaitre 4 ou 5 images

une à 10h10min00 puis 10h10min30s etc

C'est facile de préparer sur un fichier vierge et de mettre au dernier moment dans le bon fichier juste l'ensemble macro et userform, çà prends combien de temps?

* pour afficher ton formulaire, c'est bien avec :

Sub Noël()
  UserForm1.Show
End Sub

* pour le faire à un moment précis, utilise Application.OnTime pour lancer la sub Noël() au moment voulu

* mais ce qui est ci-dessus est pour un formulaire avec une ou plusieurs image(s) fixe(s) !

je n'ai rien d'autre à proposer pour ton sujet.

dhany

Bonjour,

j'ai mis cette procédure et çà a pas lancé mon userform

Private Sub Workbook_Open()
Application.OnTime TimeValue("18:15:00"), UserForm1.Show
End Sub

Bonjour Arakis,

non, c'est pas ça !

* l'instruction qui ouvre le formulaire doit être placée dans une sub

* puis OnTime doit utiliser le nom de la sub

dans Module1 :

Sub ShowForm()
  UserForm1.Show
End Sub

dans ThisWorkbook :

Private Sub Workbook_Open()
  Application.OnTime TimeValue("18:15:00"), ShowForm
End Sub

dhany

Bonsoir,

Je test çà merci beaucoup

Bonsoir,

Je sais pas pourquoi, elle se lance pas

J'avais tester sans parenthèse après Noël

désolé : pour OnTime, j'ai oublié que le nom de la sub doit être entre guillemets !

maintenant, ça devrait se déclencher à 19:00 !

dhany

télécharge vite le fichier avant que 19:00 soit dépassé !

Bonsoir,

Merci Dhany, çà marche impeccable maintenant.

Bonne soirée

merci pour ton retour !

bonne soirée à toi aussi !

dhany

bonsoir,

Un petit détails comment je peux sauvegarder ma macro pour la mettre dans un autre fichier, j'ai créer plusieurs Userform et j'aimerai le mettre dans un fichier différent?

pour mettre ta macro dans un autre fichier, fais pareil que ce que tu as déjà fait.

pour plusieurs formulaires :

dans Module1 : une sub pour chaque formulaire à ouvrir, par exemple :

Sub ShowNoël()
  Noël.Show
End Sub

Sub ShowNouvelAn()
  NouvelAn.Show
End Sub

dans ThisWorkbook : un seul Workbook_Open() pour tous les OnTime :

Private Sub Workbook_Open()
  Application.OnTime TimeValue("20:30:00"), "ShowNoël"
  Application.OnTime TimeValue("20:35:00"), "ShowNouvelAn"
End Sub

dhany