> Tous les forums > Forum Bureautique
 Insérer QuickPart dans une macro
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
spring
  Posté le 12/09/2011 @ 18:03 
Aller en bas de la page 
Petite astucienne

Bonjour,

dans Word 2007, je cherche à créer une macro enregistrée qui supprime un tableau, puis qui insère à la place un quickPart (nommé Offre_emploi), que j'ai préalablement créé dans le fichier BuildingBlocks.

voilà le code de la macro obtenue:

Sub Macro3()
'
' Macro3 Macro
'
'
Selection.Tables(1).Select
Selection.Tables(1).Delete
ActiveDocument.AttachedTemplate.BuildingBlockEntries("Offre_emploi"). _
Insert Where:=Selection.Range, RichText:=True
End Sub

Or, quand je lance la macro, j'ai un message d'erreur:

Erreur d'exécution 5941

Le membre de la collection requis n'existe pas

J'ai essayé avec des QuickParts (QP) de Word (genre entêtes), j'ai essayé en changeant la catégorie de mon QP, en l'enregistrant dans le modèle Normal.dot plutôt que dans le fichier BuildingBlocks, j'ai fermé Word afin d'enregistrer le fichier BuildingBlocks, et après chaque modif je ré-enregistre ma macro mais rien n'y fait, c'est toujours le même message. Pourtant il existe bien, ce QP Offre_emploi!!!

Des idées?

Spring



Modifié par spring le 12/09/2011 18:04
Publicité
vieuxmonsieur
 Posté le 13/09/2011 à 13:37 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

spring
 Posté le 13/09/2011 à 15:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Merci vieuxmonsieur!

en me promenant dans les pages, j'ai trouvé du code pour insérer le quiclpart, et j'ai corrigé ma macro:

Sub Macro3()
'
' Macro3 Macro
'
'
Dim objTemplate As Template
Dim objBB As BuildingBlock
Selection.Tables(1).Select
Selection.Tables(1).Delete

' Set the template to store the building block
Set objTemplate = ActiveDocument.AttachedTemplate

' Access the building block through the type and category
Set objBB = objTemplate.BuildingBlockTypes(wdTypeCustomQuickPart)
.Categories ("Personnalisée")
.BuildingBlocks ("Offre_emploi")

' Insert the building block into the document replacing any selected text.
objBB.Insert Selection.Range, RichText:=True


End Sub

Sauf que... ça bugge sur la partie en rouge, en disant Erreur de compilation: référence incorrecte ou non qualifiée.

C'est pourtant bien le code fourni par Microsoft. Pfffff...

Je ne connais pas VBA, je tatonne, as-tu une idée de ce qui pose pb?

Spring

vieuxmonsieur
 Posté le 13/09/2011 à 21:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

jette un oeil ici a tout hasard, 2eme choix de la liste, car je suis loin d'etre competent :

http://www.polymtl.ca/si/service/faq/TrucsastucesetnouveautesExcelPowerPointetWord.php#Nom_ficher



Modifié par vieuxmonsieur le 13/09/2011 21:55
spring
 Posté le 14/09/2011 à 14:16 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Salut,

oui ça c'est quand on veut insérer un QP ou un champ manuellement, mais moi je veux l'insérer via une macro, et comme je ne connais pas le VBA, je galère dès qu'il me répond un de ses maudits messages d'erreur...

Spring

nico23
 Posté le 28/10/2011 à 17:10 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Salut

Je n'est pas l'icone QuidPart dans insertion.

J'ai word 2010.

C'est pour mettre le sommaire automatiquement.

vieuxmonsieur
 Posté le 28/10/2011 à 18:21 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

bonsoir spring, nico,

je viens de trouver ceci :

http://www.developpez.net/forums/d977025/logiciels/microsoft-office/word/vba-word/macro-permettant-lancement-quickpart/

j'espere que ca vous sera utile

bonne soiree a vous

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
39,50 €Clé USB 3.1 SanDisk Extreme Pro 128 Go (420 Mo/s) à 39,50 €
Valable jusqu'au 24 Avril

Amazon fait une promotion sur la clé USB 3.1 Sandisk Extreme Pro 128 Go qui passe à 39,50 € livrée gratuitement alors qu'on la trouve ailleurs à partir de 55 €. Cette clé USB 3.1 (compatible usb 3.0) est extrèmement rapide puisqu'elle offre des débits jusqu'à 420 Mo/s en lecture et 380 Mo/s en écriture. Pratique, son connecteur rétractable vous évitera d'avoir à manipuler (et perdre ?) un bouchon.


> Voir l'offre
5,49 €Clé USB 3.0 Kingston DataTraveler 100 G3 32 Go à 5,49 €
Valable jusqu'au 23 Avril

Amazon vous propose actuellement la clé USB 3.0 Kingston DataTraveler 100 G3 32 Go à 5,49 €. Sa fermeture coulissante vous permettra de protéger le connecteur USB 3.0 (compatible USB 2.0). Notez que le lot de 3 clés est aussi en promo à 14,39 €.


> Voir l'offre
10,99 €Bloc multiprise parasurtenseur BRENNENSTUHL 8 prises à 10,99 €
Valable jusqu'au 23 Avril

Cdiscount fait une promotion sur le bloc multiprise parasurtenseur BRENNENSTUHL avec 8 prises à orientation inversée qui passe à 10,99 € au lieu de 20 €. Le câble fait 1,4 m.


> Voir l'offre

Sujets relatifs
2 pages par feuille dans macro excel
Inserer simplement une image dans un Post
Insérer un texte dans plusieurs champs avec Word
Creation d' une boucle macro dans fichier EXCEL pour impression
Je n'arrive plus à insérer une image dans Word 2007
Word insérer date du jour dans nom du fichier
macro afficher masquer lignes tableau dans word 2010
Insérer ma photo de signature dans live.fr
Ecrir par macro dans des cellules différents
[chemin relatif dans une macro]
Plus de sujets relatifs à Insérer QuickPart dans une macro
 > Tous les forums > Forum Bureautique