Excel vba enregistrer sous + nom cel + date [Résolu/Fermé]

Signaler
Messages postés
1
Date d'inscription
vendredi 27 janvier 2012
Statut
Membre
Dernière intervention
27 janvier 2012
-
 Davy 03 -
Bonjour,
Voici un code qui peux vous s'avérer très utile.
Ce code vas vous donner lorsque que vous cliquerez sur le bouton enregistrer:

-Enregistrer dans le dossier de votre choix
+
-Le titre écrit dans une cellule spécifique
+
-La date de l'enregistrement écrit avant le titre

Voici le code:

------------------------------------------------------------------------------------------------------------

Public Sub CommandButton2_Click() 'ENREGISTER SOUS + NOM CELLULE + DATE
Dim nom As String
ChDir "C:\Users\Duperret\Desktop\base\base2\duperret"
nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & Range("C9") & ".xls"
ThisWorkbook.SaveAs (nom)
End Sub

------------------------------------------------------------------------------------------------------------

Voili voilou....

Dites moi juste de ce que vous en pensé

Salutation

2 réponses

Messages postés
14934
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 079
bonjour et bienvenue sur le forum.

Depuis les nombreuses années qu'il existe, la question a souvent été posée et résolue comme tu peux en juger si tu regardes les 1600 résultats disponibles.
2
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 58693 internautes nous ont dit merci ce mois-ci

Parfait pour moi
Merci beaucoup