Déterminer le type de système d’exploitation en utilisant VBA dans Microsoft Excel
Pour identifier le type d’OS, nous pouvons utiliser du code macro. Dans cet article, nous allons apprendre comment déterminer le type de système d’exploitation utilisé à l’aide du code VBA .
Question: je voudrais connaître le système d’exploitation de mon système via le code VBA qu’il soit 32 bits ou 64 bits.
Pour déterminer le type de système d’exploitation, nous devons suivre les étapes ci-dessous:
Nous devons lancer l’éditeur VB Cliquez sur l’onglet Développeur * Dans le groupe Code, sélectionnez Visual Basic
-
Cliquez sur Insérer puis Module
Cela créera un nouveau module Entrez le code suivant dans le module
===
Function OSis32BIT() As Boolean OSis32BIT = False If InStr(Application.OperatingSystem, "32-bit") Then OSis32BIT = True End If End Function
Function OSis64BIT() As Boolean OSis64BIT = False If InStr(Application.OperatingSystem, "64-bit") Then OSis64BIT = True End If End Function
Sub TestOSis32BIT() If OSis32BIT Then MsgBox "You use a 32bit operating system", , _ Application.OperatingSystem Else MsgBox "You don't use a 32bit operating system", , _ Application.OperatingSystem End If End Sub
===
Lorsque vous exécutez la macro, vous obtiendrez une boîte de message, reportez-vous à l’instantané ci-dessous:
Si vous utilisez un système d’exploitation 64 bits, la boîte de message se mettra à jour « Vous n’utilisez pas un système d’exploitation 32 bits »
Pour vérifier si le système est 32 bits; nous pouvons utiliser UDF dans une cellule vide comme:
-
= OSis32BIT (); cela retournera TRUE si le système d’exploitation est à 32 bits sinon retourne FALSE
Pour vérifier si le système est 64 bits; nous pouvons utiliser UDF dans une cellule vide comme:
-
= OSis64BIT (); cela retournera TRUE si le système d’exploitation est à 64 bits, sinon, FALSE Conclusion: De cette manière, en utilisant le code VBA, nous pouvons identifier le système d’exploitation que nous utilisons.
Si vous avez aimé nos blogs, partagez-les avec vos amis sur Facebook. Et vous pouvez aussi nous suivre sur Twitter et Facebook.
Nous serions ravis de vous entendre, faites-nous savoir comment nous pouvons améliorer, compléter ou innover notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]