Discussion :

[rudyc14]

Bonsoir à tous,

J'ai un fichier powerpoint qui se nourrit de données issues d'un fichier excel. Les données se mettent à jour automatiquement hors diaporama. Mais dès que je lance le diaporama, les données ne se mettent plus à jour. Je suis obligé d'en sortir, mettre à jour les liaisons manuellement et relancer mon diaporama.
J'aimerais une solution qui me permettrait de rester en diaporama tout en conservant les mises à jour.
Après beaucoup de recherches, je pense qu'il n'y a que la macro qui pourra m'aider mais je suis novice en la matière.
J'ai trouvé cette macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub MAJ()
Dim Forme As Shape
Dim sld As Slide
For Each sld In ActivePresentation.Slides
For Each Forme In sld.Shapes
If Forme.Type = msoLinkedOLEObject Then
Forme.LinkFormat.Update
End If
Next
 
End Sub

Celle ci fonctionne très bien lorsque je l'affecte à un bouton. Mais l'idée serait plutôt d'avoir cette macro qui s’exécute automatiquement sur la dernière slide. Le diaporama pourrait donc tourner en boucle sans opérations de ma part.

Est ce que ça vous parez possible? Auriez vous des idées?

Merci par avance.

[jlchaps]

Bonjour,
J'ai le même problème. Avez-vous trouvé une solution ?
Merci de votre aide et de vos conseils.

[rudyc14]

Bonsoir,

J'ai résolu le problème grâce à cette macro :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
If SSW.View.CurrentShowPosition = 1 Then
    ActivePresentation.UpdateLinks
End If
End Sub

Cordialement.

[jlchaps]

J'ai galéré sur plusieurs Forum pour rechercher une solution fiable et qui tourne toute seule, entre un diaporama qui tourne 24h/24 et un fichier Excel lié.
La présentation se fait par un PC dédié. Les fichiers Excel et PowerPoint sont sur le réseau.
La macro du premier post de cette discussion m'a beaucoup aidé ... merci.
D'autre réponses sur d'autres discussions m'ont aussi aidé !

Voilà ce que j'ai fait ... j'espère que cela va vous aider

PROCÉDURE PRÉSENTATION POWERPOINT avec LIENS vers EXCEL en Automatique :

1. Fichier Excel lié :

En premier lieu, pour le fichier Excel qui contient les données à faire apparaître dans la présentation :

• Doit être enregistré au format XLSM
• Avec une macro dans « Thisworkbook » qui permet
  
  • De mettre à jour les tableaux croisées dynamique en dur
  • De sauvegarder le fichier
  • D’attendre 60 secondes sans bloquer le fichier
  • De le fermer

MACRO :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()
    temps_début = Timer
    ThisWorkbook.RefreshAll
    ActiveWorkbook.Save
'    Application.Wait Time + TimeSerial(0, 0, 30)
    Do While Timer < temps_début + 60
        DoEvents
    Loop
    ActiveWorkbook.Close
 
End Sub

- ATTENTION : Excel sur le PC de présentation DOIT être paramétré avec l’option "Activer toutes les macros" (et pas sur les autres PC, sinon personne ne pourra le modifier).


2. Fichier Présentation PowerPoint :

Présentation PowerPoint :

• Doit être enregistré au format PPTM
• Les cellules Excel sélectionnées dans le fichier Excel d’origine doivent être au bon format et doivent être copiés dans le PowerPoint avec Collage Spécial - coller le lien - objet feuille de calcul Microsoft Excel
• Les mises à jour des liaisons ne doivent pas être en mode automatique :
  
  • Menu « Informations » en bas à droite
  • Zone « Mise à jour automatique » décochée partout
• Une Macro appelée « MAJ » est enregistrée dans le PowerPoint (sans association à un bouton ou autre zone). Elle a pour fonction :
  
  • Parcours du document pour recherche dans chaque slide
  • Pour chaque objet qui est lié à un lien externe : Mise à jour du lien associé
  • A la fin, sauvegarde et fermeture

MACRO :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub MAJ()
Dim Forme As Shape
Dim sld As Slide
For Each sld In ActivePresentation.Slides
For Each Forme In sld.Shapes
If Forme.Type = msoLinkedOLEObject Then
Forme.LinkFormat.Update
End If
Next
Next
With Application.ActivePresentation
    If Not .Saved And .Path <> "" Then .Save
.Close
End With
End Sub

Cette Macro n’est pas utilisée dans la présentation PPTM mais sera utilisée plus loin

- En fin de mise à jour du PowerPoint, sauvegarder la présentation PPTM (Ctrl+S) puis faire « Enregistrer Sous … » (ou F12) pour sauvegarder la présentation en mode PPSM = « Diaporama PowerPoint prenant en charge les macros (*.ppsm) » dans un dossier avec un nom FIXE => en l’occurrence pour moi EcranZapActu.ppsm

A ce stade, les fichiers principaux sont prêts.

3. Sur le PC qui assure l’Affichage Dynamique :

Pour moi, ce PC sera connecté à un écran grand format et n’aura pas de clavier ni de souris. Il sera en réseau et accessible à distance par TeamViewer.
Un dossier c:\ecran qui contient les documents.
L’utilisateur de connexion devra avoir les autorisations pour aller dans les dossiers réseau et utiliser les fichiers nécessaires.
Le planificateur de tâche lancera à intervalle régulier (à définir par chacun), une succession de 7 commandes, chacune enregistrée dans un fichier BAT (fichier Texte avec extension .BAT) :

• 1 ° tâche à l’heure T :
  
  • o arrêt de présentation en cours
    o c:\windows\system32\taskkill /f /im POWERPNT.exe
• 2° tâche 15 secondes plus tard :
  
  • Récupération fichier PPSM depuis le réseau
  • copy "\\chemin réseau\EcranZapActu.ppsm" c:\ecran\EcranZapActu.ppsm /y
• 3° tâche 15 secondes plus tard :
  
  • Ouverture du fichier Excel sur le réseau
  • "C:\Program Files\Microsoft Office\Office16\EXCEL.EXE" "\\chemin réseau\fichier excel.xlsm"
  • Le fichier Excel va rester ouvert 60 secondes le temps que la 4° tâche se termine
  • Après 60 secondes la Macro va fermer le fichier Excel
• 4° tâche 15 secondes plus tard :
  
  • Mise à jour du fichier EcranZapActu.ppsm
  • "C:\Program Files\Microsoft Office\Office16\POWERPNT.EXE" /M "c:\ecran\EcranZapActu.ppsm" "MAJ"
  • Cette commande va lancer la Macro MAJ sur le fichier PPSM qui va effectuer la mise à jour des liens entre le fichier Excel qui a été ouvert ci-dessus et le Diaporama PPSM, puis enregistrer et fermer le fichier PPSM
• 5° tâche 60 secondes plus tard :
  
  • Fin de tâche sur POWERPNT
  • "c:\windows\system32\taskkill /f /im POWERPNT.exe
  • Pour fermer la fenêtre POWERPNT qui est restée ouverte
• 6° tâche 15 secondes plus tard :
  
  • Fin de tâche sur EXCEL
  • c:\windows\system32\taskkill /f /im EXCEL.exe
  • Pour fermer la fenêtre EXCEL qui est restée ouverte
• 7° tâche 15 secondes plus tard :
  
  • Lancement du Diaporama
  • c:\ecran\EcranZapActu.ppsm

Les espacements en secondes entre les tâches sont à définir par chacun en fonction de la durée de traitement sur le PC.