Copier une feuille cachée

Bonjour à tous,

Je souhaite copier une feuille en renommant celle-ci avec ce code :

Sub Copyrenameworksheet()
    Dim ws As Worksheet
    Set wh = Worksheets("PART 2 - OTHER DEPT")
    Worksheets("PART 2 - OTHER DEPT").Copy before:=Worksheets("PART 2 - ADDITIONAL COMMENTS")
    If wh.Range("R7").Value <> "" Then
    ActiveSheet.Name = wh.Range("R7").Value
    End If
    wh.Activate
End Sub

Tout fonctionne bien lorsque le feuille source PART 2 - OTHER DEPT est visible.
Cela se complique lorsque je cache cette feuille.
En effet, au clique du bouton, il copie bien la feuille, mais il me cache la feuille "before" (PART 2 - ADDITIONAL COMMENTS).

Si vous aviez une idée......

Merci d'avance

Bonjour,

Voici un essai où on rend la feuille d'origine visible pour la copie :

Sub Copyrenameworksheet()
with Worksheets("PART 2 - OTHER DEPT")
    vis = .visible
    .visible = true
    .Copy before:=Worksheets("PART 2 - ADDITIONAL COMMENTS")
    .visible = vis
end with
with Activesheet
    If .Range("R7").Value <> "" Then
        .Name = .Range("R7").Value
    End If
end with
End Sub

Cdlt,

Bonjour …

Dim ws As Worksheet 'c’est plutôt wh non ?

Set wh = Worksheets("PART 2 - OTHER DEPT")

…

wh.Activate 'pas pour une feuille cachée

En évitant les noms des onglets pour éviter toute faute de frappe :

Sub Copyrenameworksheet()
    .Visible = 1
    .Copy before:=Feuil2 
    If .[R7] <> "" Then ActiveSheet.Name = .[R7]
    .Visible = 2 'VeryHidden sinon 0
  End With
End Sub

Merci à vous deux

Fonctionne parfaitement

Re

Merci pour ton retour mais je ne pense pas qu’après ma remarque sur ton code tu ais pu profiter d’un problème de transmission !

Voilà ce que j’ai cru envoyer

Bonjour …

Dim ws As Worksheet c’est plutôt wh non ?

Set wh = Worksheets("PART 2 - OTHER DEPT")

…

wh.Activate ‘pas pour une feuille cachée

En évitant les noms des onglets pour éviter toute faute de frappe :

Sub Copyrenameworksheet()
   With Feuil1
      .Visible = 1
      .Copy before:=Feuil2 
      If .[R7] <> "" Then ActiveSheet.Name = .[R7]
      .Visible = 2 'VeryHidden sinon 0
  End With
End Sub