macro Word ne fonctionne pas ???

Question

J'ai une macro word toute b&#234;te qui ne fonctionne pas &#224; 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&#232;me ..cette macro doit &#234;tre int&#233;gr&#233;e ensuite dans une app VB6...et je suis coinc&#233;e !!!!
J'ai vraiment besoin d'aide SVP, je ne sais plus o&#249; 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

apaulux · Answer

Normal.dot

Ouvrir Word
dans le Menu
mnu Outils
Macro
Nouvelle Macro
alt+F11

dans le module:
NewMacros
tu mets ta macro


Sub toto()
'
' toto Macro
' Macro cr&#233;&#233;e le 20/01/2005 ............
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 


End Sub

[mailto:paul.ablasou@wanadoo.fr mailto:paul.ablasou@wanadoo.fr]

moomoonette · Answer

Excuse moi, je ne comprends pas ta r&#233;ponse...
Cette macro , je l'ai cr&#233;&#233;e comme tu le d&#233;cris...mon probl&#232;me est qu'elle ne fonctionne pas si je l'ex&#233;cute pas &#224; pas ou si je l'int&#232;gre dans VB6...le message est toujours le m&#234;me :
elle bloque sur la commande "WordBasic.MailMergePropagateLabel" avec le messge "commande non disponible" alors que c'est le m&#234;me logiciel Word qui l'a g&#233;n&#233;r&#233;e ???
As-tu une id&#233;e ?
Merci

Macro Word ne fonctionne pas ???

2 réponses

Discussions similaires