Installer ou remplacer le complément QPT dans PowerPoint : alternatives, procédure .ppam et macros VBA

Vous cherchez à installer ou remplacer le complément QPT (Quick Presentation Toolkit) dans PowerPoint ? Voici la marche à suivre, les limites à connaître, des alternatives crédibles et des méthodes pour reproduire vos fonctions préférées via des macros VBA et un fichier .ppam.

Sommaire

Installer (ou remplacer) le complément QPT dans PowerPoint : vue d’ensemble

QPT a longtemps été apprécié pour accélérer l’alignement, le redimensionnement et l’insertion d’éléments dans les diapositives. Cependant, son statut et sa distribution ont évolué : avant de tenter une installation, prenez en compte les points ci‑dessous.

Constats, conséquences et solutions

Constats	Conséquences	Solutions ou pistes alternatives
QPT n’est plus distribué publiquement : il s’agissait d’un outil interne à Accenture.	Il n’existe plus de lien de téléchargement officiel ; si vous n’êtes pas collaborateur Accenture, vous ne pourrez pas le récupérer légalement.	• Ne cherchez pas de copie circulant sur Internet (risque juridique et sécurité).
Le complément est propriétaire et abandonné selon plusieurs intervenants.	Toute « ré‑installation » passe soit par le support interne Accenture, soit par une solution de remplacement.	• Contacter le support Accenture si vous êtes employé. • Chercher un add‑in équivalent.
Add‑ins tiers comparables existent et sont activement maintenus.	Ils couvrent la plupart des fonctions QPT (alignement, redimensionnement, insertion rapide, palettes, etc.).	• Exemples : Power‑user, PPT Productivity, think‑cell, Mekko Graphics, BrightSlide (gratuit). • Télécharger depuis le site de l’éditeur, puis installer via Fichier › Options › Compléments → « Gérer : Compléments PowerPoint » → Atteindre… → Ajouter nouveau….
Alternative “fait‑maison” : macros VBA.	Vous pouvez reproduire certaines fonctions spécifiques.	• Activer l’onglet Développeur. • Créer un module VBA ou enregistrer des macros. • Sauvegarder en .ppam pour un déploiement simple.
Ressources Microsoft pour add‑ins génériques.	Fournissent la procédure d’installation et le modèle d’extension.	• Consulter la documentation « Add or load a PowerPoint add‑in ». • Utiliser la communauté VBA pour l’entraide.

Ce que vous pouvez (et ne pouvez pas) faire

Si vous êtes collaborateur Accenture : adressez‑vous au support interne pour obtenir la version autorisée ou des indications officielles. Évitez tout partage non autorisé.
Si vous ne l’êtes pas : renoncez à retrouver QPT et privilégiez une alternative moderne ou une solution VBA personnalisée. Cela vous garantit légalité, sécurité et maintenance.
Hygiène de sécurité : n’installez jamais un complément d’origine incertaine. Les fichiers .ppam peuvent contenir des macros ; privilégiez les éditeurs reconnus et, si possible, les add‑ins signés numériquement.

Procédure d’installation classique d’un complément .ppam (Windows et macOS)

La procédure ci‑dessous s’applique à n’importe quel complément PowerPoint au format .ppam (y compris un éventuel pack maison qui reproduit des fonctions QPT).

Pré‑requis

PowerPoint installé et à jour (Microsoft 365 ou version « perpétuelle » récente).
Un fichier .ppam provenant d’une source fiable (éditeur, service interne).
Pour certaines fonctions avancées : autoriser l’accès au modèle d’objet VBA (voir ci‑dessous).

Étapes universelles (rappel condensé)

Télécharger le fichier depuis la source officielle.
Ouvrir PowerPoint › Fichier › Options › Centre de gestion de la confidentialité › Paramètres › activer « Faire confiance à l’accès au modèle d’objet VBA ».
Revenir à Options › Compléments › Gérer Compléments PowerPoint › Atteindre… > Ajouter nouveau…, sélectionner le fichier .ppam puis valider.
Redémarrer PowerPoint si nécessaire.

Windows : installation détaillée

Stockez le .ppam dans un emplacement stable (ex. : Documents\Office Add-ins ou un dossier d’équipe en lecture seule).
Dans PowerPoint : Fichier › Options › Centre de gestion de la confidentialité › Paramètres › Paramètres des macros : choisissez Désactiver toutes les macros avec notification (recommandé). Cochez Faire confiance à l’accès au modèle d’objet de projet VBA si le complément le requiert.
Fichier › Options › Compléments › en bas, Gérer : Compléments PowerPoint › Atteindre… › Ajouter nouveau… › pointez sur le .ppam.
Assurez‑vous que le complément apparaît coché dans la liste et validez avec OK.
Redémarrez PowerPoint si le ruban n’affiche pas immédiatement l’onglet ou le groupe de commandes du complément.

