[VBA] Macro "*.mso"

Marsh Posté le 09-11-2004 à 13:29:40

Bonjour,

Je dois faire un fichier Word généré dynamiquement depuis un site web.
Pour faire le fichier Word, je n'ai aucun problème, ça fonctionne.

Par contre, je dois lier une macro à ce fichier.

Un collègue (qui n'est plus ici, et qui n'a pas laissé de doc) a déjà fait ceci, et ça fonctionne bien.

Depuis le document généré dynamiquement, il appelle un fichier "*.mso" contenant la macro.

Ca lève une chiée de warning à l'ouverture, mais c'est pas très dérangeant, et ça marche.

Seulement, depuis l'éditeur de macro de Word, impossible de mettre la main sur une fonction permettant d'exporter une macro sous ce format.

Savez-vous comment faire ?

Depuis Word, je n'arrive même pas à intégrer cette macro manuellement dans un document [:spamafote]

Par contre, dynamiquement, aucun problème, il suffit de mettre le lien dans la partie header du fichier Word (au format HTML) :

Code :

<link rel=Edit-Time-Data href="http://gemseas.euro.med.ge.com/sales/autotext/mailing/editdata.mso">

Comment on fait ça ? :sweat:

Reply

Marsh Posté le 09-11-2004 à 13:29:40

Reply

Marsh Posté le 09-11-2004 à 13:30:51

PS: c'est un format apparement "compilé".
Il n'est pas lisible.

Par contre, quand on ouvre un fichier généré qui fait appel à ce fichier, les macro à l'intérieur sont lisibles :pt1cable:

Reply

Marsh Posté le 09-11-2004 à 13:40:38

Désolé pour la question con...

Il suffit de créer un fichier Word tout bête avec une Macro, puis de faire "Enregistrer sous" et choisir "HTML".
Un fichier "*.mso" est alors automatiquement créé dans le répertoire "nomdufichier_files"

http://www.blonnet.com/ew/2003/01/ [...] 310400.htm

Message édité par Arjuna le 09-11-2004 à 13:40:48

Reply

Marsh Posté le 09-11-2004 à 13:47:42

non c'est cool jviens d'apprendre qque chose

Reply

Marsh Posté le 09-11-2004 à 15:12:53

Sinon, j'ai un souci...

J'ai plusieurs macros.

Lorsque j'ouvre le fichier depuis un lien internet, j'obtiens un message comme quoi le fichier contient des macros, et que je ne dois pas le charger parceque c'est pas sûr. (normal)
J'ignore le message pour charger les macros.
Par contre, je n'ai pas le second avertissement pour activer ou non les macros.

Lorsque je prends le fichier sur lequel je me suis basé, j'ai rigoureusement le même code au niveau du fichier word lui-même, et pour la macro, je ne vois pas de différence (en fait, j'ai fait un copier/coller de tous les modules et j'ai shooté/remplacé les parties concernées).
Par contre, ce fichier m'ouvre le premier message 5 fois de suis (un peu chiant ) et ensuite me propose d'activer les macros !

Le pire de tout, c'est que mon fichier, même sans ce message contient les macros. Les macros automatiques (document_open, document_new, document_close) sont inutilisables (mais le code est présent) alors que la macro "à la main" "autosave" peut être appelée en faisant ALT+F8, et tourne normalement !!!

Personne ne sais d'où ça peut venir ?
Ca fait 25 fois que je refais le document, que je le tortille dans tous les sens, mais pas moyen. :cry:

Voici le code de la macro, tel qu'il est chargé depuis mon lien :

Code :

