Accueil > Conception et création de bases de données > Création de scripts pour l'automatisation de tâches > Création d'un script à l'aide de ActiveX Automation (Windows) > Exemple de programmation ActiveX Automation (Windows)
Exemple de programmation ActiveX Automation (Windows) Private Sub Form_Load()'---------------------------------------------- ' Exemple de code pour accéder à FileMaker' à partir de Visual Basic.'' "Bibliothèque de types FileMaker Pro 7.0" doit être sélectionnée"et accessible ' dans les références disponibles du projet Visual Basic." '---------------------------------------------- '---------------------------------------------- ' Déclaration des objets et lancement de FileMaker '---------------------------------------------- ' Déclaration des variables d'objet Dim FMApp As FMPro70Lib.ApplicationDim FMDocs As FMPro70Lib.DocumentsDim FMActiveDoc As FMPro70Lib.Document ' Lancement de FileMaker Set FMApp = CreateObject("FMPRO.Application") ' Définition de l'objet Documents Set FMDocs = FMApp.Documents ' Affichage de FileMaker à l'écran (lors d'un lancement via ActiveX automation,' FileMaker est masqué par défaut.) FMApp.Visible = True '---------------------------------------------- ' Recherche des documents ouverts '---------------------------------------------- 'Vérification du nombre de documents ouverts If FMDocs.Count = 0 ThenDebug.Print "Aucun document ouvert"SinonDebug.Print "Nombre de documents ouverts :" ; FMDocs.CountFin de si '-------------------------------------------------- ' Ouverture d'une base de données FileMaker et lancement d'un script '-------------------------------------------------- ' Remarque : Un fichier FileMaker "c:\test.fmp12" doit être disponible' un fichier FileMaker "c:.fp5" doit être accessible avec' un script appelé "Premier script". Dim myOpenFile As Object ' Remarque : peut également être déclaré ainsiFMPro70Lib.Document Set myOpenFile = FMDocs.Open("c:\test.fmp12", "","")myOpenFile.DoFMScript ("Premier script") '-------------------------------------------------- ' Recherche du document actif '-------------------------------------------------- Set FMActiveDoc = FMDocs.Active ' Affichage du nom du document actif Debug.Print "Le fichier actif est "; FMActiveDoc.FullName '-------------------------------------------------- ' Décompte et fermeture des documents '-------------------------------------------------- Dim TempToc As Object If FMDocs.Count = 0 Then For Each TempDoc In FMDocs Debug.Print "Fermeture prochaine du document : "; TempDoc.FullNameTempDoc.CloseSet TempDoc = NothingSuivant(e)Fin de si '---------------------------------------------- ' Nettoyage et sortie '---------------------------------------------- Set FMDocs = NothingSet FMActiveDoc = NothingSet myOpenFile = Nothing ' Ferme FileMaker et libère les variables ' (Remarque: affectez systématiquement Nothing à la variable d'application après sa fermeture.) FMApp.QuitSet FMApp = Nothing End Sub Rubriques connexes Utilisation de FileMaker Pro ActiveX Automation (Windows) Objets, méthodes et propriétés ActiveX Automation (Windows)