macOS : installation détaillée

Placez le .ppam dans un dossier persistant (ex. : Documents/Office Add‑ins ou un volume d’équipe).
PowerPoint › Préférences › Sécurité et confidentialité › Sécurité des macros : privilégiez Désactiver les macros avec notification. Autorisez l’accès au modèle d’objet si le complément en a besoin.
Menu Outils › Compléments PowerPoint… › Ajouter nouveau… › sélectionnez le .ppam.
Cochez le complément dans la liste, validez puis, si besoin, redémarrez PowerPoint.

Configurer des “emplacements approuvés” (facultatif mais recommandé)

Pour réduire les avertissements, déclarez le dossier qui contient vos add‑ins comme emplacement approuvé dans le Centre de gestion de la confidentialité. Cela évite d’avoir à cliquer « Activer le contenu » à chaque ouverture, tout en gardant un cadre de confiance maîtrisé.

Remplacer un QPT existant ou “cassé”

Ouvrez Fichier › Options › Compléments › Gérer : Compléments PowerPoint › Atteindre….
Décochez l’ancien QPT, puis sélectionnez‑le et cliquez Supprimer pour le déréférencer (cela ne supprime pas le fichier sur disque).
Cliquez Ajouter nouveau…, pointez vers le .ppam de remplacement (une version mise à jour, un autre outil ou votre .ppam maison), puis validez.
Si PowerPoint signale que le fichier est « bloqué », ouvrez ses Propriétés (clic droit sur le fichier) et, s’il existe, cochez Débloquer avant de réessayer.
Redémarrez PowerPoint si le ruban ne se met pas à jour.

Alternatives modernes à QPT (panorama rapide)

Plusieurs add‑ins offrent un socle fonctionnel proche de QPT, souvent avec des mises à jour régulières :

Power‑user : bibliothèques d’assets (icônes, diagrammes), raccourcis de mise en forme, harmonisation.
PPT Productivity : accélérateurs d’édition, raccourcis d’alignement/espacement, gestion avancée des guides.
think‑cell : références en graphiques (waterfall, Gantt, Mekko, Marimekko) intégrés à PowerPoint.
Mekko Graphics : focalisé sur les graphiques « consulting » (Mekko, cascade, bulles, etc.).
BrightSlide (gratuit) : alignement, nettoyage de texte, styles, guides, utilitaires rapides.

Correspondance des fonctions (indicatif)

Fonction	Power‑user	PPT Productivity	think‑cell	Mekko Graphics	BrightSlide
Aligner / distribuer / redimensionner	✓	✓	Partiel (sur objets de graphiques)	Partiel	✓
Guides, grilles, espacement fin	✓	✓	—	—	✓
Bibliothèque d’assets (icônes, visuels)	✓	Partiel	—	—	Partiel
Graphiques avancés (waterfall, Mekko)	Partiel	—	✓	✓	—
Nettoyage de texte / styles	✓	✓	—	—	✓
Raccourcis clavier configurables	✓	✓	—	—	Partiel

Remarque : ce tableau est indicatif ; vérifiez les fonctions et licences avant adoption. Beaucoup d’éditeurs proposent des essais gratuits utiles pour confirmer la couverture fonctionnelle par rapport à vos habitudes QPT.

Recréer vos fonctions QPT préférées avec des macros VBA

Si vous n’avez pas accès à QPT, un pack .ppam « maison » peut couvrir l’essentiel. Voici une démarche concrète.

Activer l’onglet Développeur

Windows : Fichier › Options › Personnaliser le ruban › cochez Développeur.
macOS : PowerPoint › Préférences › Ruban et barre d’outils › cochez Développeur.

Exemples de macros utiles

Créez un module (Alt+F11 › Insertion › Module) et collez les exemples ci‑dessous.

Distribuer uniformément les formes sélectionnées (horizontalement)

Sub QPT_DistribuerHorizontal()
    Dim sel As Selection, s As Shape
    Dim minLeft As Single, maxRight As Single
    Dim count As Integer, i As Integer, gap As Single, currentLeft As Single

