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

image 1

  • Cliquez sur Insérer puis Module

image 2

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

image 3

===

Lorsque vous exécutez la macro, vous obtiendrez une boîte de message, reportez-vous à l’instantané ci-dessous:

image 4

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

image 5

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.

image 6

Si vous avez aimé nos blogs, partagez-les avec vos amis sur Facebook. Et vous pouvez aussi nous suivre sur Twitter et Facebook.

image 48

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]