impression d'étiquettes à partir d'une base ACCESS et à travers VB6Résolu

Question

Je voudrais pouvoir lancer &#224; travers mon application VB, des &#233;tiquettes contenant des infos de ma base ACCESS. Je sais lancer le publipostage de mes etiquettes sous Word mais comment le faire &#224; partir d'un bouton sous VB ?
Un bout de code serait le bienvenu...
Merci

cs_CanisLupus · Accepted Answer

Salut,

Si tu sais le faire sous Word manuellement alors pas de probl&#232;me.
Dans WORD :
Menu Outils/Macro/Nouvelle macro, tu d&#233;clenches l'enregistrement d'une macro, tu fais les manips puis tu arr&#234;te l'enregistrement.
Ensuite tu vas voir ce que contient la macro et tu l'optimises si tu veux.

Dans VB6, tu ajoutes la r&#233;f&#233;rence Microsoft Word x.x Object Library &#224; ton projet et tu pourras te servir des objets WORD.

Quelques exemples de manipulation de WORD :

http://www.vbfrance.com/gma/source/publipostage

http://www.infini-fr.com/Sciences/Informatique/Langages/Imperatifs/VisualBasic/VbWord/

http://access.developpez.com/sources/?page=ole

Cordialement, CanisLupus

cs_CanisLupus · Answer

J'ai oubli&#233;, la macro que tu auras cr&#233;&#233;e, tu t'en inspire pour coder dans VB.

Cordialement, CanisLupus

moomoonette · Answer

Merci beaucoup...j'ai enfin décollé avec mes étiquettes..il ne reste qu'un problème.. La commande de la macro WordBasic.MailMergePropagateLabel n'est pas acceptée (message sous VB : cette commande n'est pas disponible). Si j'enlève cette commande j'ai mes étiquettes feuille par feuille, comment traduirele génération du format sur toutes les étiquettes de la page.mon bout de code : AppWord.ActiveDocument.MailMerge.OpenDataSource Name:= _ "C:\Documents and Settings\admin\Bureau\EcoleMusiqueTest\Ecole_Musique.mdb" _ , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _ AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _ WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _ Format:=wdOpenFormatAuto, Connection:= _ "Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=C:\Documents and Settings\admin\Bureau\EcoleMusiqueV050103\Ecole_Musique.mdb;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database" _ , SQLStatement:="SELECT * FROM `EtiquettesResponsables`", SQLStatement1:= _ "", SubType:=wdMergeSubTypeAccess AppWord.ActiveDocument.Fields.Add Range:=AppWord.selection.Range, Type:= _ wdFieldAddressBlock, Text:= _ "\f ""<<_TITLE0_ >><<_FIRST0_>><< _LAST0_>><< _SUFFIX0_>>" & Chr(13) & "<<_COMPANY_" & Chr(13) & ">><<_STREET1_" & Chr(13) & ">><<_STREET2_" & Chr(13) & ">><<_POSTAL_>><< _CITY_>><<" & Chr(13) & "_STATE_>>"" \l 1036 \c 0 \e """"" WordBasic.MailMergePropagateLabel 'cette commande n'est pas disponoble CommandBars("Task Pane").Visible = False As-tu la solution à ce problème?? Merci de toute façon !!

cs_CanisLupus · Answer

Essaie :

AppWord.WordBasic.MailMergePropagateLabel
&#224; la place de 
WordBasic.MailMergePropagateLabel

Cordialement, CanisLupus

moomoonette · Answer

j'avais essay&#233; aussi mais le message est le m&#234;me...commande non disponible ??

moomoonette · Answer

il doit me manquer une r&#233;f&#233;rence dans le projet pour interpr&#233;ter cette macro convertie ??
Mais laquelle??
Bien cordialement

cs_CanisLupus · Answer

D&#233;sol&#233;, j'ai fait des tests et je ne trouve pas non plus

Cordialement, CanisLupus

Impression d'étiquettes à partir d'une base ACCESS et à travers VB6

7 réponses