Macro Copier une feuille avec date et nom

batman666 à dit:

Salut

J'utilise un classeur Excel dans lequel je dois ajouter une copie d'une feuille existante de façon périodique afin de conserver des données saisie antérieurement et en saisir de nouvelle.

Pour l'instant je parvient, à partir d'une MACRO, à copier ladite feuille, intitulée originalement 😛 DONNÉES et créer ainsi DONNÉES(2), DONNÉES(3), etc.

1) J'aimerais trouvé une MACRO qui me permettrait de faire la même chose en ajoutant cette fois la date du jour sous la forme AAAA-MM-JJ. Je veux donc obtenir quelques choses du genre DONNÉES-2010-06-04.

2)En outre, j'aimerais que les feuilles ainsi ajouté soit placé en ordre chronologique suivant la feuilles DONNÉES initiale.

Avez vous des idées 😕

Merci d'avance! 😀

Cliquez pour agrandir...

ROGER2327 à dit:

Re...

Certes !
Encore faudrait-il réagir aux propositions faites...
​

ROGER2327
#3640

Jeudi 19 Merdre 137 (Sainte Fétatoire, super, SQ)
17 Prairial An CCXVIII
2010-W22-6T07:00:17Z

Cliquez pour agrandir...

Bonjour ROGER2327

J'ai modifié votre code ainsi et je voudrais savoir ce que vous en pensez, svp.
Est-ce une bonne chose d'éviter le copier/coller ?
(afin de pas utiliser le presse-papier)

Code:

Sub archive(Sh As Worksheet)
Dim i!, Suf!
   With Sh
      .Copy , Sheets(Sheets.Count)
      On Error GoTo E
      ActiveSheet.Name = .Name & Format(Now(), "yy-mm-dd") &  IIf(Suf, "(" & Suf & ")", "")
      On Error GoTo 0
      With ActiveSheet.UsedRange.Cells
        .Value = .Value
      End With
   End With
Exit Sub
E: Suf = Suf + 1: Resume
End Sub

Cliquez pour agrandir...