Débutante en VB, j'ai ce code sur mon PC mais je n'arrive pas à le trnsposer sur MAC.
J'ai une erreur sur cette ligne If Left(Dir(CheminBdd&"BDD.*"), 4) <> "BDD." Then j'ai remplacé cheminBDD par le chemin directement mais sans succès.

Pouvez vous m'aiguiller merci

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
CheminBdd = "u:ad:ANNE:BDD.xls"
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") = "Nbjoursmois"
  Worksheets("BDD").Range("F1") = "Nbconges"
  Worksheets("BDD").Range("G1") = "Nbformation"
  Worksheets("BDD").Range("H1") = "Nbtrav"
 
  ThisWorkbook.Worksheets("fiche_activite").Range("A15:E15").Copy Destination:=Worksheets("BDD").Range("I1:M1")
  ActiveWorkbook.SaveAs "u:Ad:ANNE:BDD.xls"
 Else
  Workbooks.Open "u:Ad:ANNE:BDD.xls"
End If
LigneCible = Workbooks("BDD.xlsx").Worksheets("BDD").Range("A65535").End(xlUp).Row + 1