Discussion :

[tessang]

Bonjour,

Je viens de créer une macro qui permet de déplacer et copier certaines feuilles d'un classeur excel vers un autre. (sur un PC sous exel 97)
Seulement lorsque mon collègue veut l'exécuter sous MAC ça ne fonctionne pas.
Quelqu'un peut-il me donner les mofications à apporter pour y remédier parce que je suis dessus depuis plus d'une semaine mais en vain (et je n'ai pas de mac pour tester)
Merci beaucoup

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub sauve_resultat()
 
Set WB_macro = ActiveWorkbook.ActiveSheet
CurPath = ActiveWorkbook.Path
Set Wb_bc1 = ActiveWorkbook.Sheets("Bon commande 1")
Set Wb_bc2 = ActiveWorkbook.Sheets("Bon commande 2")
Set Wb_bc3 = ActiveWorkbook.Sheets("Bon commande 3")
Set Wb_bc4 = ActiveWorkbook.Sheets("Bon commande 4")
Set Wb_bc5 = ActiveWorkbook.Sheets("Bon commande 5")
 
'Copie de la premiere feuille, on a au moins une livraison
Set WB_sauve = Workbooks.Add()
Wb_bc1.Copy Before:=WB_sauve.Sheets(1)
'On retire les alertes avant de supprimer les feuilles en trop
Application.DisplayAlerts = False
WB_sauve.Sheets(4).Delete
WB_sauve.Sheets(3).Delete
WB_sauve.Sheets(2).Delete
'On revient au fonctionnement normal
Application.DisplayAlerts = True
 
If Not (WB_macro.Cells(11, 11) = "") Then
 Wb_bc2.Copy After:=WB_sauve.Sheets(WB_sauve.Sheets().Count)
End If
 
If Not (WB_macro.Cells(11, 13) = "") Then
 Wb_bc3.Copy After:=WB_sauve.Sheets(WB_sauve.Sheets().Count)
End If
 
If Not (WB_macro.Cells(11, 15) = "") Then
 Wb_bc4.Copy After:=WB_sauve.Sheets(WB_sauve.Sheets().Count)
End If
 
If Not (WB_macro.Cells(11, 17) = "") Then
 Wb_bc5.Copy After:=WB_sauve.Sheets(WB_sauve.Sheets().Count)
End If
 
'Tous les bons de commandes ont été copiés, on va protéger les feuilles
WB_sauve.Protect "1234"
 
nom_fichier = CurPath & "\HIV_" & WB_macro.Cells(4, 5).Value & "_" & WB_macro.Cells(5, 5).Value
WB_sauve.SaveAs Filename:=nom_fichier
 
End Sub

[Pierre Fauconnier]

Salut.

J'ai, une seule fois dans ma vie, dû coder du VBA sur MAC. Une véritable galère...

D'une façon générale, et sans avoir de mac pour tester, tout ce qui touche au système (et donc la gestion des fichiers, dir(), path, ... fenêtre pour ouvrir, enregistrer, etc...) va poser problème...

Sans mac pour tester en pas à pas, c'est peine perdue, à mon avis.

[Gogia]

Salut,

J'utilise MAC. Par défaut, la version était Office 2008 mais cette version n'est pas compatible avec VB.
J'ai installé la version Office 2001. Cette version m'a posé pas mal de problème avec le syntaxe.
Depuis 2 jours, j'ai la version Office 2011 pour MAC et ça va.
En général, très souvent il faut remplacer ";" qu'on utilise pour PC par ",". Autrement, tu auras des problèmes de compilation.

J'espère que ça pourra t'aider un peu.
Amicalement.

[kiki29]

Salut, malgré tout voir http://www.developpez.net/forums/d22...teurs-vba-mac/ http://dj.joss.free.fr/mac.htm entre autres.
Mmais pour avoir développé des macros sur PC qui au final tournent sur Mac : hors l'emploi d'un Mac pour valider le code point de salut

[AlainTech]

Bonjour,

Le \ n'est pas le séparateur de chemin sur Mac.

Pour rendre la macro compatible avec les 2 environnements, tu peux écrire:

Code :

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

nom_fichier = CurPath & PathSeparator & "HIV_" & WB_macro.Cells(4, 5).Value & "_" & WB_macro.Cells(5, 5).Value