Excel 2013 : Comment sauvegarder un onglet avec date dans répertoire sur Excel VBA en moins de 5 min.
EXCEL_2013_VBA_ENREGISTREMENT_ONGLET_DATE
Problématique :
Je souhaite faire une sauvegarde d’un onglet de mon classeur avec date et dans un répertoire dédié à cet effet. Pour exemple, je peux avoir un modèle de facture, devis…
Répertoire nommé : dans mon exemple “C:\Users\Alexandre\Desktop\TEST_SAUVEGARDE_ONGLET_CLASSEUR” a renommer suivant besoin.
Comment faire?
Solution :
Plusieurs étapes :
- Copie l’onglet “RECAPITULATIF”
- Colle dans nouveau classeur
- Déclarer et vérifier le nom du répertoire
- Tester si répertoire existe
- Sur le fichier créé je l’enregistre avec SaveAs avec le nom “Extraction_Recap” et le format dd-mmmm-yyyy ensuite “.xls”
- Je ferme le classeur
J’ajoute un BP pour y associer la macro
Pour détail :
Dir(String, FileAttribute)
Retourne une chaîne représentant le nom d’un fichier, d’un répertoire ou d’un dossier qui correspond à un modèle ou un attribut de fichier spécifié ou au nom de volume d’un lecteur.
MkDir chemin d’accès
L’argument du chemin d’accès est une expression de chaîne qui identifie le répertoire ou dossier à créer. Le chemin d’accès peut inclure le lecteur. Si aucun lecteur n’est spécifié,MkDir crée le nouveau répertoire ou dossier sur le lecteur actif.
Code source VBA :
Détail important :
Attention dans répertoire à la fin, ne pas mettre de “\” ,sinon vous aurez un code erreur.
Version Youtube :
Tuto :