enregistrement 1 seule feuille

Bonjour Lucien, le Forum


Tu peux sauvegarder une feuille ou plusieurs dans un nouveau classeur sans problème.


Tu selectionnes ta feuille, clic droit sur l'onglet
copier déplacer
dans un nouveau classeur en cochant créer une copie.

il faut bien sur enregistrer par la suite le nouveau classeur.


Bonne Journée.

Re dg62

Merci de ta reponse, mais je voulais savoir comment automatiser tout ca par une macro (je mettrai un bouton en bas de la feuille)

merci

Re


Voilà ce que j'avais lu trop vite :

Et est-il possibles d'enregistrer ces 2 feuilles sans les macros

En VBA c'est possible.

Si la sauvegarde est constante, feuille 1 et feuille 8 tu peux utiliser l'enregistreur de macro et ensuite associer la macro générée à un bouton ou la lancer manuellement selon les besoins.

Si les feuilles à sauvegarder sont variables, il faut modifier la macro afin d'integrer les noms des feuilles à sauvegarder. Soit par inputBox soit par cellules de référence.


un petit exemple à suivre en fonction de ta réponse.

Salut,

1 solution souple (parmi d'autres) : sélectionner les feuilles à sauvegarder et utiliser la propriété .selectedsheets.

2 versions possibles :
- tu sélectionnes les feuilles 'à la main'
- tu les sélectionne par macro

un début de solution (sélection 'à la main')

Sub sauve()

Set org = ActiveWorkbook
Application.Workbooks.Add (xlWBATWorksheet)
Set dest = ActiveWorkbook

org.Windows(1).SelectedSheets.Copy before:=dest.Sheets(1)

Application.DisplayAlerts = False
dest.Sheets(dest.Sheets.Count).Delete
Application.DisplayAlerts = True

dest.SaveAs 'MonClasseur.xls'
End Sub

Bonne continuation.

re-salut,

1 précision, pour copier un ensemble de feuilles, sans les sélectionner, tu peux aussi utiliser Array
Sheets(Array(1, 3)) désigne les feuilles 1 et 3

d'où
org.Sheets(Array(1, 3)).Copy before:=dest.Sheets(1)

en remplacement de :
org.Windows(1).SelectedSheets.Copy before:=dest.Sheets(1)

dans la macro précédente pour désigner toujours les mêmes feuilles.

Bonne fin de semaine.