[XL-MAC 2011] probleme de macro

[vivi21]

J'ai une macro comme ceci, je travaille beaucoup avec des PC mais là j'ai un MAC qui n'accepte par la ligne suivante :

Code :

Left(Dir(CheminBdd & "BDD.*"), 4) <> "BDD." Then

Pouvez vous me dire pourquoi et comment contourner le problème pour que ma macro fonctionne sous MAC

Code :

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
 
Sub Transfert()
Dim LigneCible As Long, ligneOrigine As Long
Dim LigneFin As Long
Dim Données As Variant
Dim Nom As String
Dim Mois As String
Dim Trimestre As String
Dim Année As String
Dim Nbjourstrav As String
Dim Nbconges As String
Dim Nbformation As String
Dim Pointeur As Long
Dim CheminBdd As String
'Lecture des infos dans la fiche de saisie
Nom = ThisWorkbook.Worksheets("fiche_activite").Range("B3").Value
Mois = ThisWorkbook.Worksheets("fiche_activite").Range("E3").Value
Trimestre = ThisWorkbook.Worksheets("fiche_activite").Range("E4").Value
Année = ThisWorkbook.Worksheets("fiche_activite").Range("E5").Value
Nbjourstrav = ThisWorkbook.Worksheets("fiche_activite").Range("D6").Value
Nbconges = ThisWorkbook.Worksheets("fiche_activite").Range("D8").Value
Nbformation = ThisWorkbook.Worksheets("fiche_activite").Range("D10").Value
LigneFin = ThisWorkbook.Worksheets("fiche_activite").Range("A2000").End(xlUp).Row
Données = ThisWorkbook.Worksheets("fiche_activite").Range("A14:e" & LigneFin)
 
'Ecriture dans l'onglet Base de données BDD
 
' Le chemin sera à modifier en fonction de l'application
CheminBdd = "u:/test/"
If Left(Dir(CheminBdd & "BDD.*"), 4) <> "BDD." Then
  Workbooks.Add
  Worksheets.Add
  ActiveSheet.Name = "BDD"
  Worksheets("BDD").Range("A1") = "Nom"
  Worksheets("BDD").Range("B1") = "Mois"
  Worksheets("BDD").Range("C1") = "Trimestre"
  Worksheets("BDD").Range("D1") = "Année"
  Worksheets("BDD").Range("E1") = "Nbjourstrav"
  Worksheets("BDD").Range("F1") = "Nbconges"
  Worksheets("BDD").Range("G1") = "Nbformation"
 
  ThisWorkbook.Worksheets("fiche_activite").Range("A13:E13").Copy Destination:=Worksheets("BDD").Range("H1:L1")
  ActiveWorkbook.SaveAs Filename:=CheminBdd & "BDD.xls"
 Else
  Workbooks.Open Filename:=CheminBdd & "BDD.xls"
End If
LigneCible = Workbooks("BDD.xls").Worksheets("BDD").Range("A65535").End(xlUp).Row + 1
' Boucle répétitive pour le nom
For Pointeur = LigneCible To LigneCible + UBound(Données) - 1
 Range("BDD!A" & Pointeur) = Année
 Range("BDD!B" & Pointeur) = Trimestre
 Range("BDD!C" & Pointeur) = Mois
 Range("BDD!D" & Pointeur) = Nom
 Range("BDD!E" & Pointeur) = Nbjourstrav
 Range("BDD!F" & Pointeur) = Nbconges
 Range("BDD!G" & Pointeur) = Nbformation
Next Pointeur
'Copie globale de la zone saisie
Workbooks("BDD.xls").Worksheets("BDD").Range("H" & LigneCible & ":L" & LigneCible + UBound(Données) - 1) = Données
Workbooks("BDD.xls").Close True
MsgBox "Merci la fiche du mois de " & Range("D3") & " a été transférée à Véronique"
End Sub

Merci d'avance pour vos réponses
vivi

[jfontaine]

Bonjour,

Je ne connais pas les MAC, mais sur un PC un chemin contient des Anti-Slash et non des Slash

Code :

CheminBdd = "u:\test\"

[Ormonth]

Bonjour,

pour connaître le séparateur voulu, tu peux te servir de la propriété PathSeparator de l'objet Application. dans la fenêtre d'exécution :

Code :

 ?Application.PathSeparator

Pour une portabilité constante du code un truc du genre :


Et il y a Mac ...et Mac selon l'OS le séparateur diffère je crois...

Code :

1
2
3
4
5
6
7
Sub gogo()
Dim strSepparateur
 
strSepparateur = Application.PathSeparator
Workbooks.Open Filename:="D:" & strSepparateur & "toto.xls"
 
End Sub

cordialement,

Didier

[Gogia]

Bonjour,

Je travail sur MAC et c'est une citation du code qui fonctionne bien

Code :

1
2
repertoire = "gestion:Dépenses:"     
Workbooks.Open "gestion:Dépenses:BD_consolidees.xls"

cordialement

[Ormonth]

Bonjour,

Gogia tu es sous quel OS ?

cordialement,

Didier

[Gogia]

Envoyé par Ormonth

Gogia tu es sous quel OS ?

Bonjour,

J'utilise Microsoft Office 2011 pour MAC.

cordialement,
Gogia