Exporter une feuille d'un classeur

[Claudy]

Bonjour,
J'ai un classeur "Planning" , avec un efeuille = un mois.
Je voudrais pouvoir exporter ou copier un mois vers un autre dossier, et cela en le protègeant,
j'essaie avec ceci , mais ça ne va pas au niveau de le protection:
Sub Export_GuyGab()

'Private Sub CommandButton1_Click() 'copie sauvegarde rapport

Dim wk As Workbook

Dim ws As Worksheet

Set wk = Workbooks.Add(xlWBATWorksheet)

Set ws = ThisWorkbook.ActiveSheet '("Cond_Ope_Fuerzas")

ws.Copy After:=wk.Sheets(Sheets.Count)

ws.Protect Password:="zaza", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True

'ActiveSheet.EnableSelection = xlUnlockedCells
Dim nom, chemin As String

nom = "Planning " & Range("A1").Value & ".xls"

'chemin = Workbooks("Prog_Extraccion_datos").Path & "\" & nom

chemin = "T:\XXXX\COMMON\Planning 2011" & "\" & nom

ActiveWorkbook.ActiveSheet.SaveAs Filename:=chemin
'ActiveWorkbook.Close

End Sub


Merci d'avance, Claudy

 

[Guest]

Re : Exporter une feuille d'un classeur

Bonjour,

Peut-être à cause du wk. qui manquait dans

ws.Copy After:=wk.Sheets(wk.Sheets.Count)

A+