Discussion :

[vivi21]

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

[olaxius]

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

É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é

[AlainTech]

Bonjour,

Je vois déjà une incohérence:

Code :

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

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.

[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

[vivi21]

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 :

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

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