Le portail francophone de la géomatique

''Macro d'hyperlink permettant d'ouvrir une fiche définie dans une base FileMaker
' Passage par le presse-papier de Windows pour communiquer le paramètre
' identifiant l'objet d'ArcMap à FileMaker

''------------------------------------------------------------------------
' L'usage de cette macro necessite des parametrages dans ArcMap, dans FileMaker et dans cette macro :
' ARCMAP
' Importer le module mdlMXDLienBDFileMaker.bas dans le fichier MXD
' Paramétrage de la couche via Propriétés de la couche->Onglet Affichage :
' Cocher Gestion des hyperliens avec un champ
' Sélectionner le champ LIEN qui correspond au champ de la couche contenant l'identifiant commun entre du SHP et le FP5
' Cocher Macro
' Indiquer le nom de la macro à utiliser : "Project.mdlMXDLienBDFileMaker.OpenFileMaker"
' Cliquer sur OK

' FILEMAKER
''La macro "Openfiche" a creer dans FileMaker :
'Activer modèle ["Modèle n°1"]
'Mode Recherche []
'Coller [Sélectionner,Sans style, "NUMERO"] => "NUMERO" correspond au champ de la fiche FileMaker contenant l'identifiant commun entre du SHP et le FP5
'Exécuter recherche[]

' MACRO
' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!ATTENTION : Gérer le chemin d'accès à la base FP5 !!!!!!!!!!!!!!!!!!!!!!!!!!!
Const PathFP5 As String = "D:\MaBase.fp5"

Sub OpenFileMaker(pLink, pLayer)
    
    Dim pHyperlink As IHyperlink
    Set pHyperlink = pLink
'    Dim pFLayer As IFeatureLayer
'    Set pFLayer = pLayer
    
On Error Resume Next
    'remplir presse papier
    ' Ajouter la bibliothèque FM20.dll ("Microsoft Forms 2.0 Object Library") qui se trouve dans "C:\windows\system32"
    Dim MyData As DataObject
    Set MyData = New DataObject
    
    MyData.SetText pHyperlink.Link
    MyData.PutInClipboard
    
    'Ouverture de FileMaker
    ' Ajouter la bibliothèque FML10.dll ("FileMaker Pro 5.0 Type Library") qui se trouve dans "C:\Program Files\FileMaker\FileMaker Pro 5"
    Dim FMProApp As FMPRO50Lib.Application
    Dim FMDocs As FMPRO50Lib.Documents
    Dim FMActiveDoc As FMPRO50Lib.Document
    
    Set FMProApp = CreateObject("FMPRO.Application")
    Set FMDocs = FMProApp.Documents
    FMProApp.Visible = True
    
    'Ouverture du fichier FileMaker et exécution du script FileMaker utilisant la valeur du presse-papier
    Dim MyOpenFile As FMPRO50Lib.Document
    
    Set MyOpenFile = FMDocs.Open(PathFP5, "")
    MyOpenFile.DoFMScript ("Openfiche")

End Sub