Enregistrer un fichier sur un lecteur réseau par programme dans 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
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour