Ver originales (Francés)

¿Guardar solamente una hoja?

Resuelto
Pemex Mensajes publicados 8 Estado Miembro -  
Pemex Mensajes publicados 8 Estado Miembro -
Bonjour,

¿Cómo hacer para guardar una hoja de Excel, pero no todo el libro de trabajo?

Si ingreso:

ActiveSheet.SaveAs Filename:=Nom_Fichier
ActiveWorkbook.ActiveSheet Filename:=Nom_Fichier

Esto guarda todo el libro de trabajo...

Y la fórmula

Sheets("NOM").SaveAs

tampoco funciona.

¿Alguien conoce la respuesta? Gracias de antemano.
Configuración: Windows XP Internet Explorer 6.0

1 respuesta

Respuesta 1 / 1
Polux31 Mensajes publicados 7219 Estado Miembro 1 204
 
Hola,

Es necesario crear un nuevo libro de trabajo con una sola hoja y luego copiar la hoja en el nuevo libro de trabajo :: 
Dim wk As Workbook Dim ws As Worksheet Set wk = Workbooks.Add(xlWBATWorksheet) Set ws = ThisWorkbook.Worksheets(3) ws.Copy After:=wk.Sheets(Sheets.Count)


;o)
--
«Lo que se concibe bien se expresa claramente, y las palabras para decirlo llegan fácilmente.»
Nicolas Boileau
8
Pemex Mensajes publicados 8 Estado Miembro
 
Hola,

Impecable, funciona muy bien.

Adjunto el código que también permite guardar la nueva hoja (inserto la fecha del informe en el nombre) y cerrarla: 

 Private Sub CommandButton1_Click() 'copia guarda informe Dim wk As Workbook Dim ws As Worksheet Set wk = Workbooks.Add(xlWBATWorksheet) Set ws = ThisWorkbook.Worksheets("Cond_Ope_Fuerzas") ws.Copy After:=wk.Sheets(Sheets.Count) Dim nom, chemin As String nom = Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "_" & ActiveSheet.Name chemin = Workbooks("Prog_Extraccion_datos").Path & "\" & nom ActiveWorkbook.ActiveSheet.SaveAs Filename:=chemin rep = MsgBox("El informe de Fuerzas ha sido guardado en : " & nom, vbYes + vbInformation, "Guardar el informe") ActiveWorkbook.Close End Sub


Gracias,

++
0