Probleme Macro Word
Probleme Macro Word - Win NT/2K/XP - Windows & Software
Sujets relatifs:
- comment barrer une phrase dans word?
- Problème VPN entre 2 DI-804HV
- [Win2000 server] Problème avec un sous-dossier partagé.
- Probleme de connection internet par reseau local ...
- Problème avec mes icones du bureau qui sont toutes bleues !
- petit probleme reseau local
- Problème serveur Apache 2 chez Xampp
- Probleme capture de son avec FRAPS/VideoMach
- Problème avec un spyware et virus
- Un probleme de macro sous Word
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