[VBA/EXCEL] :Sauver uniquement une feuille ?
Résolu
Pemex
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
Pemex Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
Pemex Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Comment faire pour sauvegarder une feuille excel, mais pas le Workbook tout entier ?
Si je rentre :
ActiveSheet.SaveAs Filename:=Nom_Fichier
ActiveWorkbook.ActiveSheet Filename:=Nom_Fichier
Cela m'enregistre le Workbook tout entier...
Et la formule
Sheets("NOM").SaveAs
ne fonctionne pas non plus.
Quelqu'un connaît la réponse ? Merci d'avance.
Comment faire pour sauvegarder une feuille excel, mais pas le Workbook tout entier ?
Si je rentre :
ActiveSheet.SaveAs Filename:=Nom_Fichier
ActiveWorkbook.ActiveSheet Filename:=Nom_Fichier
Cela m'enregistre le Workbook tout entier...
Et la formule
Sheets("NOM").SaveAs
ne fonctionne pas non plus.
Quelqu'un connaît la réponse ? Merci d'avance.
A voir également:
- Enregistrer une seule feuille excel
- Audacity enregistrer son pc - Guide
- Comment imprimer un tableau excel sur une seule page - Guide
- Feuille de score belote excel - Forum Excel
- Liste déroulante excel - Guide
- Feuille de pointage excel - Télécharger - Tableur
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,
++