Discussion :

[SBranchu]

Bonjour à toutes et à tous,

comme dit dans la question, je souhaite insérer des QuickPart dans Word piloté par Excel...
Je suis parti d'un enregistrement Macro que j'ai tenté de bidouiller, mais sans succès...

Dans ma macro Excel :

Code :

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

1
2
3
Dim WordApp As Word.Application
WordApp.Selection.Goto What:=wdGoToBookmark, Name:="Signet1"
WordApp.Application.Templates(CheminModele & Modele).BuildingBlockEntries("NomDuQuickPart").Insert Where:=WordApp.Selection.Range, RichText:=True

Et ça ne marche pas... "CheminModele & Modele" est l'emplacement du modèle et son nom, en fait le modèle que j'utilise pour créer mon doc Word.

Quelqu'un a une idée de l'erreur ?

Portez-vous bien,

SB

[Invité]

Bonjour,

Ton modèle Building Blocks.dotx n'est peut-être pas à cet endroit. J'ai simulé l'import d'un Quick part dans un fichier avec l'enregistreur de macros. Cela donne ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub Macro1()
'
' Macro1 Macro
'
'
    Application.Templates( _
        "C:\Users\XXXX\AppData\Roaming\Microsoft\Document Building Blocks\1036\16\Building Blocks.dotx" _
        ).BuildingBlockEntries("Modèle de tableau").Insert Where:=Selection.Range _
        , RichText:=True
End Sub

Or tes modèles sont vraisemblablement dans le répertoire ...Microsoft\Templates\.

Avant de tester un code Word à partir d'Excel, il est préférable de le vérifier dans Word directement afin de pouvoir utiliser l'enregistreur de macro (quand c'est possible).

[SBranchu]

Bonjour,

merci de te pencher sur mon cas...

Ton modèle Building Blocks.dotx n'est peut-être pas à cet endroit.

Mes Quickpart ne sont pas dans "Building Blocks.dotx" mais bien dans un fichier modèle spécifique à l'endroit spécifié (que j'ai "variabilisé"), cela provient directement d'un enregistrement VBA Word qui fonctionne isolément dans Word, je n'ai fait que ajouter WordApp. à l'entrée des instructions qui me semble purement issues de Word...

Enregistrement initial de Word :

Code :

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

Application.Templates("G:\Boulot\CP\New Modele CP.dotm").BuildingBlockEntries("Automaticite-Oui").Insert Where:=Selection.Range, RichText:=True

Bonne journée,

SB

[SBranchu]

J'ai trouvé !

Il suffit de virer le "Where:=" :

Code :

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

Application.Templates("G:\Boulot\CP\New Modele CP.dotm").BuildingBlockEntries("Automaticite-Oui").Insert Selection.Range, RichText:=True

Merci

SB

[Invité]

Bravo !

[Benjamin_R.]

Bonjour,

je sais que cette discussion a été indiquée comme résolue, mais j'ai utilisé cette méthode et ça n'a pas marché. Pour ceux qui, comme moi, recherchent une solution, il faut savoir qu'il faut orienter la commande Selection vers l'application Word, et de fait, le Where reste. Un truc du genre :
WordApp.Templates(WordDoc.AttachedTemplate.Path & "\NomModele.dotm").BuildingBlockEntries("NomBuildingblock").Insert Where:=WordApp.Selection.Range, RichText:=True