Utiliser XLGL dans une macro VBA
Dans Visual Basic pour Application (VBA), vous pouvez appeler n'importe quelle fonction de feuille de calcul XLGL et un certain nombre de macros XLGL à l'aide de la commande Excel Application.Run
.
Par exemple, vous pouvez obtenir le solde du compte 4010 à l'aide de la fonction de feuille de calcul XGL :
Dim solde as Double
solde = Application.Run("XGL", "4010")
Assurez-vous de fournir tous les paramètres dans l'ordre spécifié dans la documentation de chaque fonction. Les arguments vides peuvent être une chaîne vide. Par exemple, pour obtenir le montant total de toutes les transactions du compte 4010-0300, où 0300 est le département, vous utiliserez :
Dim montant as Double
montant = Application.Run("XGLP", "4010", "", "", "0300")
Macros prédéfinies
Utilisez les commandes suivantes pour réaliser des actions normalement effectuées à l'aide du ruban XLGL :
- Ouvrez le panneau de connexion (pour réellement ouvrir une connexion, utilisez la fonction de feuille de calcul XConnect)
Application.Run "XLGL.Connect"
- Ouvrir le panneau de rapport
Application.Run "XLGL.Reports"
- Actualiser le classeur
Application.Run "XLGL.Refresh"
- Recalculer le classeur
Application.Run "XLGL.Recalculate"
- Figer le classeur actif
Application.Run "XLGL.Freeze"
Pour empêcher l'affichage d'un message de confirmation, utilisez
Application.Run "XLGL.Freeze", False
Application.Run "XLGL.FreezeWorksheet"
Application.Run "XLGL.FreezeWorksheet", False
Application.Run "XLGL.FreezeRange"
Application.Run "XLGL.FreezeRange", False
Application.Run "XLGL.Drilldown"
Application.Run "XLGL.HideZeros"
Application.Run "XLGL.HideZeroRows"
Application.Run "XLGL.HideZeroColumns"
Application.Run "XLGL.Unhide"
Application.Run "XLGL.UnhideRows"
Application.Run "XLGL.UnhideColumns"
Application.Run "XLGL.PrintLayout"
Application.Run "CopyCurrentWorksheet"
Application.Run "XLGL.SwitchLanguage"
Édité: mardi, novembre 05, 2024
Cet article a-t-il été utile?
Merci ! Vos retours comptent.
Articles Liés
Aucun article associé trouvé
You can Contactez-nous afin que nous puissions répondre à votre question.