Sauvegarde du classeur avec la date actuelle avec Excel VBA

Nous savons tous que la sauvegarde de votre travail est une affaire sérieuse. Maintenant, vous pouvez avoir une macro qui le fera pour vous. Cette simple macro enregistre le classeur dans un nouveau fichier en ajoutant la date actuelle à son nom.

Comment ca marche?
L’astuce consiste à créer un nouveau nom. Le nouveau nom sera composé de trois éléments: le chemin d’accès, la date actuelle et le nom d’origine.
Le chemin d’accès est extrait à l’aide des propriétés Path de l’objet Workbook. La date actuelle est collectée à l’aide de la fonction Date.
La date sera correctement formatée (Format (Date, “jj-mm-aa”)). Cela devrait être fait car la fonction Date renvoie le résultat au format jj / mm / aaaa par défaut. Cependant, comme les inclinaisons vous empêchent d’enregistrer le nom de fichier (Windows ne vous permet pas de placer les emplacements dans les noms de fichier), nous les remplacerons par les manuels.
Le dernier élément du nouveau nom est l’ancien nom. Pour le télécharger, nous allons utiliser la propriété Name de l’objet Workbook.

Sub SauvegardeClasseur ()
'Étape 1: enregistrez la feuille sous le nouveau nom de fichier
ThisWorkbook.SaveCopyAs _
Filename:=ThisWorkbook.Path & "\" & _
Format(Date, "DD-MM-YY") & " " & _
ThisWorkbook.Name
End Sub

À la seule étape de cette macro, un nouveau fichier est créé et la méthode SaveCopyAs est utilisée pour le sauvegarder.
Comment utiliser la macro?
Pour implémenter cette macro, vous pouvez copier et coller son code en mode standard. À cette fin:
1. Utilisez les touches Alt + F11 pour activer Visual Basic Editor.

2. Dans la fenêtre Projet, cliquez avec le bouton droit sur le nom du projet ou de la feuille de calcul.
3. Sélectionnez Insérer / Module dans le menu.
4. Tapez ou collez le code dans le module nouvellement créé.
S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x