Bonjour,
Après une super aide sur un code pour copie de trois feuille, je maperçois
que celle-ci fonctionne mais narrive toujours pas a mettre Ã* jour les
formules de calcul des feuilles « Orange & Banane » avec la feuille « Tarif »
après copie, les feuilles « Orange (2) & Banane (2) » garde la feuille «
Tarif » alors que je voudrais quel reprennent la feuille « Tarif (2) »
Alors si quelquun Ã* la solution je suis preneur !
Salutations.
ci-joint le code de la macro appeler « Nouveau_Cadencier »
Sub Nouveau_Cadencier()
ActiveSheet.Unprotect
'
' Nouveau Cadencier Macro
' Macro enregistrée le 18/10/2006 par

Fl = ThisWorkbook.Sheets.Count
If Fl = 28 Then Fin = 5 Else Fin = 4
Sheets(Fl).Select
For x = Fl - 2 To Fl
Sheets(x).Copy After:=ActiveSheet
If x < Fl - 2 Then
AncNom = Sheets(2).Name
Arempl = "'" & Sheets(Fl - 2).Name & "'"
If Fl = 4 Then Arempl = Sheets(Fl - 2).Name
Ajout = Right(ActiveSheet.Name, Fin)
NouNom = "'" & AncNom & Ajout & "'"
Application.DisplayAlerts = False
Cells.Replace What:=Arempl, Replacement:=NouNom, LookAt:=xlPart,
SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False,
ReplaceFormat:=False
Application.DisplayAlerts = True
ActiveSheet.Protect
End If
Next
ActiveSheet.Protect
End Sub