Discussion :

[zouille]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Comment faire
merci a vous

[SfJ5Rpw8]

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

[zouille]

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

[conconbrr]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 )

[zouille]

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

[conconbrr]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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