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.