Private Const PassiveConnection As Boolean = True
Private Const FtpServer As String = "garlic"
Private Const strLogon As String = "integre"
Private Const strPwd As String = "integre"
Option Explicit
Sub RemoteSave()
Dim DocType, Login, Customer As String
Dim Today As Date
Dim DispDate, DispHour As String
Dim Temp, usr As String
Dim FileName, FilePath, TempPath As String
Dim hOpen, hConnection As Long
Dim bRet As Boolean
Dim WSHShell, fso
Dim inet As InternetExplorer
Set inet = New InternetExplorer
DocType = ActiveDocument.BuiltInDocumentProperties(wdPropertyTitle)
Login = ActiveDocument.BuiltInDocumentProperties(wdPropertyAuthor)
If Login = "" Then
Login = Environ("username" )
End If
Customer = ActiveDocument.BuiltInDocumentProperties(wdPropertySubject)
ActiveDocument.BuiltInDocumentProperties("Subject" ) = ""
Today = Now
DispDate = Right("20" & Year(Today), 4) & Right("00" & Month(Today), 2) & Right("00" & Day(Today), 2)
DispHour = Hour(Today) & "h" & Right("00" & Minute(Today), 2)
Set WSHShell = CreateObject("Wscript.Shell" )
usr = WSHShell.Regread("HKEY_CURRENT_USER\Volatile Environment\HOMEPATH" )
Set WSHShell = Nothing
Temp = Environ("TEMP" )
FileName = DocType & "_" & Customer & "_" & Replace(Login, " ", "-" ) & "_" & DispDate & "-" & DispHour & ".doc"
FilePath = Temp & "\" & FileName
TempPath = Replace(FilePath, ".doc", "_tmp.doc" )
ActiveDocument.SaveAs FilePath, wdFormatDocument, True
ActiveDocument.SaveAs TempPath, wdFormatDocument, True
hOpen = InternetOpen("Template", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
hConnection = InternetConnect(hOpen, FtpServer, INTERNET_DEFAULT_FTP_PORT, strLogon, strPwd, INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0)
FtpSetCurrentDirectory hConnection, "/opt/generix/interface/crm/template/"
FtpPutFile hConnection, FilePath, FileName, FTP_TRANSFER_TYPE_UNKNOWN, 0
InternetCloseHandle hConnection
InternetCloseHandle hOpen
ActiveDocument.SaveAs FilePath, wdFormatDocument, True
Set fso = CreateObject("Scripting.FileSystemObject" )
fso.DeleteFile (fso.GetFile(TempPath))
Set fso = Nothing
inet.Visible = False
inet.Navigate "http://gemseas-devl.euro.med.ge.com:8081/sales/autotext/registerdoc.asp?cus=" & Customer & "&usr=" & Login & "&typ=" & DocType & "&tps=" & DispDate & Replace(DispHour, "h", "" ) & "&fic=" & FileName
Do While Not inet.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Set inet = Nothing
End Sub
Private Sub Document_Close()
On Error Resume Next
CustomizationContext = NormalTemplate
' Cancel the keyboard shortcut "Ctrl+Shift+A"
KeyBindings.Key(KeyCode:=BuildKeyCode(wdKeyControl, _
wdKeyShift, wdKeyS)).Clear
' Remove the "Save Document" command from the right-click menu
Application.CommandBars("Text" ).Controls("Save Document" ).Delete
If MsgBox("Do you want to save your job before closing the file ?", vbYesNo, "Save changes" ) = vbYes Then
RemoteSave
End If
End Sub
Private Sub Document_Open()
MsgBox ("Ca va marcher un jour ?" )
Dim NewControl As CommandBarControl
' Assign the keyboard shortcut "Ctrl+Shift+A"
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, _
wdKeyShift, wdKeyS), KeyCategory:=wdKeyCategoryMacro, _
Command:="ThisDocument.RemoteSave"
' Add the "Insert Date" command to the right-click menu
Set NewControl = Application.CommandBars("Text" ).Controls.Add
With NewControl
.Caption = "Save Document"
.OnAction = "ThisDocument.RemoteSave"
.BeginGroup = False
End With
End Sub
Private Sub Document_New()
Dim NewControl As CommandBarControl
' Assign the keyboard shortcut "Ctrl+Shift+A"
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, _
wdKeyShift, wdKeyS), KeyCategory:=wdKeyCategoryMacro, _
Command:="ThisDocument.RemoteSave"
' Add the "Insert Date" command to the right-click menu
Set NewControl = Application.CommandBars("Text" ).Controls.Add
With NewControl
.Caption = "Save Document"
.OnAction = "ThisDocument.RemoteSave"
.BeginGroup = False
End With
End Sub

PS: J'ai évidement essayé de me mettre en sécurité minimale, ça ne change rigoureusement rien (mise à part qu'en minimum, je n'ai plus du tout de message d'alerte)

Message édité par Arjuna le 09-11-2004 à 15:13:26

Reply

Marsh Posté le 09-11-2004 à 15:14:44

Vous noterez le :

Code :

Private Sub Document_Open()
MsgBox ("Ca va marcher un jour ?" )

Evidement, il ne s'affiche jamais !

Je pète les plombs :cry:

Reply

Marsh Posté le 09-11-2004 à 15:32:49

Ha, et j'ai oublié de préciser : Si j'enregistre le document avec les macro foireuses sur mon PC, et que je le réouvre, hop ! Comme par magie les macros fonctionnent normalement :fou:

Reply

Marsh Posté le 10-11-2004 à 12:08:04

Hallucinant...

J'ai repris le code d'une macro qui marche déjà comme il faut.

