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

  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
    1. 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