aide sur une ligne de programmation

Version imprimable

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:

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

25/10/2011, 21h24
olaxius

bonsoir,
Je pense que la réponse se situe dans l'aide d'excel
dont voici un extrait

Citation:

Étant donné que le Macintosh ne gère pas les caractères génériques, utilisez le type de fichier pour identifier les groupes de fichiers. Vous pouvez utiliser la fonction MacID pour indiquer le type de fichier au lieu d'utiliser les noms de fichier. Par exemple, l'instruction suivante renvoie le nom du premier fichier TEXT dans le dossier courant :

Dir("Chemin d'accès", MacID("TEXT"))

souhaitant vous avoir aidé
26/10/2011, 20h45
AlainTech
Bonjour,

Je vois déjà une incohérence:
Code:

1 2 3 Workbooks.Open "u:Ad:ANNE:BDD.xls" End If LigneCible = Workbooks("BDD.xlsx").Worksheets("BDD").Range("A65535").End(xlUp).Row + 1
Bon d'accord, elle n'a rien à voir avec l'erreur mais ça risque d'en provoquer une autre.
27/10/2011, 09h15
vivi21

oui AlainTech j'avais testé en mettant l'extension xlsx mais cela ne change rien.

Je vais essayé la méthode d'olaxius.

Merci

J'ai toujours l'erreur même avec la solution d'olaxius.

J'ai essayé de contourner en confectionnant une macro toute simple de ce genre
Code:

1 2 3 4 5 6 7 8 Sub gogo() Dim strSepparateur strSepparateur = Application.PathSeparator Workbooks.Open Filename:="HD" & strSepparateur & "Users" & strSepparateur & "anne" & strSepparateur & "Desktop" & strSepparateur & "toto.xls" End Sub
mais sans succès

Il me mets l'erreur suivante :

erreur d'execution 1004
HD:Users:anne:Desktop:toto.xls introuvable

Pouvez vous m'aiguiller étant débutante sous l'environnement MAC je pense que c'est un soucis de chemin

J'ai une version MAC OS X 10.6.8

merci