copie feuille caché

[dIDIER 2]

bonjour
Petit probleme

J'ai un classeur avec une feuille caché
Cette feuille caché doit etre recopier dans un nouveau classeur de facon automatique
voici la macro, mais elle bug au niveau de Sheet"dr".
Je pense qu'il faudrait faire réapparaitre la feuille puis la recacher avec une macro,mais la je planche............



Sub copi_class_dr()
'
' copi_class_dr Macro
' Macro enregistrée le 27/01/2003 par Groupe André
'

'
Sheets("dr").Select
Cells.Select
Selection.Copy
Workbooks.Add
Cells.Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=False
End Sub

Une reponse ou un amateur vba serrait la bien venu
Cordialement
didier2

 

[@+Thierry]

Bonsoir Didier

Je pense que tu fais bcp de manips pour rien dans le code ci-dessus...

Essaie plutôt avec ce code :
Sub Copie_Feuille_dr()
With Sheets("DR")
.Visible = True
.Copy
End With
ThisWorkbook.Sheets("DR").Visible = False
End Sub

Bonne Nuit
@+Thierry

 

[dIDIER 2]

merci thierry

c'est en fait une macro automatique que j'ai repomper
mais avec la feuill visible.

je ne suis qu'un humble débutant en vba

Concernant la copie sur un autre classeur d'une feuillle
J'aimerai connaitre les commande vba
pour : proteger la feuille nouvellement creer
tout en conservant les particularité de la premiére feuille
je m'explique, j'ai constaté que lors de la recopie, les informations sur les cellules en particulier le verrouillage et le cache disparaissent, laissant la nouvelle feuille créer a la libre création.
hors j'aimerais conservér cette mise en forme. De plus si la feuille de dépar
est proteger par un code, lors de la recopie, ne subsiste qu'une photocopie
lors de la reproduction de cette feuille

merci de votre réponse
cordialement
didier

 

[@+Thierry]

SAlut Didier

Vite fait et sans tester,

Sub Copie_Feuille_dr()
With Sheets("DR")
.Visible = True
.Copy
End With
With ActiveWorkBook.Sheets("DR")
.Protect "TOTO"
.Visible = False
End With
ThisWorkbook.Sheets("DR").Visible = False
End Sub

Mais bon tu auras un nouveau classeur avec une seule feuille qui sera cachée... (?) et si çà marche car je n'ai pas le temps de faire des tests.

Bon Courage
@+Thierry