XL 2010 Afficher un excel/PDF sur une TV

florentM

XLDnaute Nouveau
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

XLDnaute Barbatruc
Supporter XLD
Bonjour Florent,
Un essai en PJ avec :
VB:
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.
 

Pièces jointes

  • Tourne.xlsm
    15.6 KB · Affichages: 17

sylvanu

XLDnaute Barbatruc
Supporter XLD
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 :
VB:
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.
 

Pièces jointes

  • Tourne (2).xlsm
    18.8 KB · Affichages: 8

Discussions similaires

Statistiques des forums

Discussions
314 491
Messages
2 110 177
Membres
110 690
dernier inscrit
Zeppelin