Enregistrer un fichier sur un lecteur réseau par programme dans Excel

  • Article
  • S’applique à:
    Microsoft Excel

Résumé

Dans Microsoft Excel, vous pouvez enregistrer un fichier sur n’importe quel lecteur pour lequel vous disposez des privilèges d’écriture et de suppression. En outre, vous pouvez utiliser une macro Microsoft Visual Basic pour Applications pour enregistrer le classeur actif et utiliser une variable pour le nom de fichier. Vous pouvez utiliser des variables d’ActiveWorkbook.Nameproperty, de données de zone d’entrée ou d’une référence de cellule.

Remarque

Si vous utilisez le chemin d’accès complet pour le nom de fichier, Microsoft Excel sait exactement où enregistrer le fichier. Si le chemin d’accès n’est pas spécifié, Microsoft Excel enregistre le fichier dans le répertoire ou le dossier actif.

Informations supplémentaires

Microsoft fournit des exemples de programmation à titre d’illustration uniquement, sans garantie expresse ou implicite. Cela inclut, sans y être limité, les garanties implicites de qualité marchande et d’adéquation à un usage particulier. Cet article considère que vous connaissez le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les techniciens du Support technique Microsoft peuvent vous expliquer les fonctionnalités d’une procédure particulière, mais ils ne peuvent pas modifier les exemples en vue de vous fournir des fonctionnalités supplémentaires ou de créer des procédures répondant à vos besoins spécifiques.

Exemple de macro 1

Pour enregistrer le classeur actif avec une variable dans un chemin d’accès spécifié, utilisez la macro suivante :

   Sub SaveWithVariable()
       Dim MyFile As String

       MyFile = ActiveWorkbook.Name
       ' Do not display the message about overwriting the existing file.
       Application.DisplayAlerts = False
       ' Save the active workbook with the name of the
       ' active workbook. Save it on the E drive to a folder called
       ' "User" with a subfolder called "JoeDoe."
       ActiveWorkbook.SaveAs Filename:="E:\User\JoeDoe\" & MyFile
       ' Close the workbook by using the following.
       ActiveWorkbook.Close
   End Sub

Exemple de macro 2

Utilisez un nom de fichier stocké dans une cellule et enregistrez le fichier sur le serveur réseau. Pour ce faire, utilisez la macro suivante :

   Sub SaveWithVariableFromCell()
       Dim SaveName As String
       SaveName = ActiveSheet.Range("A1").Text
       ActiveWorkbook.SaveAs Filename:="E:\User\JoeDoe\" & _
           SaveName & ".xls"
   End Sub