Incrémentation onglet et cellule

Bonjour au Forum,

Je n'y arrive plus. Dans le fichier en attaché, j'ai un onglet "Blanc" sur lequel j'ai un bouton. Ce bouton est sensé créer un onglet à gauche, l'incrémenter et prendre cette valeur pour la déposer en A1. Mais cela ne se passe pas comme je veux.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Option Explicit   Private Sub CommandButton1_Click() Dim NomOnglet, NouvOnglet, v As String   'Ajout Onglet et incérmenter date Sheets(1).Select NomOnglet = ActiveWorkbook.ActiveSheet.Name NouvOnglet = Format(DateAdd("m", 1, NomOnglet), "mm-yyyy") Sheets.Add before:=Sheets(1) ActiveSheet.Name = NouvOnglet Sheets(1).Activate   'Copie des données   Sheets("Blanc").Activate Cells.Select Selection.Copy Sheets(1).Select ActiveSheet.Paste Application.CutCopyMode = False       'Changement du mois   Sheets(NouvOnglet).Activate Range("A1") = NouvOnglet     End Sub

---

NB et quand je veux activer ma cellule a1, il me met une erreur 1004.

Vos idées me font avancer. Merci

Bonjour,

As-tu essayé avec

Code:

---

1 2 3

'Changement du mois Sheets(NouvOnglet).Activate ActiveSheet.Range("A1") = NouvOnglet

---

Cordialement.

Bonjour,

Merci pour la réponse cela fonctionne bien.
Dernière question

Après ton code, je veux activer la cellule A2 en faisant bêtement,

Code:

---

1 2 3

Sheets(NouvOnglet).Activate ActiveSheet.Range("A1") = NouvOnglet Range("A2").activate

---

et il me sort une erreur 1004 (erreur définie par l'application ou par l'objet). D'où vient cette erreur et comment l'éviter. J'ai cru comprendre qu'excel est embêté par le fait de copier coller des données triées ou qq chose comme cela.??

Citation:

---

D'où vient cette erreur et comment l'éviter. J'ai cru comprendre qu'excel est embêté par le fait de copier coller des données triées ou qq chose comme cela.??

---

Tu dois simplement préciser sur quel objet (feuille) s'applique l'instruction.

Code:

---

ActiveSheet.Range("A2").Activate

---

Cordialement.

Re-,

Super. C'est excatement cela. Merci