Discussion :

[Antipod]

Bonjour à tous,
J'ai finalisé mon classeur sous WinXp, mais certains utilisateurs l'ouvriront depuis Mac...
Inutile de vous apprendre que ça bug sur certaines macros

Question1:
J'ai déjà modifié quelques fonctionnalités pour que ça "passe", et je me demande si je pourrais pas différencier des lignes de code, qui s'exécuteraient ou non selon si l'OS est Mac ou Win ?? Je suis sûr qu'un joli IF peut me faire ça... comment tester l'OS ?

Question2:
La commande Sendkeys "{F2}" fonctionne bien sous Win mais pas sur Mac. A votre avis est-ce une commande inexistante sous Mac, ou bien un simple problème de désignation de la bonne touche sur le clavier Mac... ? (pour info j'ai besoin de F2 pour positionner le curseur automatiquement en fin de valeur dans une cellule pour "suggérer sa saisie")

Merci d'avance de vos éclairages.
Antipod
si je converse à contre-temps, c'est que je suis aux antipodes...

[kiki29]

Salut,Pour 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Option Explicit
 
Sim Sys as String
 
    .....
    Sys = UCase(Left$(Application.OperatingSystem, 3))
    Select Case Sys
        Case "WIN"
		.....
        Case "MAC"
		.....
     End Select
     .....

Pour 2 : Pas de SendKeys (c'est indiqué dans l'aide de SendKeys)

Sinon créer une constante de compilation conditionnelle et la définir de manière à indiquer si le code est
compilé pour Windows ou pour Macintosh.
Pour préciser que le code est compilé pour Macintosh,
dans le menu Outils de Visual Basic Editor, cliquez sur Propriétés de VBAProject,
puis dans la zone Arguments conditionnels de compilation, tapez Macintosh = 1.
Tu pourras alors compiler et exécuter le code sur Macintosh.
Pour Windows, attribuez la valeur 0 (zéro) à la même constante.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
#If Macintosh Then
.....
#End If

Sans oublier qu'Excel 2008 Mac n'intègre plus VBA ( provisoirement ? )

[Antipod]

Bonjour Kiki29,

J'ai utilisé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
 Sim Sys as String
 
    .....
    Sys = UCase(Left$(Application.OperatingSystem, 3))
    Select Case Sys
        Case "WIN"
		.....
        Case "MAC"
		.....
     End Select
     .....

(et pour les débutants (dont je fais partie) Option Explicit+Sim Sys as String se place par exemple en tête de Module)

J'ai pu ainsi diriger l'execution d'un code différencié selon si la macro s'exécute sur Mac ou Win.

Sinon créer une constante de compilation conditionnelle et la définir de manière à indiquer si le code est
compilé pour Windows ou pour Macintosh.

Comme la formule précédente fonctionne pour moi, je laisse à d'autres le soin d'utiliser cette solution... j'imagine que ça peut mieux convenir selon les cas, pour l'instant je ne saisis pas tout!!!
"compilation"... je ne vois pas pourquoi tu parles musique !!

Sans oublier qu'Excel 2008 Mac n'intègre plus VBA ( provisoirement ? )

je suis sous XL2000(win) et XL2004 (Mac) donc ça passe.

Merci Beaucoup,
A une prochaine...
Antipod
si je converse à contre-temps, c'est que je suis aux antipodes...