enregistrer classeur sur validation avec incrémentation onglet

Re : enregistrer classeur sur validation avec incrémentation onglet

Il suffit de créer une petite macro, à rattacher à un bouton par exemple

Sub Lancement_Procédure()
Sheets("Synthèse").Select 'ligne pas forcèment obligatoire
Sheets("Synthèse").Copy 'Copie la feuille Synthèse dans un autre classeur
ActiveWorkbook.SaveAs Filename:="C:\" & Sheets("Synthèse").Range("C4") & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
'Explication : Sheets("Synthèse").Range("C4") récupère la valeur contenue dans la cellule C4 de l'onglet Synthèse
Sheets.Add 'Rajoute un nouvel onglet
Sheets("Feuil1").Name = Month(Sheets("Synthèse").Range("C5")) & "_" & Right(Year(Sheets("Synthèse").Range("C5")), 2) ' renomme cet onglet
'Explication : Sheets("Synthèse").Range("C5") récupère la valeur contenue dans la cellule C5 de l'onglet Synthèse
'Month et Year sont utilisées pour récupérer le mois et l'année de la date portée en C5 ( un onglet ne peut pas porter un numéro de date classique
'Droite(....,2) permet de récupérer les 2 derniers caratères de l'année, en l'occurence 07
End Sub


Bonne journée

Re : enregistrer classeur sur validation avec incrémentation onglet

Bonsoir Patte d'Ours, bonsoir le forum
Je te remercie de t'être penché sur la question.
J'ai modifié mon classeur en m'inspirant de ta macro, ça fonctionne mais le problème demeure dans la mesure ou le nb d'onglet n'est pas incrémenté et que j'ai la création de 2 feuilles dont l'une possède effectivement le nom que souhaitais lui donner. Ce n'est pas vraiment ce que cherche à faire, à savoir: ouvrir le fichier que j'ai créé la première fois et y ajouter un nouvel onglet, et ceci avec les paramètres que j' indique dans mon premier post. En enregistrant, je remplace l'ancien fichier par le nouveau avec une feuille en plus.
Je pense qu'il manque des paramètres aux lignes Sheet.Name et sheets.Add.
Je continue à chercher mais si tu as une idée...
Merci
Kjin

Re : enregistrer classeur sur validation avec incrémentation onglet

Bonsoir kjin,

Regarde si cette solution te convient.

@+

Re : enregistrer classeur sur validation avec incrémentation onglet

Excuse-moi, je n'avais pas saisi ton besoin de garder l'ancien fichier + une nouvelle feuille.

Dans ce cas la macro est encore plus simple:

Sub Lancement_Procédure()
Sheets.Add 'Rajoute un nouvel onglet
ActiveSheet.Name = Month(Sheets("Synthèse").Range("C5")) & "_" & Right(Year(Sheets("Synthèse").Range("C5")), 2) ' renomme cet onglet.
ActiveWorkbook.SaveAs Filename:="C:\" & Sheets("Synthèse").Range("C4") & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

bonne soirée

Re : enregistrer classeur sur validation avec incrémentation onglet

Bonsoir matthieu33, bonsoir patte d'Ours, bonsoir à tous
Excusez moi pour la réponse tardive.
Ta solution, patte d'ours est à peu près celle que j'obtiendrai avec l'enregistreur de macro et ne me satisfait pas complètement.
A l'inverse, ta solution mathieu33 correspond bien à ce je souhaite obtenir mais malheureusement il subsite un problème que je n'arrive pas à élucider: le nouveau fichier est bien créé et le nom est correct, jusqu'ici tout va bien; mais ensuite, dans ce nouveau fichier, sont créés 2 nouveaux onglets au lieu d'un seul: une feuille vide nommée "mm_yy" et une feuille nommée "synthèse" copie de la feuille "synthèse" d'origine.
Or je souhaite seulement la copie de la feuille synthèse d'origine dans le nouvel onglet "mm_yy" nouvellement créé.
En fait, je souhaite au final, obtenir un fichier "produit.xls" avec un onglet "mm_yy" rajouté mensuellement et dont les données proviennent de ma feuille synthèse du fichier d'origine.
Ouf; si avec tout çà vous m'avez compris...
Merci à tous deux pour votre aide et au forum
kjin

Re : enregistrer classeur sur validation avec incrémentation onglet

Bonsoir kjin,

J'ai apporté des corrections.
J'espère que cela te conviendra.

@+

Re : enregistrer classeur sur validation avec incrémentation onglet

Bonjour mathieu33, bonjour à tous,
Là c'est parfait.
Merci pour ton aide précieuse.
Au plaisir de te lire sur le forum.

kjin