MEDYCS: Envoyer une ordonnance en PDF

0

Comment envoyer à un patient avec Médycs une ordonnance signée en PDF?

Mais plutôt que de s’embêter à écrire une macro il suffit d’utiliser l’enregistreur

WORD

  • Outils
    • Macro
      • Nouvelle Macro
  • Nommer SIGNE+PDF

=> Activer l’enregistreur

Et faire la manip :

EXEMPLE AVEC PDFCREATOR

Action

Raccourci

Commande WORD
Placer le curseur à la fin du document CTRL+FIN Selection.EndKey Unit:=wdStory
Aligner à droite Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
Insérer au point de curseur l’image de ma signature Selection.InlineShapes.AddPicture FileName:= _         “G:\Pictures\signature.jpg“, LinkToFile:=False, SaveWithDocument:= _         True
Sélectionner l’imprimante virtuelle PDF CTRL+P
 ActivePrinter = “PDFCreator“
IMPRIMER OK Application.PrintOut FileName:=””, Range:=wdPrintAllDocument, Item:= _         wdPrintDocumentContent, Copies:=1, Pages:=””, PageType:=wdPrintAllPages, _         ManualDuplexPrint:=False, Collate:=True, Background:=False, PrintToFile:= _         False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _         PrintZoomPaperHeight:=0
Ne pas oublier de repointer l’imprimante par défaut en fin de manip ActivePrinter = “Brother HL-5340D“

=> Cliquer sur FIN de l’enregistrement

Dans PDFCREATOR je paramètre le dossier ou les PDF doivent être enregistrés

Ensuite une petite macro pour Ouvrir automatiquement le Dossier des PDFen fin de manip

ACTION

MACRO
Ouvre le dossier

  • C:\medycs\Pieces\_PDF


Ce qui permet ensuite de tirer le fichier en pièce jointe dans un messageSeule la ligne ShellExecute 0, “open”, “C:\medycs\Pieces\_PDF\”, 0, 0, 1
Est indispensable, le reste gère les erreurs système (ex Dossier Inexistant)

 Sub PDF_DossierOuvre()On Error GoTo ErrorHandlerShellExecute 0, “open”, “C:\medycs\Pieces\_PDF\”, 0, 0, 1ProgramExit:
Exit SubErrorHandler:
MsgBox Err.Number & ” – ” & Err.Description
Resume ProgramExitEnd Sub

ATTENTION : La fonction d’interface système SHELLEXECUTE n’est pas incluse dans les fonctions natives du VBA de Word, il faut donc la rajouter en la déclarant dans la section “déclarations” (Tout en haut des macros)

MACROS

CODE A COPIER COLLER
Declare Function ShellExecute Lib “shell32.dll” Alias _
“ShellExecuteA” (ByVal hwnd As Long, ByVal lpOperation _
As String, ByVal lpFile As String, ByVal lpParameters _
As String, ByVal lpDirectory As String, ByVal nShowCmd _
As Long) As Long

L’expérience (mon) conseille de créer 3 petites macros distinctes, par exemple :

  1. MACRO_SIGNATURE
  2. MACRO_PRINTPDF
  3. MACRO_OUVRE_DOSSIERPDF

Pour ensuite les regrouper dans une MACRO GLOBALE

  • MACRO_SIGNE_PDF
Qui contiendra simplement 3 lignes de commandes : 
Sub MACRO_SIGNE_PDFMACRO_SIGNATURE

  MACRO_PRINTPDF
    MACRO_OUVRE_DOSSIERPDF

End Sub

La dernière Manip consiste à placer la Macro “Signe+PDF” dans la Barre d’outils de WORD

Clic droit sur la Barre d’outil :

  • Personnalisation
    • Commandes
      • Macros

  • Il suffit de tirer la Macro sur la barre pour créer un bouton

Pour renommer le Bouton et changer d’icône

On clique droit une première fois comme précédemment

  • Personnaliser
    • Puis on clique droit une seconde fois sur le bouton pour activer ce sous-menu

More from my site

Laisser un commentaire