Compiler plusieurs onglets excel

**Philippe Tulliez** · 05/04/2016, 18h12

Bonjour,
Je suppose que les boîtes de dialogues ne sont pas gérées par le MAC ou bien qu'il faut référencer une bibliothèque.
IL faut espérer qu'un utilisateur averti de cette marque passe par ici et nous signale ce qu'il faut faire pour pallier ce problème.

[EDIT]
En faisant une recherche rapide, peut-être une réponse dans cette discussion http://www.developpez.net/forums/d42...et-filedialog/

**RyuAutodidacte** · 06/04/2016, 11h47

Bonjour Philippe,
après quelques recherches de mon coté, Application.FileDialog(msoFileDialogFolderPicker) ne marche pas sur Mac et est propre à PC,
la seule solution que j'ai trouvé pour l'instant est ce lien : http://www.rondebruin.nl/mac/mac017.htm
Ces 2 liens peuvent être utile aussi http://www.rondebruin.nl/mac.htm et https://msdn.microsoft.com/fr-fr/lib...ffice.14).aspx au cas où la comunauté excel serait amené à proposer des macros multi-plateforme PC/Mac

Je me suis trouvé une petite astuce pour que dans une macro on puisse déterminer si on est sur PC ou sur MAC; mais pour l'instant je n'ai pas eu de retour, si quelqu'un peut le tester pour moi sur PC ça serait cool

Code :

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

1
2
3
4
Sub PC_MAC()
    Plateforme = ThisWorkbook.Path
    If Plateforme = "*\*" Then MsgBox "Vous êtes sur PC" Else MsgBox "Vous êtes sur MAC"
End Sub

Si ce code ne marche pas, alors essayer celui-ci :

Code :

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

1
2
3
4
5
Sub PC_MAC()
Dim Plateforme$
    Plateforme = ThisWorkbook.Path
    If InStr(Plateforme, ":") <> 0 Then MsgBox "Vous êtes sur MAC" Else MsgBox "Vous êtes sur PC"
End Sub

Si les 2 fonctionnes dites le moi aussi

Merci

**Philippe Tulliez** · 06/04/2016, 13h04

Bonjour,

après quelques recherches de mon coté, Application.FileDialog(msoFileDialogFolderPicker) ne marche pas sur Mac et est propre à PC,
la seule solution que j'ai trouvé pour l'instant est ce lien : http://www.rondebruin.nl/mac/mac017.htm
Ces 2 liens peuvent être utile aussi http://www.rondebruin.nl/mac.htm et https://msdn.microsoft.com/fr-fr/lib...ffice.14).aspx au cas où la comunauté excel serait amené à proposer des macros multi-plateforme PC/Mac

Merci pour ton retour

Je me suis trouvé une petite astuce pour que dans une macro on puisse déterminer si on est sur PC ou sur MAC; mais pour l'instant je n'ai pas eu de retour, si quelqu'un peut le tester pour moi sur PC ça serait cool

Le premier code ne renvoie pas la bonne valeur et pour cause, le test doit plutôt se faire avec Instr du moins si je devine que la hiérarchie des répertoires est séparée par des barres / en MAC alors que sous DOS c'est \
Soit

Code :

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

