sauvegarde de données journaliers dans un fichier annuel

[obelix77]

Bonjour à tous,

Actuellement, j'ai chaque jour un fichier qui reprendre les heures de travail par salarié et par type de tâche.
Il s'agit de l'onglet "2018_01_27" du fichier "2018_01_27_embauche" joint.

Tous les jours :
j'ouvre le fichier "2018_embauche", joint également
Dans l'onglet "2018", Je me positionne sur la première cellule vide (A605 dans l'exemple)
Dans le fichier "2018_01_27_embauche", je sélectionne les lignes pour lesquelles la colonne I ("temps_total") est différent de 0:00.
Je les colle dans le fichier "2018_embauche"

Les 2 onglets, 2018_01_27 et "2018, des 2 fichiers ont exactement la même structure.

Je suis persuadé qu'une macro me permettrais d'effectuer cette tâche répétitive; problème : je ne sais pas l'écrire.

Si quelqu'un peut me filer un coup de main, ça serait le top.

Par avance, merci et bonne journée,

 

[herve62]

Bonjour
Voilà un 1er jet
Il peut encore être modifiable , exemple pour entrer ou pas, le nom du fichier ou encore le chemin complet
là il faut déjà l'adapter à ton cas
A toi de voir

 

[obelix77]

Bonjour herve62,

Super d'avoir pris le temps. Merci beaucoup.

Me besoin est un peu différent : il faut que je parte du fichier journalier "2018_01_27_embauche.xlsm" pour en exporter les données vers dans le fichier "2018_01_27_embauche.xlsm".

J'ai testé ce que tu as fait et je te remercie encore. J'ai un plantage sur la direction :
Direction = Dir(chemin)
Pourtant je copie/colle le chemin d'accès.
Mais, vu que j'en ai besoin dans l'autre sens, je n'ai pas poussé plus loin mes investigations sur le bug.

 

[herve62]

Et donc ce n'est pas possible d'avoir de base le fichier qui récolte , c'est plutôt logique non ?
mais c'est toi qui voit ; C'est une appli que j'avais écrit , idem pour une collecte d'infos de plusieurs fichiers sur serveur et mettre dans une feuille cumul
Il faudra inverser tout simplement les noms , et recopier les macros dans ton fichier journalier
Pour la partie Contrôle de présence (direction) si c'est sur ton PC seul à utiliser , tu peux supprimer cette partie

 

[obelix77]

Pas tout compris à ta réponse : ce que je demande est possible ou pas?

 

[herve62]

Il faudra inverser tout simplement les noms , et recopier les macros dans ton fichier journalier

Le fichier import(2018) devient export et vice versa

 

[obelix77]

Ok j’avais Oublie mon cerveau

Il me reste le problème de la direction car ça ne se passe pas en local mais sur un serveur

Merci encore

 

[herve62]

Je regarderai demain
Met moi dans le fichier ou sont tes erreurs et ton Pb

 

[obelix77]

Je copie/colle le chemin complet du fichier et ça bug là :
Direction = Dir(chemin)
If Direction = "" Then
mes = MsgBox(" Le chemin entré est erroné ou ne comporte pas" & Chr(13) & _
" de fichiers Excel", vbOKCancel)
If mes = vbCancel Then alors = MsgBox(" voulez vous quitter l'application ?", vbYesNo)
If alors = vbYes Then
Exit Sub
Else
GoTo deb
End If
End If

En même temps, si je vais du fichier "2018_01_27_embauche" au fichier "2018_embauche", j'irais toujours vers le même fichier.
Donc plus besoin de choix, si je ne dis pas de connerie

En tous les cas, merci pour ton temps.

 

[herve62]

Pour la partie Contrôle de présence (direction) si c'est sur ton PC seul à utiliser , tu peux supprimer cette partie

Quand je disais ça , c'est que tout seul t'es sûr du fichier , mais là même sur serveur c'est idem puisque apparemment c'est toi qui l'a mis
Dans mon cas c'était pour récolter des infos de commerciaux qui "pouvaient" enregistrer malencontreusement ailleurs ... d'ou nécessité du test de présence de leur fichier
sinon comment entres tu le nom du chemin ?
Pour un serveur c'est comme ça : "\\SRVPROD\commun_mairie\conge.ico" ; nom du serveur + ...jusqu'à ton rep avec fichier

 

[herve62]

Bonjour tous
Obelix , ci joint le nouveau prog reprend ton fichier de base 2018 supprime le bouton
maintenant tu lances celui-ci en appelant 2018_embauche
Attention , maintenant les lignes copiées sont supprimées sinon si tu relances ce sera en doublon
2018 se ferme auto et est enregistré aussi
Il t-e faut juste modifier la variable "chemin"

 

[obelix77]

Bonjour Herve62 et merci beaucoup.

Je suis en déplacement aujourd'hui et demain. Je regarde donc au plus vite et, au pire, vendredi matin et je te dis.
Très bon après-midi

 

[obelix77]

Bonjour Herve62.

J'ai donc testé. Après quelques modifications, je vais arriver à ce que je veux.
Donc top et merci 1000 fois.
Excellent week-end