Vous devrez peut-être copier régulièrement un classeur vers plusieurs emplacements sur votre système. Par exemple, le classeur ouvert peut devoir être copié sur un disque dur local et sur plusieurs lecteurs mappés qui se trouvent réellement sur le réseau de votre entreprise.

Excel n’a pas de capacité intégrée pour ce faire, mais si les différents emplacements sont bien définis, vous pouvez créer une macro qui fera l’enregistrement pour vous. La macro suivante est un exemple d’un tel outil:

Sub SaveToLocations()

Dim OrigName As String

OrigName = ActiveWorkbook.FullName     ActiveWorkbook.SaveAs "G:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs "L:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs "K:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs "S:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs OrigName End Sub

L’exemple particulier de la macro enregistre le classeur actif à cinq emplacements différents, tous utilisant le même nom de classeur. La macro détermine l’emplacement actuel du classeur afin qu’il puisse enregistrer à l’emplacement actuel en dernier. La raison pour laquelle cela est fait est que vous pouvez continuer à utiliser l’outil d’enregistrement normal et obtenir les résultats attendus.

Si vous souhaitez utiliser cette macro sur votre propre système, tout ce que vous devez faire est de vous assurer que vous modifiez les lettres de lecteur de l’emplacement où chaque classeur sera enregistré. Si l’un des lecteurs que vous spécifiez est destiné à un emplacement qui utilise un support amovible et qu’il n’y a pas de support dans le lecteur, la macro générera une erreur et s’arrêtera. Vous devrez ensuite déterminer où le classeur a été initialement enregistré afin de pouvoir le réenregistrer manuellement (en utilisant Enregistrer sous).

Une autre particularité de la macro est que, comme elle utilise la méthode SaveAs, s’il existe déjà un classeur à chacune des destinations portant le même nom que le classeur actuel, Excel vous demandera si vous souhaitez que la version existante du classeur soit remplacée. Ce sera toujours le cas avec la dernière sauvegarde, à l’emplacement d’origine.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2774) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Saving_in_Multiple_Locations [Sauvegarde dans plusieurs emplacements].