XL 2010 Afficher un excel/PDF sur une TV

[florentM]

Bonjour,

J'ai aujourd'hui un excel dans lequel j'ai des données mises en forme sur plusieurs feuilles (2 à 4 feuilles).

J'aimerais afficher ces feuilles sur une TV avec changement de feuille toutes les 30 secondes par exemple.

J'avais pensé imprimer l'excel en PDF et l'ouvrir avec un lecteur mais je n'arrive pas à automatiser le changement de feuille..

Pouvez vous m'aider s'il vous plait? Merci d'avance !

(Je peux utiliser des logiciels Microsoft type PowerAutomate)

 

[sylvanu]

Bonjour Florent,
Un essai en PJ avec :

Sub Tourne()
NbSecondesAttente = 1                       ' Temps d'affichage d'une feuille en secondes

nbfeuilles = ActiveWorkbook.Sheets.Count
Encore:
For F = 1 To nbfeuilles
    If Fin = 1 Then Exit Sub
    Sheets(F).Activate
    Application.Wait Time + TimeSerial(0, 0, NbSecondesAttente)
Next F
GoTo Encore
End Sub

Dans l'état seul un Esc peut sortir.

 

[florentM]

Bonjour Sylvanu

Merci pour ce retour.

Malheuresement, lorsqu'on sort de la boucle, il y a une erreur et je n'arrive pas a afficher proprement l'excel en plein écran..

Quelqu'un d'autre possède-t-il une solution?

 

[sylvanu]

Bonjour,

Dans l'état seul un Esc peut sortir.

C'est ce que j'ai dit. je n'ai pas traité ce point car pas dans la requête initiale. La problèmatique était de faire défiler des feuilles à intervalles réguliers.

je n'arrive pas a afficher proprement l'excel en plein écran..

Il suffit de rajouter :

Application.DisplayFullScreen = True

J'ai testé, ça marche.

En PJ on est full screen et l'arrêt se fait sur appui sur la touche CTRL.
Le lancement se fait par ALT+F8 Tourne.