Forums Rue-Montgallet.com
Rue-Montgallet.comRue-Hardware.comRue-Occasion.comRue-DVD.comRue-Jeuxvideo.comRue-AudioVideo.comRue-Telephone.comForums
S'inscrire | S'identifier |
| Recherche avancée | Aide
 
 

Achat - Vente Divers : Sambo, 1 utilisateur anonyme et 20 utilisateurs inconnus

 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet :

Commande Application.OperatingSystem

 
n°17674
AliochaBad​a
Profil : Jeune recrue
Posté le 10-10-2006 à 23:51:24  profilanswer
 

Salut,
 
je voudrais corriger mon code afin qu'il soit compatible sur la plateforme MAC et PC.  
 
L'option qui me semble faisable, serait de prevoir deux lignes distinctes de code, une pour system Windows, une pour system MAc.
 
je pensais donc mettre au debut de mon code un aiguillage comme ca :

Code :
  1. If Application.OperatingSystem = "Windows*" Then .....(Code A pour Windows System)
  2. ElseIf Application.OperatingSystem = "*Mac*" Then...........(Code B pour MAc System)
  3. End IF


 
Seulement probleme je n'arrive pas à lui faire reconnaitre la valeur approximative, càd l'equivalent de 'contient le mot Windows".
La valeur est de type string pourtant.
 
Où c'est que je me trompe?

n°17675
AliochaBad​a
Profil : Jeune recrue
Posté le 11-10-2006 à 00:00:49  profilanswer
 

Bon ben il suffisait de regarder du côté des operateurs de comparaison de chaines de caracteres :
 

Code :
  1. If Application.OperatingSystem Like "*Windows*" Then


 
fait parfaitement l'affaire  
 
Désolée, j'ai dégainé un poil trop vite :D

n°17679
kiki29
Profil : Membre
Posté le 13-10-2006 à 10:30:33  profilanswer
 

   sys = UCase(Left(Application.OperatingSystem, 3))
    Select Case sys
        Case "WIN"
             .....
        Case "MAC"
             .....
     End Select


Aller à :
Ajouter une réponse