renommer une feuille archive

[FIACHETTI]

bonjour voila une macro que je viens de faire qui me copie certaines cellules et qui me les collent sur une autre feuille pour les archiver et qui efface les données sur la feuille principale en retour.
je voudrai que lorsque je clique sur le bouton de la macro cela me renomme la nouvelle feuille de la date de l'archive si possible ou autres et garder aussi les dimensions des cellules.
je suis debutant dans les macros . merci pour vos reponses



Sub ARCHIVER()
'
' ARCHIVER Macro
'

'
Range("B2:I35").Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Sheets("bordereau remise chèques").Select
Range("C5:I24").Select
Application.CutCopyMode = False
Selection.ClearContents
ActiveWindow.SmallScroll Down:=9
Range("B30:I33").Select
Selection.ClearContents
End Sub

 

[vbacrumble]

Re : renommer une feuille archive

Bonsoir

Tu peux simplifier (si tu le souhaites)

 Sub ARCHIVER()

' ARCHIVER Macro

Range("B2:I35").Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Range("B2").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("bordereau remise chèques").Range("C5:I24,B30:I33").ClearContents

End Sub

 

[vbacrumble]

Re : renommer une feuille archive

Re


Pour renommer ta nouvelle feuille

Sub ARCHIVER()

' ARCHIVER Macro

Range("B2:I35").Copy
Sheets.Add After:=Sheets(Sheets.Count)
With ActiveSheet
    .Name = Format(Date, "dd-mm-yy") & " " & Format(Time, "hh""h""mm")
    .Range("B2").PasteSpecial xlValues
    .Range("B2").PasteSpecial xlFormats
End With
Application.CutCopyMode = False
Sheets("bordereau remise chèques").Range("C5:I24,B30:I33").ClearContents
End Sub

 

[FIACHETTI]

Re : renommer une feuille archive

merci pour les reponses je vais les tester de suite

 

[FIACHETTI]

Re : renommer une feuille archive

super c ok pour renommer la feuille c ce que je voulais le top,mais le format de la feuille ne se colle pas idem et en en plus je voudrai revenir sur la feuile bordereau.
et encore merci c super de votre part

 

[vbacrumble]

Re : renommer une feuille archive

Re


Avec Excel 2007, essaye de modifier ainsi

.Range("B2").PasteSpecial xlPasteFormats

(PS: j'ai testé sur Excel 2000, et ma syntaxe fonctionne, il faut adapter pour Excel 2007)

 

[FIACHETTI]

Re : renommer une feuille archive

ca ne va pas c toujours la même chose le format ne se colle pas mais à la limite c pas grave je le ferai manuellement si je ne trouve pas la solution.
merci

 

[vbacrumble]

Re : renommer une feuille archive

Re



Quand tu lançais ta macro originale

le format se copiait ou pas ?

Car la syntaxe est la même : xlPasteFormats

 

[FIACHETTI]

Re : renommer une feuille archive

non le format ne se faisait pas

 

[FIACHETTI]

Re : renommer une feuille archive

voila g trouvais la bonne macro merci encore
Sub ARCHIVER()

' ARCHIVER Macro

Range("B2:I35").Copy
Sheets.Add After:=Sheets(Sheets.Count)
With ActiveSheet
.Name = Format(Date, "dd-mm-yy") & " " & Format(Time, "hh""h""mm")
.Range("B2").PasteSpecial xlPasteFormats
.Range("B2").PasteSpecial xlPasteColumnWidths
.Range("B2").PasteSpecial xlPasteAll
End With
Application.CutCopyMode = False
Sheets("bordereau remise chèques").Range("C5:I24,B30:I33").ClearContents
End Sub

 

[vbacrumble]

Re : renommer une feuille archive

RE


Merci pour le feed-back

(pour ceux qui utilisent Excel 2007)

 

[FIACHETTI]

Re : renommer une feuille archive

et la, la macro avec retour vers la feuile principale

Sub ARCHIVER()

' ARCHIVER Macro

Range("B2:I35").Copy
Sheets.Add After:=Sheets(Sheets.Count)
With ActiveSheet
.Name = Format(Date, "dd-mm-yy") & " " & Format(Time, "hh""h""mm")
.Range("B2").PasteSpecial xlPasteFormats
.Range("B2").PasteSpecial xlPasteColumnWidths
.Range("B2").PasteSpecial xlPasteAll
End With
ActiveSheet.Paste
Sheets("bordereau remise chèques").Select
Range("C5:I24").ClearContents
Application.CutCopyMode = False
Selection.ClearContents
ActiveWindow.SmallScroll Down:=9
Range("B30:I33").Select
Selection.ClearContents
End Sub

en esperant que cela servira à d'otre