sauvegarde dune feuil de classeur

E

Eric C

Guest

• 16 Septembre 2004

• #2

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

 

Vote positif 0 Vote négatif

N

nathalie

Guest

• 16 Septembre 2004

• #3

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

 

Vote positif 0 Vote négatif

E

Eric C

Guest

• 16 Septembre 2004

• #4

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.

 

Vote positif 0 Vote négatif

N

nathalie

Guest

• 16 Septembre 2004

• #5

merci Eric
Bonne Journee

 

Vote positif 0 Vote négatif

N

nathalie

Guest

• 16 Septembre 2004

• #6

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

merci

 

Vote positif 0 Vote négatif

E

Eric C

Guest

• 16 Septembre 2004

• #7

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

 

Vote positif 0 Vote négatif

N

nathalie

Guest

• 16 Septembre 2004

• #8

Merci cela marche
merci

 

Vote positif 0 Vote négatif