Comment sauvegarder un rapport en format Word (.doc)

Le code vb script suivant permet de générer un rapport et de conserver ce dernier sous une extension “.doc” afin que l’utilisateur puisse l’ouvrir par défaut à l’aide de Word.

<?xml version=”1.0″ encoding=”UTF-8″?>
<Profile>

<Metaclass Name=”PdCommon.BaseModelReport”>
<Menus>
<Menu Location=”Object”>
<Command Name=”gendoc” Caption=”Générer le rapport en format Word”/>
</Menu>
</Menus>
<Methods>
<Method Name=”gendoc” >
Sub %Method%(obj)
dim filename, w1
filename = inputbox(“Inscrire le nom du fichier avec l’extension .doc”)
if (ucase(right(filename,4)) = “.DOC”) then
obj.generateRTF(“c:\temp\” + filename)
Set w1 = CreateObject(“Word.Application”)
w1.Documents.Open “c:\temp\” + filename
w1.ActiveDocument.SaveAs filename,wdFormatDocument
w1.ActiveDocument.close
w1.quit
elseif (InStr(filename,”.”)) then
output “L’extension est autre que .doc”
else
output “Il n’y a pas d’extension”
end if
End Sub
</Method>
</Methods>
</Metaclass>
</Profile>

Sous le répertoire “C:\Program Files\SAP\PowerAMC 16\Add-ins” sauvegarder le code précédent sous le nom de fichier “Word.dtd”. Sélectionner le format d’encodage “UTF-8” afin d’être en mesure de conserver les caractères accentués inscrit dans le fichier XML.

1. Sélectionnez Outils=>Options Générales
2. Sous “Catégories” cliquer sur “Compléments”
3. Cliquer sur l’icône “Ajouter un nouveau complément XML”
4. Inscrire à titre de nom “Rapport en format Word”
5. Au niveau de l’attribut “Fichier” sélectionner le fichier “Word.dtd”
6. Assurez-vous que les attributs “Enregistré” et “Activé par défaut” soient cochés.

1. Assurez-vous d’avoir un modèle ouvert
2. Sélectionner à partir de la barre de menu principal Rapport=>Rapports
3. Cliquer sur l’icône “Nouveau Rapport”
4. Le rapport est maintenant attaché à votre modèle
5. Sélectionner le rapport et cliquer sur le côté droit de la souris afin de Générer le rapport en format Word.