Discussion :

[warrio67]

Bonjour,
J'ai besoin de l'aide des pros de vba :

J'ai une macro qui me duplique une page et me la place en dernière place.
(comment puis-je faire pour choisir le nom du fichier qui à été crée (je voudrais une incrémentation mais sans les parenthèse ex. data,data1, data2)
Mon problème et que je n'arrive pas a effacer les données après la copie afin d'avoir une feuille vierge.
et je voudrais que dans les feuilles lors de l'ajout d'une ligne une mise en forme se fasse (comme la ligne du dessus).

voir le fichier ci-joint.

voici mon code l'ajout de feuille fonctionne mais pas effacer le contenu
code :

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
Sub inserpage()
 
Dim NomFichier
NomFichier = ActiveWorkbook.Name
Workbooks(NomFichier).Sheets("data").Copy After:=Sheets(ThisWorkbook.Sheets.Count)
 
'vider contenu de la page copier
 
NomFichier = ActiveWorkbook.Name
Dim feuille As Worksheet
 
 
 
Set feuille = Sheets(Sheets.Count)
 
With feuille
For i = .UsedRange.Rows.Count To 6 Step -1
         .Range(.Cells(i, 1), .Cells(i, "AB")).Value = ""
 
Next i
 
End With
End Sub

Merci a tous.
warrio