Discussion :

[QuestVba]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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