Problème pour afficher une feuille d'un autre classeur

Bonjour

J'ai un soucis.

Je fais des essais pour afficher successivement des feuilles de différents classeurs.

La macro bloque sur la ligne en rouge ( quand je change de fichier !!!):

Sheets("Feuil1").Select

Application.DisplayFullScreen = True

Application.Wait (Now + TimeValue("0:00:05"))

Sheets("Feuil2").Select

Application.DisplayFullScreen = True

Application.Wait (Now + TimeValue("0:00:05"))

Workbooks("AFFICHAGE PODIUM PAR CATÉGORIE.xlsm").Sheets("Feuil1").Select

Où est l'erreur??

Merci

Yvan

Bonjour,

Si j'ai bien compris ?!

    Workbooks("AFFICHAGE PODIUM PAR CATÉGORIE.xlsm").open
    Sheets("Feuil1").Select
    'Et pas besoin de mettre 2 fois du moins ou tu le met, eventuellement.. ici
    Application.DisplayFullScreen = True

Mais pour l'ouvrir il faut spécifier le chemin

A+

EDIT : S'il est déjà ouvert..

    Workbooks("AFFICHAGE PODIUM PAR CATÉGORIE.xlsm").Activate
    Sheets("Feuil1").Select

Très bien. Merci pour ta réponse. Cela va me permettre de panacher mon affichage vidéo-projeté entre plusieurs classeurs.

Par contre ma vidéoprojection devant tourner en boucle toute la journée, comment écrire la boucle par exemple en partant de ce début de macro. Je souhaiterai aussi qu'elle puisse être facilement interrompu ( par la touche Echap par exemple )

Sub Macro3()

'

' Macro3 Macro

' affichage des pages

'

'

Sheets("Feuil1").Select

Application.DisplayFullScreen = True

Application.Wait (Now + TimeValue("0:00:05"))

Sheets("Feuil2").Select

Application.DisplayFullScreen = True

Application.Wait (Now + TimeValue("0:00:05"))

Workbooks("essai2.xlsm").Activate

Sheets("Feuil1").Select

Application.DisplayFullScreen = True

Application.Wait (Now + TimeValue("0:00:05"))

End Sub

merci

Yvan

Bonjour,

Colle tout le code dans un nouveau module

Option Explicit

Dim Tourne As Boolean
Sub BoucleFeuille()
Static t
Dim P1 As Boolean, P2 As Boolean, P3 As Boolean
Dim S As Integer 'Délais entre changement
    Tourne = True
    S = 5 'Pour cinq secondes
    Application.DisplayFullScreen = True

    Windows("Classeur2").WindowState = xlMaximized
    Windows("Classeur1").WindowState = xlMaximized
    Workbooks("Classeur1").Activate
    t = Timer + 20
    Do While Tourne
        If Timer > t Then
            Sheets("Feuil2").Select
            t = Timer + 20
            P1 = False: P2 = False: P3 = False
        ElseIf Timer > t - S Then
            If Not P3 Then
                Workbooks("Classeur1").Activate
                Sheets("Feuil1").Select
                P3 = True
            End If
        ElseIf Timer > t - (S * 2) Then
            If Not P2 Then
                Sheets("Feuil2").Select
                P2 = True
            End If
        ElseIf Timer > t - (S * 3) Then
            If Not P1 Then
                Workbooks("Classeur2").Activate
                Sheets("Feuil1").Select
                P1 = True
            End If
        End If
    DoEvents
    Loop
End Sub

Sub arret()
    Tourne = False
End Sub

Bien sûr adapte les noms des classeurs et des feuilles.

Mettre un raccourci sur la macro BoucleFeuille par x: Ctrl+D

Mettre un raccourci sur la macro arret par ex: Ctrl+S

Ce qui donnerait Ctrl+D -> Démarrage du défilement

Ctrl+S -> Stop

A+