J'ai remplacé le MSO du fichier par le mien.
Ca marche.

Plus qu'à modifier le layout du fichier word...

Je pars de ça (après pas mel de nettoyage)

Maintenant, j'ai ça : (c'est pas du tout ce que je veux, moi je veux un document vide avec deux colonnes)

Code :

<html xmlns:v="urn:schemas-microsoft-com:vml"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:w="urn:schemas-microsoft-com:office:word"
xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=windows-1252">
<meta name=ProgId content=Word.Document>
<meta name=Generator content="Microsoft Word 9">
<meta name=Originator content="Microsoft Word 9">
<link rel=File-List href="./labels/filelist.xml">
<link rel=Edit-Time-Data href="http://gemseas-devl.euro.med.ge.com:8081/sales/crm/labels/editdata.mso">
<title>LABELS</title>
<!--[if gte mso 9]>
<xml>
<o:DocumentProperties>
<o:Subject><%=Request.QueryString("cus" )%></o:Subject>
<o:Author><%=session("USER" )%></o:Author>
<o:LastAuthor>GE Medical Systems</o:LastAuthor>
<o:Company>GE Medical Systems</o:Company>
</o:DocumentProperties>
<w:WordDocument>
<w:View>Print</w:View>
<w:Zoom>100</w:Zoom>
</w:WordDocument>
</xml>
<![endif]-->
<style>
<!--
/* Font Definitions */
@font-face
{font-family:SimSun;
panose-1:2 1 6 0 3 1 1 1 1 1;
mso-font-alt:\5B8B\4F53;
mso-font-charset:134;
mso-generic-font-family:auto;
mso-font-format:other;
mso-font-pitch:variable;
mso-font-signature:1 135135232 16 0 262144 0;}
@font-face
{font-family:"\@SimSun";
panose-1:2 1 6 0 3 1 1 1 1 1;
mso-font-charset:134;
mso-generic-font-family:auto;
mso-font-pitch:variable;
mso-font-signature:3 135135232 16 0 262145 0;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:SimSun;
mso-fareast-language:ZH-CN;}
h1
{mso-style-next:Normal;
margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
page-break-after:avoid;
mso-outline-level:1;
font-size:14.0pt;
mso-bidi-font-size:10.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";
mso-font-kerning:0pt;
mso-ansi-language:DE;
mso-fareast-language:DE;
mso-bidi-language:AR-SA;
mso-bidi-font-weight:normal;}
h2
{mso-style-next:Normal;
margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
page-break-after:avoid;
mso-outline-level:2;
tab-stops:right 198.45pt left 212.65pt right 6.3in;
font-size:12.0pt;
mso-bidi-font-size:10.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";
mso-ansi-language:DE;
mso-fareast-language:DE;
mso-bidi-language:AR-SA;
mso-bidi-font-weight:normal;}
p.MsoHeader, li.MsoHeader, div.MsoHeader
{margin:0in;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
tab-stops:center 3.15in right 6.3in;
font-size:12.0pt;
mso-bidi-font-size:10.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";
mso-ansi-language:DE;
mso-bidi-language:AR-SA;
layout-grid-mode:line;}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;
text-underline:single;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;
text-underline:single;}
@page Section1
{size:595.3pt 841.9pt;
margin:19.85pt 51.05pt 14.2pt 68.05pt;
mso-header-margin:0in;
mso-footer-margin:0in;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="2050"/>
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1"/>
</o:shapelayout></xml><![endif]-->
</head>
<body lang=EN-US link=blue vlink=purple style='tab-interval:.5in'>
<div class=Section1>
<h1 style='tab-stops:right 474.9pt'>
Antwort per FAX 040 / 65 88 65 99 oder Brief
<o:p></o:p>
</h1>
GE Medical Systems Aufgepasst! <o:p></o:p>
Accessories & Supplies GmbH Hier ist mehr für Sie drin...<o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
<![if !supportEmptyParas]> <![endif]><o:p></o:p>
</div>
</body>
</html>

Ben vous le croirez ou non, mais si je vire une ligne "<![if !supportEmptyParas]> <![endif]><o:p></o:p>" ou bien que je supprime un mot dans le texte, ça marche plus ! :ouch:

PS: Nan, c'est pas une histoire de checksum ou je ne sais quoi. Le MSO n'est pas l'original lié à la macro, mais le mien, créé dans un autre document, et avant d'en arriver là, j'ai viré plein de trucs (le pied de page et des images)

Là, je comprends plus :sweat:

Reply

[VBA] Macro "*.mso"

Sujets relatifs:

Leave a Replay