comment conserver des données

[pierrot]

Bonsoir ,

Je viens une fois de plus faire appel a vos connaissances.

pour ètre bref, je possède un tableau (etat hebdomadaire) sur lequel je rapatrie des données à l'aide d'une macro (copier/coller banal). Ces données vont se déverser sur 5 autres petits tableaux à fin de les comptabiliser (etat journalier) . Ensuite un autre tableau (hedomadaire)reprend ainsi les données travaillées pour la semaine 1.

Mon problême c'est lorsque je veux déverser la semaine suivante, je ne sais pas comment mémoriser les données de la semaine précedente.

Toute(s) aide(s) sera(ont) la(es) bien venue(s)


Bonne soirée aux uns et aux autres 😉

Les jours passent et les besoins sont différents (ouais bof)

 

[William]

Chouette, enfin un message à mon niveau (enfin peut-être)....


L'intérêt pour toi pourrait être d'enregistrer les données hebdomadaires sur un autre fichier excel...

Tu garderais le premier pour piloter le second, qui te servirait d'archive...

Pour cela, un tout bête copier-coller semble suffire, mais pour préciser le nom du classeur destination, la formule est :


Workbooks("FICHIERdestination.xls").Worksheets("zaza").Activate


puis, tu doit faire le va et vient entre tes 2 fichiers pour enregistrer les données...

A noter, tu peux aussi enregistrer toutes les données dont tu as besoin, comme suit :



Workbooks("FICHIERsource.xls").Worksheets("zaza").Activate
donnee1 = Range("U4").Value
donnee2 = Range("V4").Value
donnee3 = Range("W4").Value
donnne4 = Range("X4").Value

' (A titre d'exemple...)
'puis

Workbooks("FICHIERdestination.xls").Worksheets("zaza").Activate
Range("U4").Value = donnee1

'etc etc...

Attention, il faut que le fichier destination soit ouvert lors du lancement de la macro..

Pour ce qui est du fichier destination, tu peux également automatiser son ouverture, lors de l'ouverture du fichier source, par un :

Private Sub Workbook_Open()

On Error Resume Next
Workbooks.Open("C:\chemin d'accès\fichierSOURCE.xls").Worksheets("zaza").Activate

End Sub

A placer dans : ThisWorbook...

A Bientôt,

William

 

[William]

A au fait, désolé de ne pas te répondre en tenant compte de ton testl.xls , je ne peux pas le lire (restriction sécurité...)

Mais si tu veux, envoie le moi directement sur ma bal..

William

 

[pierrot]

Re le monde

Merci William pour ta réponse je vais tester cela.

bye @+ 🙂