Rapatrier des fichiers par VBA

Version imprimable

30/09/2016, 14h29
victorzecat

Rapatrier des fichiers par VBA

Imaginons que je crée un fichier, appelons le Alpha.xlsm.
Je diffuse ce fichier auprès de mes utilisateurs, qui peuvent le dupliquer à l'infini, et l'enregistrer sous un autre nom.

Quelle pourrait être le code VBA pour rapatrier en un seul clic tous les fichiers qui ont été créés à partir du fichier Alpha.xlsm?
30/09/2016, 14h46
Marc-L

Bonjour,

comment savoir qu'un classeur a été créé à partir d'un autre ?!

Sans une présentation technique claire & exaustive …

_________________________________________________________________________________________________________
Je suis Paris, Nice, Bruxelles, Charlie, …
30/09/2016, 16h12
Menhir

Citation:

Envoyé par victorzecat

Quelle pourrait être le code VBA pour rapatrier en un seul clic tous les fichiers qui ont été créés à partir du fichier Alpha.xlsm?

Aucun puisque la duplication peut se faire sans utiliser Excel.

Si en plus le nom a pu changer, la seule méthode serait de lancer une recherche globale sur tout ton réseau en scrutant chaque fichier et en vérifiant s'il ne contient pas une particularité propre au tien.

Mais rien n'interdit de penser que les utilisateurs auraient pu modifier cette particularité.

En bref, le seul conseil sensé qu'on puisse te donner : oublie cette idée.

La seule fois où j'ai voulu faire un truc de ce genre, j'avais mis dans une macro protégée un test qui vérifiait la date du jour et qui, à une date données, sortait de la macro et affichait une TextBox indiquant une erreur interne et suggérant de passer me voir.
Je te garantis que le jour donné, je ne m'attends pas à voir autant de personnes venir me consulter (j'ai même eu des appels de concurrents). :mouarf:
Mais j'étais jeune et joueur. Je ne conseille pas cette méthode.
01/10/2016, 22h27
patricktoulon

re

re
sur ebay j'ai vu une fois un film en nylon a coller sur l'ecran pour voir a travers des fichiers excel je sais pas si on peut toujours le trouver
:arf::mouarf2::fou::pingoin2:

non sans rire il y aussi la possibilité de jouer avec les properties fait une recherche

allez par ce que j'ai bien rigolé
http://silkyroad.developpez.com/VBA/...asseurs/#LII-A
01/10/2016, 22h57
victorzecat

J'ai déjà trouvé une autre solution, beaucoup plus simple, toutefois la demande faisant l'objet de mon post est intellectuellement intéressante, et pour le côté joueur j'aimerai trouver la méthode, même si - en pratique - ce n'est pas la solution la plus réaliste.

Je ne clos pas encore le sujet, car il mérite d'être approfondi.
01/10/2016, 23h14
victorzecat

Citation:

Envoyé par patricktoulon

re
il y aussi la possibilité de jouer avec les properties fait une recherche

allez par ce que j'ai bien rigolé
http://silkyroad.developpez.com/VBA/...asseurs/#LII-A

ok merci pour l'info, c'est justement la piste que je recherchais sans pouvoir la nommer :
Intégrer une forme de signature non visible dans le fichier "alpha" et identifier sur le réseau les fichiers qui ont cette signature.

Si fichier = signature, alors copier coller fichier vers répertoire de rapatriement.
02/10/2016, 00h18
unparia

Bonjour
i

Citation:

dentifier sur le réseau les fichiers qui ont cette signature.

Si fichier = signature, alors copier coller fichier vers répertoire de rapatriement.

Rien que cela ! Sur certaines machines (en fait la plupart) tu auras le temps de prendre un bon repas pendant cette recherche ...
Si par "rapatrier", tu entends remettre le fichier dans un dossier prédéfini et/ou sous un nom obligatoire prédéfini, il sera peut-être plus simple de forcer la main (par macro) dans ce sens à l'ouverture de chacun de ces fichiers (si pas dans le bon dossier et/ou pas avec le bon nom --->> un saveas de ton choix). Il te suffit de mémoriser où tu veux (u compris dans une cellule cachée d'une feuille) et comme tu l'entends le chemin du dossier et/ou le nom "forcé" du fichier
02/10/2016, 01h16
clementmarcotte

