sauvegarde dune feuil de classeur

[NATALIE]

Bonjour bonjour

quelqu un peut me dire comment je p faire une sauvegarde dune feuil de classeur sur le meme classeur a laide d'un bouton
ou dune macro auto pour chaque fin de mois avec le fichier renomé par le mois en court

merci d'avance de votre aide

 

[Eric C]

Bonjour le forum
Bonjour Nathalie

Tctite macro

A placer dans le WorkBook

Sub FinDeMois ()
Dim sauvegarde as string
ActiveSheet.Copy
sauvegarde = "C:\XLD\" & Format(Date, "mmmmyy") & ".xls"
ActiveWokBook.SaveAs sauvegarde
End Sub


Le chemin de destination est bien sur à déterminer

@ ++ Eric C

 

[nathalie]

bonjour Eric

Merci pour ta réponce mais je voudrai a laide d'un bouton faire une sauvegarde d'une feuil dans le classeur source je v dire par la
qu'il me rajoute automatiquement une feuil de sauvegarde dans le méme classeur


merci pour ton aide

 

[Eric C]

Re le forum
Re bonjour Nathalie

Excuses moi mais j'avais mal lu la question.
Vite fait & à aménager car basic et brut. Tu places un bouton via Outils/Personnaliser ... puis Affecter une macro
Dans un dodule tu places :
Sub Ajout ()
Selection.copy
Sheets.Add.Name = Format (Date, "mmmmyy")
ActiveSheet.Paste
End Sub

Il y a mieux mais bon.

 

[nathalie]

merci Eric
Bonne Journee

 

[nathalie]

rebonjour
cela marche pour la nouv feuil mais je sauvegarde pas la feuil de mon classeur

merci

 

[Eric C]

Re le forum
Re Nathalie

Oups ....

Sub Ajout()
Cells.Select 'La feuille en cours est sélectionnée
Selection.Copy 'Elle est copiée
Sheets.Add.Name = Format(Date, "mmmmyy") 'Nouvelle feuille créée
ActiveSheet.Paste 'Le contenu de la feuille sélectionné est copié
End Sub

 

[nathalie]

Merci cela marche
merci