[VBA/EXCEL] :Sauver uniquement une feuille ?
Résolu/Fermé
Pemex
Messages postés
8
Date d'inscription
lundi 14 juillet 2008
Statut
Membre
Dernière intervention
25 juillet 2008
-
14 juil. 2008 à 18:28
Pemex Messages postés 8 Date d'inscription lundi 14 juillet 2008 Statut Membre Dernière intervention 25 juillet 2008 - 15 juil. 2008 à 15:38
Pemex Messages postés 8 Date d'inscription lundi 14 juillet 2008 Statut Membre Dernière intervention 25 juillet 2008 - 15 juil. 2008 à 15:38
A voir également:
- Enregistrer une seule feuille excel
- Audacity enregistrer son pc - Guide
- Feuille de score belote excel - Forum Excel
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
- Comment imprimer un tableau excel sur une seule page - Guide
1 réponse
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
14 juil. 2008 à 19:20
14 juil. 2008 à 19:20
Salut,
Il faut créer un nouveau classeur avec une seule feuille et ensuite copier la feuille dans le nouveau classeur ::
;o)
Il faut créer un nouveau classeur avec une seule feuille et ensuite copier la feuille dans le nouveau classeur ::
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)
15 juil. 2008 à 15:38
Impeccable ca fonctionne trés bien.
Ci joint le code permettant de même de sauvegarder la nouvelle feuille (en insérant la date du rapport dans le nom) et de la fermer :
Private Sub CommandButton1_Click() 'copie sauvegarde rapport 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 reporte de Fuerzas ha sido guardado en : " & nom, vbYes + vbInformation, "Guardar el reporte") ActiveWorkbook.Close End SubMerci,
++