[PPT-2007] Lancer une Macro via la barre d'accès rapide

[bilay]

Bonjour,

J'ai développé une macro qui met à jour une table des matières dans un slide.

Je cherche donc à mettre en place une méthode pour exécuter cette macro simplement (je ne veux pas passer par le bandeau développeur car je souhaite donner accès à cette macro le plus simplement possible à des personnes ne maîtrisant pas les macros office).

Je ne trouve aucun moyen de lancer une macro simplement sans passer en mode diaporama ce que je ne souhaite pas.

J'ai une piste, associer ma macro à un bouton dans la barre d'accès rapide du fichier PPT.

Cela fonctionne sauf que lorsque je renomme le fichier, rien ne marche plus car le lien vers la macro embarque le nom du fichier (grande idée de Microsoft !).

Ce qui est bizarre c'est que cette méthode fonctionne très bien avec Excel 2007, en effet, en effectuant la même manipulation dans Excel 2007, le nom du fichier n'est pas présent dans le lien vers la macro. Seul le nom de la macro compte.

Bref, observant cela, je me suis dit que j'allais, via une macro, virer le nom du fichier devant le nom de la macro présent dans le liens de la barre d'accès rapide.

Et là je bloque, je ne trouve aucune documentation concernant les objets VBA de cette barre d'accès rapide.

Si l'un d'entre vous à une idée je suis vraiment preneur !

Guillaume

[Philippe JOCHMANS]

Bonjour

Excel comporte un classeur où se trouve toutes les macros qui peuvent être utilisées partout, ce qui n'est pas le cas sous PPT.

As-tu essayé avec un complément ? (Voir les tutos sur PPT).
Mais un complément sera pour toutes les présentations de ton PC.

Philippe

[bilay]

Merci pour cette réponse.

Effectivement, j'ai essayé avec les compléments mais par ce biais, le bouton lançant la macro n'est pas lié à la présentation mais au PC, je m'explique :
si j'envoie ma présentation par mail, mon correspondant ne verra pas le boutons personnalisés permettant d’exécuter la macro dans sa barre de complément.

[Philippe JOCHMANS]

Bonjour

Cela fonctionne sauf que lorsque je renomme le fichier, rien ne marche plus car le lien vers la macro embarque le nom du fichier (grande idée de Microsoft !).

Il y a peut-être quelque chose à faire dans le code pour le nom du fichier soit dynamique, pour cela il faudrait le code.

Philippe

[bilay]

Je pense aussi qu'il doit être possible de faire quelque chose dans le code.
Pour l'instant mon code est hyper simple :

Code :

1
2
3
Sub test()
MsgBox "test"
End Sub

Le but étant de lancer la macro "test" via un bouton de la barre de lancement rapide.

[Philippe JOCHMANS]

Re

Sous quel format est enregistré le fichier finale, quelle est l'extension ?

Philippe

[bilay]

Évidemment l’extension est ".pptm"
je n'ai aucun problème avec la macro que j'arrive à lancer via le bandeau développeur. La macro fonctionne bien quel que soit le nom du fichier PPT.

Le problème est d'arriver à exécuter cette macro sans passer par le bandeau "développeur" car ça ne passera pas avec mes utilisateurs.

[Ormonth]

Bonjour,

La solution, serait peut-être de créer le bouton que tu veux de façon dynamique à l'ouverture de ton PPTM.

Donc un module de classe pour activer les évènementiels de l'Application PPT.
voir : AfterPresentationOpen OK 2007 dans : http://arkham46.developpez.com/artic...int/events/#LX

et un bout de code pour la création dynamique ce qui devrait être possible selon ce qui est dit ici :
http://msdn.microsoft.com/fr-fr/libr...ice.12%29.aspx

You assign functionality to the components by using any programming language supported by Microsoft Visual Studio 2005, such as Microsoft Visual Basic and Microsoft Visual C#, and also Microsoft Visual Basic for Applications (VBA), Microsoft Visual C++, and Microsoft Visual Basic 6.0.

Bon le plus simple serait peut-être si le contexte le permet d'utiliser les évènementiels pour mettre à jour la table sans lancement volontaire d'une macro, voir la liste des évènements dans le lien DVP ci-dessus (PresentationNewSlide ?), vu qu'il est impossible de former les utilisateurs à l'onglet développeur.

cordialement,

Didier