```
If ActiveWindow.Selection.Type &lt;&gt; ppSelectionShapes Then
    MsgBox "Sélectionnez au moins 3 formes.", vbExclamation
    Exit Sub
End If

Set sel = ActiveWindow.Selection
If sel.ShapeRange.Count &lt; 3 Then
    MsgBox "Sélectionnez au moins 3 formes.", vbExclamation
    Exit Sub
End If

minLeft = 999999: maxRight = -999999
For Each s In sel.ShapeRange
    If s.Left &lt; minLeft Then minLeft = s.Left
    If s.Left + s.Width &gt; maxRight Then maxRight = s.Left + s.Width
Next s

count = sel.ShapeRange.Count
gap = (maxRight - minLeft - TotalWidth(sel.ShapeRange)) / (count - 1)
currentLeft = minLeft
For i = 1 To count
    Set s = sel.ShapeRange(i)
    s.Left = currentLeft
    currentLeft = currentLeft + s.Width + gap
Next i
```

End Sub

Private Function TotalWidth(r As ShapeRange) As Single
Dim w As Single, s As Shape
For Each s In r
w = w + s.Width
Next s
TotalWidth = w
End Function

Échanger la position de deux formes

Sub QPT_EchangerPositions()
    Dim r As ShapeRange, p1 As Single, p2 As Single, t As Single, l As Single
    If ActiveWindow.Selection.Type &lt;&gt; ppSelectionShapes Then
        MsgBox "Sélectionnez exactement 2 formes.", vbExclamation
        Exit Sub
    End If
    Set r = ActiveWindow.Selection.ShapeRange
    If r.Count &lt;&gt; 2 Then
        MsgBox "Sélectionnez exactement 2 formes.", vbExclamation
        Exit Sub
    End If
    l = r(1).Left: t = r(1).Top
    r(1).Left = r(2).Left: r(1).Top = r(2).Top
    r(2).Left = l: r(2).Top = t
End Sub

Nudge fin (déplacement précis) avec incrément paramétrable

Sub QPT_DeplacerGauche()
    QPT_Nudge -1, 0
End Sub
Sub QPT_DeplacerDroite()
    QPT_Nudge 1, 0
End Sub
Sub QPT_DeplacerHaut()
    QPT_Nudge 0, -1
End Sub
Sub QPT_DeplacerBas()
    QPT_Nudge 0, 1
End Sub

Private Sub QPT_Nudge(dx As Single, dy As Single)
Const stepSize As Single = 2 ' Ajustez l'incrément ici
Dim s As Shape
If ActiveWindow.Selection.Type <> ppSelectionShapes Then Exit Sub
For Each s In ActiveWindow.Selection.ShapeRange
s.Left = s.Left + dx * stepSize
s.Top = s.Top + dy * stepSize
Next s
End Sub

Uniformiser la largeur de toutes les formes sélectionnées sur la plus large

Sub QPT_MettreMemeLargeur()
    Dim r As ShapeRange, maxW As Single, s As Shape
    If ActiveWindow.Selection.Type &lt;&gt; ppSelectionShapes Then Exit Sub
    Set r = ActiveWindow.Selection.ShapeRange
    For Each s In r
        If s.Width &gt; maxW Then maxW = s.Width
    Next s
    For Each s In r
        s.Width = maxW
    Next s
End Sub

Appliquer un style rapide aux formes (remplissage + contour + ombre)

Sub QPT_StyleStandard()
    Dim s As Shape
    If ActiveWindow.Selection.Type &lt;&gt; ppSelectionShapes Then Exit Sub
    For Each s In ActiveWindow.Selection.ShapeRange
        With s
            .Fill.ForeColor.RGB = RGB(242, 242, 242) ' Gris clair
            .Line.ForeColor.RGB = RGB(191, 191, 191) ' Gris moyen
            .Line.Weight = 1.25
            .Shadow.Visible = msoTrue
            .Shadow.Blur = 4
            .Shadow.OffsetX = 2
            .Shadow.OffsetY = 2
            .Shadow.ForeColor.RGB = RGB(170, 170, 170)
        End With
    Next s
End Sub

Remplacer la police d’un texte sélectionné (utile pour harmoniser)

Sub QPT_RemplacerPolice()
    Dim r As ShapeRange, s As Shape, t As TextRange2
    Dim oldFont As String, newFont As String
    oldFont = InputBox("Nom de la police à remplacer (sensible à la casse) :")
    newFont = InputBox("Nom de la nouvelle police :")
    If oldFont = "" Or newFont = "" Then Exit Sub
    If ActiveWindow.Selection.Type <> ppSelectionShapes Then Exit Sub
    Set r = ActiveWindow.Selection.ShapeRange
    For Each s In r
        If s.HasTextFrame Then
            If s.TextFrame2.HasText Then
                Set t = s.TextFrame2.TextRange
                QPT_ReplaceFontInRange t, oldFont, newFont
            End If
        End If
    Next s
