[VBA] Enregistrer un classeur avec le nom d'une cellule

bonjours a tous


voila , dans mon projet , a l'ouverture, il me demande si je veux continué sur celui en cours oubien creer un nouveau ( 1 nouveau chaque mois)

Quand je choisi nouveau, il m'efface toutes les données du mois precedent par contre avant cela , j'aimerais qu'il m'enregistre le projet avec comme nom , ce qui est ecrit dans une certaine cellule.

j'ai essayer avec ca mais ca marche pas :

Code:

---

1 2 3

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Archives\" & Replace(sheets("pointage").Range("G1")) ThisWorkbook.Close savechanges:=True

---

Comment faire
merci a vous

et qu'est ce qu'ait censé faire la fonction replace dans ton code ..?

Citation:

---

Envoyé par bbil

et qu'est ce qu'ait censé faire la fonction replace dans ton code ..?

---

c 'etait pour le nom du fichier qui s'enregistre, ca viens d un ancien code que j'avais , mais c'est vrai que ca parait etrange

merci a toi

Hello bon ben vu qu'il n'y a pas marqué "Résolu" sur ce post j'en déduis que tu n'as pas compris ce qu'impliquait la réponse de Bbil. Dans le cas inverse ma (très faible) contribution ne servira à rien, mais alors viens cocher le tag "Résolu" Stp.

Pour faire ce que tu veux, il suffit d'écrire ça :

Code:

---

1 2	ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Archives\" & sheets("pointage").Range("G1").value & ".xls" ThisWorkbook.Close

---

J'ai rajouter le .xls au cas où il ne soit pas déjà écrit dans ta cellule G1 (je suis pas sûr à 100% que ce soit nécessaire mais bon ;))

salut a tous
Désolé , j avais mis resolu mais comme j'ai une autre question , j'ai enlevé pour eviter de refaire un sujet :

Voila , le code fonctionne tres bien , mais je me suis apercu que dans le fichiers enregistré , je n'ai pas besoin de mes userform et autre macro donc j'aimerais savoir comment faire pour :

1- Enregistrer mon projet sans les userform ( ouverture normal )

2- N'enregistrer que l'onglet "Pointage"

merci a vous

Si j'ai pas bien compris ta demande ça ne devrait pas être bien dur à réaliser :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

sub Enregistrer()   dim stMonChemin as string   stMonChemin=ThisWorkbook.Path & "\Archives\" & sheets("pointage").Range("G1").value & ".xls" worksheets("pointage").move activeworkbook.saveas stMonChemin application.displayalerts=false activeworkbook.close application.displayalerts=true   end sub

---

P.S: Dsl pour l'indentation et les miniscules du code mais je l'ai écris sans passer par Excel ;)