A partir d'un document, je crée une copie. Comment faire pour enregistrer cette copie dans le même répertoire que l'original, sans connaître à l'avance le chemin de celui-ci sachant que je peux suivant les cas être sous mac ou sous PC ?

1°) Tester le système:
Systeme = Application.OperatingSystem
TypeSysteme = Left(Systeme, 1)
2°) Récupérer le chemin d'accès
Chemin = ActiveWorkbook.Path
Rapport = ThisWorkbook.Name
Rapport2 = Left(Rapport, 8) & "_Final.xls"
3°) En fonction du système choisir le chemin pour sauvegarder
If TypeSysteme = "M" Then .SaveAs Chemin & ":" & Rapport2
If TypeSysteme = "W" Then .SaveAs Chemin & "" & Rapport2
Une autre solution, plus rapide est d'utiliser directement .SaveAs Chemin & Application.PathSeparator & Rapport2 En effet, Application.pathSeparator renvoie / pour les PC et : pour les mac. Il n'est donc plus nécessaire avec cette instruction de tester le système.