inserer feuille avec un nom precis

[pascalp231]

bonsoir a tous je souhaiterais créer une macro qui me permettrait d'inserer une feuille dont le nom serait recapitulatif 200x .
X allant de 2007 a une date encore inconnue mais qui s'incrementerait de 1 a chaque fois que je créer une feuille. (donc une macro qui insererait une feuille du nom de "récapitulatif-2007" puis si j'appuis a nouveau "récapitulatif-2008" .... )

L'autre probleme que je rencontre c'est que sur la feuille que je viens de rajouter (enfin la macro oui je sais je suis faigneant 😱 ) le format des cellules doit etre conservé et ne doit se copier que les valeurs de la feuille precedente (recapitulatif).

Sub
    Sheets("récapitulatif").Select
    Selection.Copy
    Sheets.Add
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("Feuil5").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("Feuil5").Select
    Sheets("Feuil5").Name = "récapitulatif-2007"
End Sub

Pour le moment je peut inserer 1 feuille dont le nom est récapitulatif-2007 mais c'est tout. Si quelqu'un sait comment faire je suis prenneur.

 

[wilfried_42]

Re : inserer feuille avec un nom precis

bonsoir

il y a plusieurs solutions

en debut de macro

Dim ws as worksheet

ensuite

set ws = sheets.add
ws.name = "MaFeuille"

pour ta macro

Sub copie()
    dim ws as worksheet
    Sheets("récapitulatif").cells.copy
    set ws = Sheets.Add
    ws.range("A1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    ws.Name = "récapitulatif-2007"
end sub

 

[pascalp231]

Re : inserer feuille avec un nom precis

merci pour ton aide mais cela ne va me créer qu'une feuille si je rappuis sur le bouton pour relancer la macro le nom ne va pas s'incrementer par pallier de 1 (recap 2007 puis recap 2008 ...) ou je me trompe ?

Au passage vous connaissez la commande pour fermer excel par macro ?

 

[wilfried_42]

Re : inserer feuille avec un nom precis

re:

non tu ne te trompes pas, tu as dans ce cas deux solutions

Soit tu geres une annee dans une cellule (celle qui sera dans le nom)

Ws.name = "Récapitulatif-" & range("A1") ' Si c'est A1

soit tu peux aussi dire, toutes mes feuille recap se mettent à la fin du classeur et dans ce cas tu peux automatiquement recuperer l'année
mais dans ce cas, il faut au prealable une feuille à la fin du classeur avec le nom "Récapitulatif-2007"
exemple : un fonction qui va calculer la nouvelle année

Function nouvelle(a as string) as string
     nouvelle = format(val(right(a,4))+1,"####")
end function

ensuite :

Set ws = sheets.add after:=sheets(sheets.count) ' Pour la mettre à la fin
ws.name = "Récapitulatif-" & nouvelle(sheets(sheets.count-1).name)

 

[pascalp231]

Re : inserer feuille avec un nom precis

ok merci j'etais plus partit pour un truc avec
For x = 2007 To 2100
ws.Name = "récapitulatif-200(x)"
Next x

Mais bon la je bloque un peu merci pour ton aide je vais me servir de ton code (meme si j'ai pas tout compris 😛 ) merci encore