Réalisation d'un affichage dynamique

Bonjour,

J'ai réalisé une macro qui me permettrait d'afficher plusieurs fichier sur un écran chacun leurs tours ( exemple changement toutes les 5 secondes ).

Cependant, dans ces fichiers, l'un d'entre un n'est pas un fichier Excel mais ".application". Je parviens très bien à l'ouvrir mais je ne parviens pas a le réafficher dans ma boucle, je me demande déjà si je parviens bien a rentrer dans ma boucle... Même en "Pas à pas" je ne parviens pas a voir.

Dans mon code ci-dessous, les 3 fichiers s'ouvrent bien et ensuite ca ne marche plus...

Est-ce réalisable en VBA ?

Merci par avance de votre aide.

Sub OuvertureDeFichier()

   Dim MonApplication As Object
   Dim MonFichier1 As String
   Dim MonFichier2 As String
   Dim MonFichier3 As String
   'Dim numero As Integer
   Dim MonAppli, ReturnValue

    Set MonApplication = CreateObject("Shell.Application")

    MonFichier1 = "Chemin d'accès\ControleSQF.application"
    MonApplication.Open (MonFichier1)
    Application.Wait (Now + TimeValue("00:00:05"))

    MonFichier2 = "Chemin d'accès\VFY_SUIVI_CONTROLE_RECEPT_U3.xlsx"
    MonApplication.Open (MonFichier2)
    Application.Wait (Now + TimeValue("00:00:05"))

    MonFichier3 = "Chemin d'accès\Suivi_Charge_Capacité_Controle_reception_v3.3.xlsm"
    MonApplication.Open (MonFichier3)
    Application.Wait (Now + TimeValue("00:00:05"))

   Set MonApplication = Nothing

While vbKeyEscape <> True

    MonFichier1 = "Chemin d'accès\ControleSQF.application"
    MonApplication.Open (MonFichier1)
    Application.Wait (Now + TimeValue("00:00:05"))

    Windows("Suivi_Charge_Capacité_Controle_reception_v3.3.xlsm").Activate
    Sheets("Analyse").Select
    Application.Wait (Now + TimeValue("00:00:05"))

    Windows("VFY_SUIVI_CONTROLE_RECEPT_U3.xlsx").Activate
    Sheets("Feuil1").Select
    Application.Wait (Now + TimeValue("00:00:05"))

Wend

End Sub

Up