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.
- Sélectionnez Outils=>Options Générales
- Sous “Catégories” cliquer sur “Compléments”
- Cliquer sur l’icône “Ajouter un nouveau complément XML”
- Inscrire à titre de nom “Rapport en format Word”
- Au niveau de l’attribut “Fichier” sélectionner le fichier “Word.dtd”
- Assurez-vous que les attributs “Enregistré” et “Activé par défaut” soient cochés.
- Assurez-vous d’avoir un modèle ouvert
- Sélectionner à partir de la barre de menu principal Rapport=>Rapports
- Cliquer sur l’icône “Nouveau Rapport”
- Le rapport est maintenant attaché à votre modèle
- Sélectionner le rapport et cliquer sur le côté droit de la souris afin de Générer le rapport en format Word.