Titre du sujet : Re: Chronométre assez particulier... Besoin d'aide !!!
par myDearFriend! le 24/06/2010 23:48:53
Re Alex62,
Citation : Alex62 a écrit :
Du coup, j'en profite et continue à vous solicitez....
J'ai créé une macro qui sauvegarde les colones D et E vers une autre feuille et je voudrais que cela se fasse automatiquement sur pression du bouton RAZ ou à la fermeture du classeur et pour compliqué un peu si cette nouvelle feuille peut prendre la date et l heure du jour c'est le top ...
Tout d'abord, une ou deux précisions pour une bonne utilisation du présent forum pour les prochaines fois, si tu le permets :
- Si la réponse à la question d'origine du sujet te convient, tu es invité à mettre en pratique ce qui est indiqué au bas de ma signature (la réponse est conforme = clôture du sujet)
- Si tu as d'autres questions, tu peux créer un autre sujet (au besoin, en faisant référence au sujet précédent s'il s'agit d'une continuation d'un même projet).
- Tu dis "J'ai créé une macro qui ..." : merci de joindre le classeur correspondant la prochaine fois, ou au moins une copie du code que tu as créé.
Cela dit, tu trouveras ci-joint une nouvelle adaptation du classeur qui devrait répondre à ce nouveau besoin.
J'ai ajouté la procédure suivante dans le module de code standard modTraitement :
Sub Archivage()
Dim Fsource As Worksheet, Fcible As Worksheet
Set Fsource = ActiveSheet
'Création nouvel onglet
Set Fcible = Worksheets.Add(After:=Worksheets(Worksheets.Count))
Fcible.Name = Format(Now, "dd-mm-yyyy hh.mm.ss")
'
Fsource.Activate
'Copie des données (avec formats correspondants)
With Fsource.Range("D1:H30")
.Copy Destination:=Fcible.Range("A1:E30")
Fcible.Range("A1:E30").Value = .Value
End With
'RAZ compteurs
RAZcellules
End Sub
Et je l'ai rattachée au bouton RAZ.
En espérant que ça te convienne.
Cordialement,
|
Didier FOURGEOT