moomoonette
Messages postés6Date d'inscriptiondimanche 5 novembre 2000StatutMembreDernière intervention20 janvier 2005
-
19 janv. 2005 à 14:21
moomoonette
Messages postés6Date d'inscriptiondimanche 5 novembre 2000StatutMembreDernière intervention20 janvier 2005
-
20 janv. 2005 à 20:36
J'ai une macro word toute bête qui ne fonctionne pas à cause de la commande :
WordBasic.MailMergePropagateLabel
Le message d'erreur est la commande n'est pas disponible..
Je ne comprends pas, je bute sur ce problème ..cette macro doit être intégrée ensuite dans une app VB6...et je suis coincée !!!!
J'ai vraiment besoin d'aide SVP, je ne sais plus où chercher ???
Merci.
Voici la macro :
ActiveDocument.MailMerge.MainDocumentType = wdMailingLabels
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\EcoleMusiqueTest\Ecole_Musique.mdb;Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Pa" _
, SQLStatement:="SELECT * FROM `EtiquettesResponsables`", SQLStatement1:= _
"", SubType:=wdMergeSubTypeAccess
ActiveDocument.Fields.Add Range:=Selection.Range, Type:=wdFieldMergeField _
, Text:="""Nom_R"""
WordBasic.MailMergePropagateLabel
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
ActiveDocument.PrintOut
moomoonette
Messages postés6Date d'inscriptiondimanche 5 novembre 2000StatutMembreDernière intervention20 janvier 2005 20 janv. 2005 à 20:36
Excuse moi, je ne comprends pas ta réponse...
Cette macro , je l'ai créée comme tu le décris...mon problème est qu'elle ne fonctionne pas si je l'exécute pas à pas ou si je l'intègre dans VB6...le message est toujours le même :
elle bloque sur la commande "WordBasic.MailMergePropagateLabel" avec le messge "commande non disponible" alors que c'est le même logiciel Word qui l'a générée ???
As-tu une idée ?
Merci