Probleme Macro Word

Probleme Macro Word - Win NT/2K/XP - Windows & Software

Marsh Posté le 13-06-2006 à 09:16:11    

Je vous explique la situation,
Dans ma société une personne executait une macro qui permettait de ne pas remplir des etiquettes à la main. Bref apres plantage de l'OS (Windows NT) nous l'avons migré en 2000. Apres reinstallation de la macro, impossible de la faire fonctionner.

Erreur d'execution "5922"
La source de donnée ...


 
J'ai donc essayé d'installer la macro sur un autre poste identique et sans lien ODBC, et là > ça marche !
 
Je ne comprend pas pourquoi sur deux postes identique et venant d'etre migré cela differe.
 
Voici la macro :
 


Sub Colissimo_Courrier()
 
'
' Colissimo_Courrier Macro
' Macro enregistrée le 06/ par SCL08
'
    Documents.Open FileName:="\\Transit_nt\TRANSIT\Scl\Secretariat\Courrier.doc", ConfirmConversions:=False, _
        ReadOnly:=True, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "\\Transit_nt\TRANSIT\Scl\Secretariat\Lettre.txt", ConfirmConversions:= _
        False, ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", _
        WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
        Connection:="", SQLStatement:="", SQLStatement1:=""
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .MailAsAttachment = False
        .MailAddressFieldName = ""
        .MailSubject = ""
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=True
    End With
End Sub
Sub Colissimo_Etiquettes()
'
' Colissimo_Etiquettes Macro
' Macro enregistrée le 06/ par SCL08
'
    Documents.Open FileName:="\\Transit_nt\TRANSIT\Scl\Secretariat\Etiquettes.doc", ConfirmConversions:=False, _
        ReadOnly:=True, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto
    ActiveDocument.MailMerge.OpenDataSource Name:= _
        "\\Transit_nt\TRANSIT\Scl\Secretariat\etiq.txt", ConfirmConversions:= _
        False, ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, _
        PasswordDocument:="vatier", PasswordTemplate:="vatier", WritePasswordDocument:="vatier", _
        WritePasswordTemplate:="vatier", Revert:=False, Format:=wdOpenFormatAuto, _
        Connection:="", SQLStatement:="", SQLStatement1:=""
    With ActiveDocument.MailMerge
        .Destination = wdSendToNewDocument
        .MailAsAttachment = False
        .MailAddressFieldName = ""
        .MailSubject = ""
        .SuppressBlankLines = True
        With .DataSource
            .FirstRecord = wdDefaultFirstRecord
            .LastRecord = wdDefaultLastRecord
        End With
        .Execute Pause:=True
    End With
    Selection.WholeStory
    Selection.Font.Name = "Times New Roman"
    Selection.Font.Size = 9
End Sub
Sub Macro3()
Attribute Macro3.VB_Description = "Macro enregistrée le 06/ par SCL08"
Attribute Macro3.VB_ProcData.VB_Invoke_Func = "Normal.NewMacros.Macro3"
'
' Macro3 Macro
' Macro enregistrée le 06/ par SCL08
'
    Selection.WholeStory
    Selection.Font.Name = "Times New Roman"
    Selection.Font.Size = 9
End Sub



---------------
Neo_t3 registered Linux user number 354648. | http://www.ondaflow.com
Reply

Marsh Posté le 13-06-2006 à 09:16:11   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed