Archivage de données automatisé.

[boulou]

Merci dès à présent à celui (ou ceux) qui voudra bien m'apporter son concours pour mettre en oeuvre le projet ci joint pour Excel 2000.

 

[kjin]

Re : Archivage de données automatisé.

Bonjour,
Date à mettre dans la colonne A par défaut date du jour sans précision de ta part
Emplacement des divers classeurs par défaut dans le répertoire courant sans précision de ta part également
Tu peux automatiser le lancement de la macro à la fermeture du classeur par exemple

Sub Conso()
DL = Range("A65000").End(xlUp).Row + 1
Chemin = ActiveWorkbook.Path & "\"
Range("A" & DL) = Date
Range("B" & DL) = ExecuteExcel4Macro("'" & Chemin & "[ClasseurA.xls]A1'!R20C6")
Range("C" & DL) = ExecuteExcel4Macro("'" & Chemin & "[ClasseurB.xls]B1'!R20C6")
Range("D" & DL) = ExecuteExcel4Macro("'Feuil5'!R3C1")
End Sub

A+
kjin

 

[jucharat]

Re : Archivage de données automatisé.

Bonjour, j'ai réellement besoin de votre aide (rapide).

Voila je viens de créer une société d'import export. J'aimerai automatiser le délai de livraison de mes fournisseurs et surtout archiver tous les délais afin de pouvoir évaluer mes résultats et par la suite les optimiser. Il faut donc que je détermine le temps pour mes six étapes (date de commande, règlement, enlèvement magasin fournisseurs, Arrivée, dédouanement et entrée magasin). Je maitrise les fonctions (Datedif...) mais je n'ai vraiment aucune idée pour archiver les délais entre mais étapes et le temps total que prend mes commandes pour arriver à mon magasin. Si quelqu'un peut m'apporter son aide cela m'aiderai vraiment.

Merci d'avance de m'apporter vos lumières...

A bientôt

Jucharat.