Un mois de plus

[WDAndCo]

Bonsoir le Forum

J'ai modifié une Macro enregistrée mais celle-ci me pose encore quelques problèmes :

Sub Mois_plus_un()
ActiveSheet.Select
ActiveSheet.Copy After:=Sheets(5) --- J'aimerais quelle soit en derniere place ---
Range("AH2").Value = Range("AH2").Value + 1
Call La_S_Type
Call Copie_S_Type

Suite du Code . . .

Range("J21:J29").Select
Selection.ClearContents

Sheets("01 (2)").Select --- La ce n'est pas forcement ce nom la puisque le départ c'est la page active ---
Sheets("01 (2)").Name = Range("AH2").Value --- Idem a ci dessus ---
Range("A1").Select
End Sub

D'avance merci

 

[Catrice]

Re : Un mois de plus

Bonsoir,

Je n'ai pas tres bien compris la 2eme question mais essaie ceci :

Sub Mois_plus_un()
Set MaFeuille = ActiveSheet.Copy(After:=Sheets(Sheets.Count))
Range("AH2").Value = Range("AH2").Value + 1
Call La_S_Type
Call Copie_S_Type
Range("J21:J29").ClearContents
MaFeuille.Name = Range("AH2").Value
End Sub