Bonsoir Dranreb
Je me permets de revenir a nouveau vers toi concernant le post ci-dessus
Ton aide m'a été réellement précieuse et du coup j'ai décidé d'adapter le code pour d'autres onglets de façon à les doubler à loisir toujours en cliquant sur un bouton
J'ai donc essayé de modifié ton script pour cette nouvelle étape mais sans succès. Pourrais tu m'aider en ce sens stp ?
je souhaite donc recopier 3 autres onglets en cliquant sur le bouton "NEW" situé sur le 1er d'entre eux appelés respectivement :
ENV DA
DA
WM INVOICES
Je pensais donc avoir correctement modifié ton script en l'adaptant comme suit :
**
Sub NEWdaccount()
'
ActiveWorkbook.Unprotect ""
Dim TWsh(1 To 6) As Worksheet, N As Long, NomF, Rng As Range, M As Long, NSrc As String, NCbl As String
Set TWsh(1) = ActiveSheet
For N = 2 To 3
Set TWsh(N) = ActiveWorkbook.Worksheets(TWsh(1).Index - 1 + N)
Next N
For N = 4 To 6
TWsh(N - 3).Copy After:=TWsh(N - 1)
Set TWsh(N) = ActiveSheet
NomF = TWsh(N - 3).Name
TWsh(N).Name = Left$(NomF, Len(NomF) - 1) & Right$(NomF, 1) + 1
Next N
For N = 4 To 6
Set Rng = TWsh(N).Cells.SpecialCells(xlCellTypeFormulas, 23)
For M = 1 To 3
' AdrSrc = TWsh(M).[A1].Address(External:=True)
' AdrCbl = TWsh(M + 3).[A1].Address(External:=True)
' AdrSrc = Mid$(AdrSrc, InStr(AdrSrc, "]") + 1): AdrSrc = Left$(AdrSrc, InStr(AdrSrc, "!"))
' AdrCbl = Mid$(AdrCbl, InStr(AdrCbl, "]") + 1): AdrCbl = Left$(AdrCbl, InStr(AdrCbl, "!"))
NSrc = TWsh(M).Name: NCbl = TWsh(M + 3).Name
Rng.Replace What:=NSrc & "!", Replacement:=NCbl & "!", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Rng.Replace What:="'" & NSrc & "'!", Replacement:="'" & NCbl & "'!", _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next M, N
TWsh(1).Shapes(Application.Caller).Delete
ActiveWorkbook.Protect ""
MsgBox "NE PAS OUBLIER D'INDIQUER LE NUMERO DU NOUVEAU BL"
End Sub
**
cependant j'ai un bug au lancement (voir copies écran ci-dessous)
Aurais tu la gentillesse de m'aider encore une fois stp ?
Avec tous mes remerciements
Seb