Lancer une macro à une date et heure précis

Mince du coup faut que je rapatrie toues mes photos

on peux pas exporter note projet VBA pour insérer dans un autre fichier?

tu peux ouvrir un autre classeur Excel sans refermer le précédent ; quand tu vas sur Visual Basic, ils sont tous dans ta fenêtre de projet ; tu peux cliquer sur un module pour le faire glisser d'un projet à un autre ; idem pour un formulaire ; mais pour le code d'une feuille ou de ThisWorkbook, faut faire un copier/coller du code VBA.

dhany

Bonsoir,

Si tu a un dernier tuyau pour mettre excel au premier plan,

car il sera peut être caché par un PDF donc j'aimerai que excel vienne au premier plan pour que les images soient visible

Merci

oh là ! c'est pas évident, ça ! faudrait que Excel soit lancé après l'ouverture du fichier PDF, et que la fenêtre d'Excel soit ouverte en mode « Fenêtre agrandie » pour qu'elle occupe tout l'écran (éventuellement en mode « Plein écran » aussi).

mais si c'est le code VBA d'Excel qui lance l'ouverture du fichier PDF, il a donc le contrôle et peut revenir à lui-même avec :

ThisWorkbook.Activate ; sinon, c'est Windows plutôt que Excel qui doit gérer les différentes applications ; donc là,

faut voir du côté « Planificateur de tâches ».

à part ça, j'ai pas d'autre idée à proposer.

dhany

Bonsoir,

Le fichier PDF sera ouvert manuellement, c'est pour etre sur que quand mes Userforms vont se lancer ils seront pas caché

merci pour ton info supplémentaire, mais pour ça, j'peux pas t'aider plus.

bonne chance quand même ! et joyeux Noël !

dhany

Bonsoir,

Merci quand même pour ton aide précieuse, bonne soirée

Bonsoir,

cette ligne de code permet d'afficher une pop up par dessus toutes les applications :

CreateObject("Wscript.shell").Popup "Jouyeux Noël @ tous !" & vbCrLf & "Désolé, il manque la musique" & vbCrLf & "et la vidéo !" & vbCrLf & "Au moins la fenêtre est devant", 4, "Information"

Ici ce n'est qu'un message d'information, mais dans la même idée il est peut-être faisable d'y ajouter une commande de lancement de vidéo...

@ bientôt

LouReeD

Bonsoir loureed

C'est pas mal ton truc aussi

Bonsoir,

Je sais je sais...

@ bientôt

LouReeD

@Arakis

tu a écrit :

Bonsoir LouReeD

C'est pas mal ton truc aussi

oui, hein, n'est-ce pas ? c'est pour ça qu'j'ai mis un ♡ sur son post (et y'a rien qui t'empêche de faire pareil ! )

@LouReeD

tu a écrit :

Je sais je sais...

pas de fausse modestie, voyons !

ce que tu as proposé avec CreateObject("Wscript.shell").Popup... est vraiment très bien !

dhany

bonsoir,

tu a vu mon message privé dhany?

oui, j'viens d'y répondre.

dhany

Bonsoir,

J'ai fais ma petite animation avec les photos sur le thème de Noël qui se lance plus ou moins à l'improviste et passe au premier plan devant les autres applications(pdf, internet, etc.

Les personnes étaient super contente, j'avais espacé de 4s les photos et çà à durer moins de 30s.

Pour passer au premier plan j'ai utilisé

Application.WindowState = xlNormal
Application.WindowState = xlMaximized

Donc merci pour votre aide, je passe en résolu.

Bonne fin de journée.

merci pour ton retour d'infos !

pour passer le sujet en résolu, clique sur près de (coin haut droit du post) ➯

bonne fin de journée à toi aussi !

dhany

Bonsoir,

le code définitif et fonctionnel donne donc ?

@ bientôt

LouReeD

Bonsoir,

Coucou Lou reed

Il est à mon travail, je le poste Lundi

Bonne fin de journée

Bonjour,

Voici mon fichier,

j'ai modifié pour que çà pop 5s après ouverture fichier,

Sinon on enlève Now et on mets l'heure souhaitée

Dans This Workbook

Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:02"), "plan"
Application.OnTime Now + TimeValue("00:00:06"), "noel1"
Application.OnTime Now + TimeValue("00:00:10"), "noel2"
Application.OnTime Now + TimeValue("00:00:13"), "noel3"
Application.OnTime Now + TimeValue("00:00:16"), "noel4"
Application.OnTime Now + TimeValue("00:00:19"), "noel5"
Application.OnTime Now + TimeValue("00:00:22"), "noel6"
Application.OnTime Now + TimeValue("00:00:25"), "noel7"
Application.OnTime Now + TimeValue("00:00:28"), "noel8"
Application.OnTime Now + TimeValue("00:00:31"), "noel9"
Application.OnTime Now + TimeValue("00:00:34"), "noel10"
Application.OnTime Now + TimeValue("00:00:38"), "message"

End Sub

Dans Module 1

Sub plan()
Application.WindowState = xlMinimized
Application.WindowState = xlMaximized
End Sub

Sub noel1()
UserForm1.Show 'vbModeless
End Sub

Sub noel2()
UserForm2.Show 'vbModeless
End Sub

Sub noel3()
UserForm3.Show 'vbModeless
End Sub

Sub noel4()
UserForm4.Show 'vbModeless
End Sub

Sub noel5()
UserForm5.Show 'vbModeless
End Sub

Sub noel6()
UserForm6.Show 'vbModeless
End Sub

Sub noel7()
UserForm7.Show 'vbModeless
End Sub

Sub noel8()
UserForm8.Show 'vbModeless
End Sub

Sub noel9()
UserForm9.Show 'vbModeless
End Sub

Sub noel10()
UserForm10.Show 'vbModeless
End Sub

Sub message()

CreateObject("Wscript.shell").Popup "Joyeux Noël @ tous !" & vbCrLf & "Désolé, il manque la musique" & vbCrLf & "et la vidéo ", 4, "Information"

End Sub

Merci pour votre aide LouReed et Dhany, le fichier étant trop volumineux, je ne peux pas l'insérer

Bonne fête fin d'année à tout le monde.

Bonjour Arakis,

merci pour ton retour, et pour avoir partagé ta solution !

bonnes fêtes de fin d'année à toi aussi !

dhany

bonjour,

Dhany sais tu comment faire pour avoir des images de bonne qualité pour mettre dans un Userform?

Car j'ai voulu recreer mon fichier de 0 et je trouvais plus la grange taille de image sur ne let et du coup çà bavais les couleurs sur mon nouveau fichier