Retranscription de données vers autre classeur

[chokapic]

Bonjour à tous,

N'ayant pas trouvé chaussure à mon pied dans la section recherche je me tourne naturellement vers vous dans l'espoir de trouver une solution à mon probléme.

J'aimerais copier d'un fichier excel des données inscristes quotidiennement vers un autre classeur regroupant toutes ces données.
Un plus serait de créer un bouton du genre "tranfert T2" pour générer le basculement des données vers T2 et à l'issue les effacer dans T1 pour le laisser vierge pour le lendemain.

Je vous met mes deux fichiers en pièces jointes.

Merci de votre aide

 

[association]

Re : Retranscription de données vers autre classeur

Tu as oublié ton fichier joint...

 

[chokapic]

Re : Retranscription de données vers autre classeur

Quelle Bêtise,
i am sorry

 

[kjin]

Re : Retranscription de données vers autre classeur

Bonsoir,
Un essai à tester
Les 2 fichiers doivent être dans le même répertoire, sinon changer le chemin.
Une nouvelle feuille est rajoutée automatiquement si le mois correspondant n'existe pas
le contrôle de la date se fait sur la première cellule renseignée ("B8")
Le contrôle de la saisie de doublons n'est pas implémentée.
A+
kjin

 

[chokapic]

Re : Retranscription de données vers autre classeur

Bonjour Kjin,

Merci pour ta solution qui répond parfaitement à ma demande.
J'aurai toutefois juste besoin d'un eclaircissement sur ton explication.

"Les 2 fichiers doivent être dans le même répertoire,"

les deux fichiers seront sur le même disque dur, puisque exploité sur le même PC. Est ce cela ?
Je voudrais être sur de bien comprendre...

Merci

 

[kjin]

Re : Retranscription de données vers autre classeur

Bonjour,
A moins que d'implémenter une recherche de fichier et d'alourdir le fonctionnement, la macro recherche le fichier "T2" sur ton disque dans le répertoire où est enregistré le fichier "T1".
Si "T1" est par exemple dans C:\Mes Documents\, "T2" doit y figurer aussi
Si ce n'est pas le cas, il faut indiquer dans la macro où chercher (c'est pourquoi j'avais mis l'annotation

...
Repertoire = ActiveWorkbook.Path & "\" 'changer le chemin ici
...

Comme par exemple, s'il est situé dans C:\Archives\2008\

...
Repertoire = "C:\Archives\2008\"

A+
kjin