Compiler plusieurs onglets excel

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/

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 :ccool:

Code:

---

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:

---

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

Bonjour,

Citation:

---

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 :plusser:

Citation:

---

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:

---

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:

---

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.

Citation:

---

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:

---

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:

---

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:

---

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)

Citation:

---

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:

---

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 ). 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 :resolu:

Edit : petites corrections dans le texte

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:

---

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

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, …

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

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

Citation:

---

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 … :oops:

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

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:

---

1 2 3 4 5 6 7

Sub Mac_PC_1() #If Mac Then MsgBox "MAC" #Else MsgBox "PC" #End If End Sub

---

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 )

Super kiki29 :ccool: merci pour ta réponse
c'est bien de connaitre les différentes possibilités, ça me servira ;)

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

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 :ccool: