Excel VBA WorkSheet.Copy Après Excel 2013

Question

Je souhaite copier une feuille de calcul et la placer DIRECTEMENT après une autre feuille. Mais j'ai des problèmes quand il y a des feuilles cachées. En utilisant Excel 2013, j'ouvre un nouveau classeur. Ajouter une feuille après "Feuille1". Renommez-le "HiddenSheet2" Ajouter une feuille après "HiddenSheet2". Renommer nouvelle feuille "Feuil3" j'ai donc "Sheet1" - "HiddenSheet1" - "Feuil3" cachent ensuite "HiddenSheet1"

Suivant exécuter ce code VBA:

Sub test() 
Dim ws1 AS Worksheet 
Set wst = Sheets("Sheet1") 
wst.Copy After:=Sheets(wst.Index) 
End Sub 

La feuille insérée obtenir placé après "HiddenSheet2" et non après "Sheet1". J'ai trouvé que la feuille copiée devient la feuille active.

Get Handle on last worksheet copied by Worksheet.Copy

VBA Copy Sheet to End of Workbook (with Hidden Worksheets)

Mais mon problème est que je dois la feuille de rester dans un ordre précis.

Merci

Edit:

Sub test() 
Dim ws1 AS Worksheet 
Set wst = Sheets("Sheet1") 
wst.Copy After:=Sheets(wst.Index) 
ThisWorkbook.ActiveSheet.Move After:=Sheets(wst.Index) 
End Sub 

Cela ne reçoit pas la nouvelle feuille directement après "Sheet1" non plus.

Answer 1

Code existant peut être ajouté

Sub test() 
Dim ws1 AS Worksheet 
Set wst = Sheets("Sheet1") 
wst.Copy After:=Sheets(wst.Index) 
ThisWorkbook.ActiveSheet.Move After:=Sheets(wst.Index) 

If (ActiveSheet.Index - wst.Index - 1) <> 0 Then 
     Sheets(wst.Index + 1).Visible = True 
     ActiveSheet.Move After:=wst 
     Sheets(wst.Index + 2).Visible = False 
    End If 

End Sub 

Answer 2

La propriété d'index est zéro base, sauf spécification contraire. La propriété de Sheets est base d'un. Vous devez soit:

1. Ajouter 1 à l'index, non préféré.
2. Référencez la propriété .name, mieux.
3. Référencez la variable de feuille que vous avez I.e. Wst.copy après: = wst, mieux.
4. Ou déplacez la feuille masquée après la nouvelle.