Bonjour,

Tant qu'à y être, organise-toi pour que chaque fois qu'un fichier est créé le chemin d'accès soit ajouté à une vraie base de données comme ACCESS.

(Je suis sûr qu'il y en a quelques uns qui vont comprendre l'ironie de la réponse.)

Ou bien tu réfléchis 3 secondes et tu réalises que ton idée n'a pas d'allure et que Excel n'est pas Access Junior.
02/10/2016, 08h57
unparia

Bonjour clementmarcotte
Je ne puis non plus m'empêcher de penser qu'un projet dont on accepte que les utilisateurs le "dupliquent à l'infini", "en modifient même le nom" est probablement un projet qui utilise toujours les mêmes données et n'est là que pour servir d'interface pour la gestion d'une ... base de données ;)
02/10/2016, 09h37
victorzecat

C'est exactement ça ! et la solution qui a préalablement été trouvée et appliquée est la remontée des infos saisies à chaque save (d'alpha ou rejeton), dans une feuille excel centralisée qui est une table liée à Access (Access sert surtout à sauvegarder les données par transfert des datas dans une table en dur)

Maintenant comme je le disais l'histoire de repérer une forme de signature dans un fichier afin de le "rapatrier" c'est surtout pour la curiosité intellectuelle, le côté joueur.

bonjour
a rester sur excel puisque visibleblement ce fichier est un interface je ferait que le fichier ne soit pas modifiable mais que le travail effectué avec par les utilisateur soit enregistrer sous un nom commun dumoins une partie

du genre save as msjour & envrion("UserName").xlx et peut etre meme une date en abrégé
ce qui nou donnerais des fichier du genre msjourthomas1916.xlx
pourquoi xlx? parceque sans macro il sont plus facilement exploitable !!!

de meme que pourquoi pas on pourrais meme aller plus loin dans ce raisonnement

des l'utilisation du fichier base dans un pc une base xlx se créé et cette base se mettrais a jour a chaque utilisation du fichier par l'utilisateur
autrement dit
tu n'aurait plus qu'a chercher les fichier par "msjour*.xlx" ca reduirais aussi le moteur de recherche

ouvre un classeur destiné a etre l'interface
colle lui ca dans le module thisworkbook
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Environ("UserName") <> "polux" Then ' met le user de ton pc a la place de polux Cancel = True Sheets("travaux quotidiens").Copy ActiveWorkbook.SaveAs Filename:= _ "C:\Users\" & Environ("UserName") & "\Desktop\" & "msjour" & Environ("Username") & Format(Date, "dmyy") & ".xlsx", FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False ActiveWindow.Close Application.DisplayAlerts = False Application.Quit End If End Sub
voila si l'utilisateur fait enregistrer sous ou enrgistrer tout court le travail de la journé va s'enregistrer sous le nom formé avec l'user et date abrégée en xlx et l'interface se ferme
quand tu reouvrira l'interface il est vierge les donné sont dans le xlx

c'est quand meme un peu moins bourrin non!!!!!
surtou qu'il t'es facile de rechercher tout les xlx dont le nom commence par "msjour"
voila

adit:
j'ajouterais aussi que le format csv est tout indiqué dans cet exercice
on pourrais ajouter aussi al'ouverture du fichier interface la récupération du csv de l'utilisateur pour le remetre dans un tableau de l'interface par exemple comme ca il peut ouvrir mille fois dans la journée
il n'y aura qu'un seul "msjourthomas21013.xlx"
et je dirais meme mieux
en nommant ces fichiers comme cela ca te permetrais de recupérer un nom bien distinct

Code:

if dir("blablam\msjourthomas21016.xlx")<>"" then

voila

pour info :
j'utilise cette methode pour mon application devisfacture depuis 6 ans deja et je n'ai jamais eu de soucis bien sur le nom de destination des xlsx sont créés avec les données client