End Sub

Private Sub QPT_ReplaceFontInRange(tr As TextRange2, oldFont As String, newFont As String)
Dim i As Long
For i = 1 To tr.Runs.Count
With tr.Runs(i).Font
If .Name = oldFont Then .Name = newFont
End With
Next i
End Sub

Emballer vos macros en .ppam

Enregistrez votre présentation macro‑compatible au format .pptm.
Dans l’éditeur VBA (Alt+F11), vérifiez que vos modules se trouvent dans ce fichier (et non dans VBAProject (Normal)).
Option de sécurité : signez votre projet (certificat éditeur recommandé). Un certificat auto‑signé est possible pour un usage interne.
Fichier › Exporter / Enregistrer sous › choisissez Complément PowerPoint (*.ppam).
Installez le .ppam via la procédure décrite plus haut (Compléments PowerPoint › Ajouter nouveau…).

Sécurité et conformité : bonnes pratiques

Origine des fichiers : n’ouvrez jamais un .ppam d’origine inconnue. Préférez des éditeurs reconnus ou des sources internes vérifiées.
Macros et notifications : laissez le paramètre « Désactiver avec notification » et activez au cas par cas après vérification.
Signature : si vous diffusez un .ppam interne, signez votre projet VBA avec un certificat de l’entreprise. Les postes clients pourront « faire confiance aux éditeurs approuvés ».
Emplacements approuvés : centralisez vos add‑ins dans un dossier marqué comme approuvé pour éviter les faux positifs et fluidifier l’usage.
Nettoyage : si un complément se comporte étrangement, désinstallez‑le proprement (décochez‑le dans Compléments), fermez PowerPoint, puis supprimez le fichier .ppam s’il n’est plus utilisé.

Déploiement en entreprise (GPO, gestion Microsoft 365)

Pour un parc de postes, vous pouvez industrialiser la distribution d’un .ppam « maison » ou d’un add‑in tiers sous licence :

Distribution du fichier : copiez le .ppam dans un répertoire standard (ex. : %ProgramData%\Company\Addins ou %AppData%\Microsoft\AddIns) via GPO de copie de fichiers, outil de gestion de parc ou script d’ouverture de session.
Emplacement approuvé : déclarez le dossier comme approuvé via stratégie (paramètres Office) pour limiter les avertissements macros.
Activation silencieuse : un script peut pré‑charger l’add‑in dans PowerPoint. Exemple PowerShell :

# Exécuter en contexte utilisateur
$ppam = "$env:ProgramData\Company\Addins\MonPack.ppam"
if (Test-Path $ppam) {
    $pp = New-Object -ComObject PowerPoint.Application
    $pp.Visible = $true
    try {
        $addin = $pp.AddIns.Add($ppam)
        $addin.Installed = $true
    } catch {
        Write-Host "Échec de l'installation de l'add-in : $($_.Exception.Message)"
    } finally {
        $pp.Quit()
        [System.Runtime.Interopservices.Marshal]::ReleaseComObject($pp) | Out-Null
    }
}

Notes : adaptez les chemins et assurez‑vous que la politique de sécurité autorise l’exécution de macros signées. Sur macOS, privilégiez des outils MDM pour copier le .ppam et des profils de préférences pour la sécurité des macros.

Dépannage : erreurs courantes et correctifs

Symptôme	Cause probable	Correctif
Le bouton/onglet de l’add‑in n’apparaît pas	Add‑in non coché, PowerPoint non redémarré, ruban personnalisé	Vérifier Compléments PowerPoint ; cocher l’add‑in, cliquer OK, redémarrer PowerPoint
Alerte « macros désactivées »	Paramètre de sécurité par défaut	Activer « Contenu actif » au cas par cas ; si interne, signer le .ppam et ajouter un emplacement approuvé
« Fichier bloqué » sous Windows	Marque de sécurité (Zone.Identifier)	Clic droit › Propriétés › cocher Débloquer › Appliquer
Erreurs VBA à l’exécution	Objets non sélectionnés, compatibilité version, références manquantes	Ajouter des contrôles de sélection, tester sur un jeu d’objets simple, vérifier les références VBA
Ralentissements ou plantages	Conflit entre add‑ins, macros récursives, fichiers lourds	Désactiver temporairement les autres add‑ins, tester en mode sans échec, optimiser les macros
Impossible d’enregistrer en .ppam	Protection projet, fichier en lecture seule, droits insuffisants	Enregistrer localement, vérifier les droits, lever les protections inutiles

