macro archivage des données

[massimo]

Bonjour à tous,

Je souhaite réaliser une macro qui commande un archivage de mes données. Je m'explique: en feuille 1 je récupére des données sur un site web (il s'agit de compteurs de photocopieurs) en feuille 2 je reprend ces données et réalise quelques calculs sur les coûts. Enfin, en feuille 3, je souhaiterais créer une commande qui à une heure fixe indique la date du jour et archive (et donc fige) les données récupérées et ainsi de suite pour les jours suivants.

Merci d'avance pour votre aide.

 

[fanfan38]

Re : macro archivage des données

Bonjour
Je te propose cette macro pour une sauvegarde après 17h30...
Sub essai()
If Time < "17:30" Then Exit Sub
With Sheets("receuil journalier")
dercol = .Range("a1").End(xlToRight).Column
For i = 2 To dercol
If CDate(.Cells(1, i).Value) = Date Then Exit Sub
Next
.Cells(1, i).Value = Date
.Cells(2, i).Value = Sheets("base de données").Range("f1").Value
.Cells(3, i).Value = Sheets("base de données").Range("f3").Value
.Cells(4, i).Value = Sheets("base de données").Range("f5").Value
.Cells(5, i).Value = Sheets("base de données").Range("f7").Value
.Cells(6, i).Value = Sheets("base de données").Range("f9").Value
End With
End Sub

A+ François

 

[youky(BJ)]

Re : macro archivage des données

Bonsoir,
Une macro qui s'active d'elle même à 20:00:00
Bien sur réglable en macro.
Activer les macros et c'est tout et tous les jours à 20h hop!
Je rajoute à la suite avec la date en col C
Bruno

 

[massimo]

Re : macro archivage des données

Bonjour et merci pour vos réponses!

Malheureusement, les deux macros proposées ne fonctionnent pas. Je suis plus que débutant en VBA donc faut-il faire quelque chose de particulier pour que cela fonctionne? J'ai simplement changé l'heure à laquelle la commande doit s’exécuter mais rien...

Merci pour vos réponses.

 

[youky(BJ)]

Re : macro archivage des données

Salut massimo,
Si tu as changé l'heure j'ai oublié de mentionner qu'il faut enregistrer et fermer et re-ouvrir le fichier.
Comme cela l'heure indiquée sera prise en compte à l'ouverture du fichier.

Il y a du code en Module1 et en Workbook_open (en VBA projet double click sur thisworkbook) pour le visualiser.

Bien entendu!!!! Le fichier doit rester ouvert en continu sinon rien ne se passe.
Bruno