1
2
3
4
Sub PC_MAC()
    Plateforme = ThisWorkbook.Path
    If InStr(Plateforme, "\") Then MsgBox "Vous êtes sur PC" Else MsgBox "Vous êtes sur MAC"
End Sub

Il me semble qu'il est possible également de se baser sur les n° de versions de l'application qui je crois sont différents sur MAC et PC-DOS mais cela demande confirmation
La commande

Code :

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

Msgbox Application.Version

[EDIT]
Il y a également la propriété OperatingSystem du même objet Application qui renvoie le nom et le numéro de version du système d'exploitation actif qui permettrait de savoir si on est sur un MAC ou sur Windows.

**RyuAutodidacte** · 06/04/2016, 14h25

Envoyé par Philippe Tulliez

Le premier code ne renvoie pas la bonne valeur et pour cause, le test doit plutôt se faire avec Instr du moins si je devine que la hiérarchie des répertoires est séparée par des barres / en MAC alors que sous DOS c'est \
Soit

Code :

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

1
2
3
4
Sub PC_MAC()
    Plateforme = ThisWorkbook.Path
    If InStr(Plateforme, "\") Then MsgBox "Vous êtes sur PC" Else MsgBox "Vous êtes sur MAC"
End Sub

ok je garde la version avec InStr. par contre je ne sais pas si dans la hierachie des répertoire Windows il peut y avoir ":" au début de celle-ci (mis à part les "\")???
Sur Mac nous avons les ":" mais pas les "/" sur Excel (par contre avec le système Mac on a bien : "/")

Code :

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

1
2
3
4
Sub PC_MAC()
    Plateforme = ThisWorkbook.Path
    If InStr(Plateforme, ":") Then MsgBox "Vous êtes sur MAC" Else MsgBox "Vous êtes sur PC"
End Sub

Du coup quand l'on veut déterminer le chemin automatiquement, cela me donne dans le code (à partir de moment ou le code est multi plateforme ou qu'il propose une alternative multi plateforme) :

Code :

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

1
2
3
4
Sub PC_MAC()
    Plateforme = ThisWorkbook.Path
    If InStr(Plateforme, ":") Then H_Rep = ":" Else H_Rep = "\" 'H_Rep (hiérarchie répertoire), ou on pourrait aussi faire sepRep (séparation de répertoire) :) à la convenance de chacun
End Sub

Cela permet d'éviter des tests pour savoir sur quelle version d'Excel on se trouve, alors que le code peut être multi version (Multi version excel et Multi plateforme)

Envoyé par Philippe Tulliez

Il me semble qu'il est possible également de se baser sur les n° de versions de l'application qui je crois sont différents sur MAC et PC-DOS mais cela demande confirmation
La commande

Code :

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

Msgbox Application.Version

[EDIT]
Il y a également la propriété OperatingSystem du même objet Application qui renvoie le nom et le numéro de version du système d'exploitation actif qui permettrait de savoir si on est sur un MAC ou sur Windows.

Je confirme pour les 2 (testé et approuvé

). D'ailleurs, je crois que rondebruin en parle (cf voir dans les liens post #22 http://www.developpez.net/forums/d15...l/#post8589878)

Merci d'avoir tester mon code

PS : yotman on a plus de nouvelle de toi. Ton problème est résolu?? si c'est le cas clic sur

Edit : petites corrections dans le texte

**RyuAutodidacte** · 07/04/2016, 13h23

bonjour,
L'arborescence dans windows s'écrit bien tout le temps de cette manière : ???
C:\xxxxxx\xxxxxxx\……
ou selon drive
D:\xxxxxx\xxxxxxx\……
Si c'est le cas alors modification définitive du code du post précédent en :

Code :

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

1
2
3
4
Sub PC_MAC()
    Plateforme = ThisWorkbook.Path
    If InStr(Plateforme, "\") Then H_Rep = "\" Else H_Rep = ":" 'H_Rep (hiérarchie répertoire), ou on pourrait aussi faire sepRep (séparation de répertoire) :) à la convenance de chacun
End Sub

Pouvez-vous me le confirmer svp
merci

**Marc-L** · 07/04/2016, 14h11

Salut !

Oui c'est bien cela …

{Lettre du disque dur}:\{Dossier}\{Sous Dossier}\{nom du fichier}.{extension du fichier}

comme par exemple D:\DEV\VBA\Tablo3.xlsb …

Utiliser soit la propriété OperatingSystem soit la compilation conditionnelle #If Mac Then …

______________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

**kiki29** · 07/04/2016, 14h28

Salut, il me semble qu'il y a Application.PathSeparator qui fonctionne sur Mac/PC ?

**RyuAutodidacte** · 07/04/2016, 14h48

Merci bien pour vos réponses, je regarderai ce soir tout cela en détail.

**Marc-L** · 07/04/2016, 21h16

Envoyé par kiki29

Salut, il me semble qu'il y a Application.PathSeparator qui fonctionne sur Mac/PC ?

Oui bien sûr ‼

En plus je l'ai déjà utilisé à plusieurs occasions …

**RyuAutodidacte** · 07/04/2016, 21h18

je confirme je viens de l'essayer il me donne bien les ":" pour Mac

Edit : d'ailleurs c'est plus rapide car plus besoin de condition

**RyuAutodidacte** · 07/04/2016, 21h49

je viens d'essayer ton code Marc : #If Mac Then … sur ma version d'excel il me donne la bonne réponse
Qu'en est il sur PC ??

Code :

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

1
2
3
4
5
6
7
Sub Mac_PC_1()
#If Mac Then
    MsgBox "MAC"
#Else
    MsgBox "PC"
#End If
End Sub

**kiki29** · 07/04/2016, 23h07

Salut, sur PC il renvoie PC.

Sinon il y a aussi par exemple sys = UCase$(Left$(Application.OperatingSystem, 3)) qui renvoie "WIN" ou "MAC" suivant le système. J'ai retrouvé ça sur un fichier datant de 2000 ( époque ou je créais sur PC pour utilisation sur du Mac : masochisme ? , pas vu de Mac depuis )

**RyuAutodidacte** · 07/04/2016, 23h28

Super kiki29

merci pour ta réponse
c'est bien de connaitre les différentes possibilités, ça me servira

**kiki29** · 09/04/2016, 01h19

Re, tu trouveras ici des choses concernant les différences Excel Mac / Excel Windows.

**RyuAutodidacte** · 09/04/2016, 10h22

Merci kiki29

,
j'avais mis un lien aussi de Ron un peu plus haut dans les posts en faisant une recherche
le but de mes questions ici c'était de pouvoir mettre un chemin automatique que l'on soit sur PC ou MAC sans forcément écrire des lignes de codes comme par exemple : Application.PathSeparator (cité plus haut)
dans tous les cas c'est très bien que tout le monde puisse voir les différentes possibilités,
je te remercie d'y avoir pensé et d'avoir mis le lien

Compiler plusieurs onglets excel

Macros et VBA Excel

Discussions similaires

Partager

Partager