Évaluer avant achat : checklist rapide

Couverture fonctionnelle : alignement, guides, bibliothèques, graphiques, audit de mise en forme.
Compatibilité : Windows/macOS, 32/64 bits, versions PowerPoint supportées.
Performances : rapidité des commandes courantes, impact sur l’ouverture des fichiers.
Administration : clé de licence, déploiement silencieux, politique de mises à jour.
Sécurité : signature, réputation de l’éditeur, gestion des macros.
Essai gratuit : validez vos cas d’usage (alignement précis, gabarits, palettes).

Questions fréquentes

QPT est‑il encore disponible en téléchargement ?

Non. QPT n’est pas distribué publiquement. Sans statut de collaborateur Accenture, vous ne pouvez pas l’obtenir légalement. Orientez‑vous vers des add‑ins modernes ou un .ppam personnalisé.

Une copie retrouvée en ligne est‑elle sûre ?

Non. Évitez toute copie non officielle : risques juridiques et de sécurité (macros malveillantes). Utilisez exclusivement des sources approuvées.

Les alternatives payantes valent‑elles le coût ?

Souvent, oui, si vous éditez des présentations intensivement : gain de temps, fonctions avancées et mises à jour. Quand le budget est serré, BrightSlide offre un excellent socle gratuit, complété par des macros ciblées.

Puis‑je recréer « tout QPT » en VBA ?

Vous pouvez reproduire une grande partie des fonctions d’édition (alignement, redimensionnement, styles, nudge). Certaines fonctions très spécifiques (par ex. bibliothèques intégrées ou graphiques complexes) demandent plus d’efforts ; évaluez l’intérêt de solutions tierces.

Que faire si un add‑in bloque au démarrage ?

Démarrez PowerPoint en mode sans échec, décochez l’add‑in en cause, nettoyez le fichier, puis réinstallez. Vérifiez les emplacements approuvés et la signature du complément.

En résumé

QPT n’est plus accessible au grand public. Si vous êtes employé Accenture, voyez le support interne. Sinon, adoptez un add‑in moderne (Power‑user, PPT Productivity, think‑cell, Mekko Graphics, BrightSlide) ou créez votre propre pack .ppam à l’aide de macros ciblées. La procédure d’installation est simple (Fichier › Options › Compléments › Ajouter nouveau…), et des bonnes pratiques de sécurité (signature, emplacements approuvés, macros désactivées avec notification) vous permettront d’opérer en confiance. Pour un parc de postes, planifiez la distribution du fichier, la politique macros et, si besoin, un script d’activation silencieuse.

Annexe : procédure condensée « pas‑à‑pas »

Obtenir légalement le complément (.ppam) depuis une source fiable.
Sécurité : laisser Désactiver avec notification, activer l’accès au modèle d’objet si requis.
Installer via Fichier › Options › Compléments → Compléments PowerPoint → Atteindre… → Ajouter nouveau….
Valider la présence de l’onglet/groupe dans le ruban, redémarrer si nécessaire.
Facultatif : déclarer le dossier comme emplacement approuvé et signer le .ppam si vous le diffusez.

Annexe : modèle de plan de macros « type QPT »

Fonction cible	Macro à écrire	Complexité	Astuce
Aligner / Distribuer	`QPT_DistribuerHorizontal`, variantes verticales	Faible	Travailler sur `ShapeRange`, vérifier le type de sélection
Nudge fin	`QPT_Nudge` (haut/bas/gauche/droite)	Faible	Exposez `stepSize` comme constante
Uniformiser tailles	`QPT_MettreMemeLargeur`, variante hauteur	Faible	Calculez max/min avant application
Styles & thèmes	`QPT_StyleStandard`	Moyenne	Définissez une palette interne, évitez les références externes
Harmoniser les polices	`QPT_RemplacerPolice`	Moyenne	Parcourez `TextRange2.Runs` pour préserver les formats

Avec ces blocs, vous obtenez rapidement un « starter kit » qui couvre 80 % des usages jadis associés à QPT, sans dépendre d’un outil indisponible.

Installer ou remplacer le complément QPT dans PowerPoint : alternatives, procédure .ppam et macros VBA

Installer (ou remplacer) le complément QPT dans PowerPoint : vue d’ensemble