inserer feuille avec un nom precis

pascalp231 · 6 Janvier 2008

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).

Code:

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 · 6 Janvier 2008

Re : inserer feuille avec un nom precis

bonsoir

il y a plusieurs solutions

en debut de macro

Code:

Dim ws as worksheet

ensuite

Code:

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

pour ta macro

Code:

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 · 6 Janvier 2008

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 · 6 Janvier 2008

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

Code:

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

ensuite :

Code:

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

pascalp231 · 6 Janvier 2008

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

inserer feuille avec un nom precis

pascalp231

Guest

wilfried_42

XLDnaute Barbatruc

pascalp231

Guest

wilfried_42

XLDnaute Barbatruc

pascalp231

Guest

Discussions similaires

inserer feuille avec un nom precis

pascalp231

Guest

wilfried_42

XLDnaute Barbatruc

pascalp231

Guest

wilfried_42

XLDnaute Barbatruc

pascalp231

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency