Faire un copie de toute une feuille

[chuinul]

Bonjour,

Je souhaiterai faire une macro qui fasse une copie de toute une feuille sur une nouvelle feuille. je souhaiterai également que le nom de cette feuille soit la date de l'éxécution de cette marco.

J'ai aussi un certain nombre de contraintes :
1) la feuille d'origine à une mise en page bien précise (couleurs, cellules fusionnés, encadrement...) qu'il faudrait conserver.
2) la feuille d'origine à une macro, donc on ne peut pas envisager de renommer la feuille d'origine pour qu'elle devienne la sauvegarde, et créer un nouvelle fEuille vierge qui deviendrai la feuille d'origine.
3) Je souhaiterai conserver un nombre limité de sauvegarde, disons 5 par exemple.

J'ai essayé de bidouiller avec l'enregistreur de macro, mais ça marche pas, il bloque toujours sur un problème de sélection :

Private Sub Sauvegarder_derniere_mesure()

Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("save").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Sheets("C2950").Select
Range("A3").Select
End Sub

Typiquement sur cette exemple, il bloque sur Range("A1").Select ou ActiveSheet.Paste , ça dépend des fois 😉

Si quelqu'un aurait une idée un exemple, je serais complètement preneur

Merci d'avance

EDIT : un exemple en PJ,

Il faudrait que :
le contenue de "S -4" soit supprimé
le contenue de "S -3" soit déplacé dans "S -4"
le contenue de "S -2" soit déplacé dans "S -3"
le contenue de "S -1" soit déplacé dans "S -2"
le contenue de "C2950 - Dernière extraction" soit déplacé dans "S -1"

puis dans "C2950 - Dernière extraction" je lance une macro que j'ai déja faite

 

[deudecos]

Re : Faire un copie de toute une feuille

Salut tenul, le forum,

 

[deudecos]

Re : Faire un copie de toute une feuille

Salut tenul, le forum,

Cells.Select
Selection.Copy
Sheets("Feuil1").Select
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
ActiveSheet.Name = Format(Now, "DDMMYYYY")

Ca c'est pour copier ta feuille entiere et la coller sur une autre vierge et lui donner la date du jour comme nom.
Pour le reste, un peu de patience...

Bonne soiree

Olivier

P.S. Je sais pas comment je me debrouille pour envoyer ma reponse avant de l'avoir "finite" !

 

[deudecos]

Re : Faire un copie de toute une feuille

ton edit a change les donnees de depart ! Et qu'est ce que je fais moi de ce que j'ai commence ???