J'ai créé suite à une demande (ma petite femme en l'occurence) le fichier ci joint
Ce fichier permet de garder ou non un historique des modifications apportées aux fichiers d'un répertoire et ses sous-repertoires (ajout, modification, suppression, déplacement)
La limitation pour Excel2003 et antérieur est le nombre de lignes par feuille, soit 65536
Je me suis dis que cela pourrait être utile à quelqu'un, je le met donc à disposition
Version 1.3 : Pour le Fun ajout d'un TCD pour avoir la taille de chaques dossiers
Sympa ton appli.
Je pense qu'on a tous a un moment donné dans notre boulo (pour les bureaucrates comme moi bien-sur ) pensé que ce serait bien de pouvoir "historisé" les modifications de certains fichiers importants.
Ca va surement me servir prochainement.
Cool merci .
Une question: je trouve ton bouton vachement bien: Où trouves-tu ce genre d'image?
Pas dans la galerie d'Office je pense...
Ce n'est effectivement pas dans la birk galerie d'Office
L'XLDien ultra calé en la matière c'est Nrdz83, que je salue au passage
Le bouton est en fait une forme automatique groupée avec une image
que l'on peut trouver sur le Wikipedia de Crystal Clear
Punaise, t'as tout compris ma petite couette
Plus sérieusement, il suffit de prendre le répertoire racine et ça te fait tous les sous répertoires avec.
Gros bisous
C'est quoi le chiffre en E1 ? et les cases grises servent à quoi ?
Oups, désolé !
J'ai décalé mes colonnes de ma feuille accueil, d'une colonne vers la droite pour plus de lisibilité.
Du coup j'ai oublié de modifié mon code
Il faut remplacé les quelques lignes de la fin par
Code:
' Mettre à jour les date de MàJ
With Sheets("Accueil")
.Range("F1") = .Range("C1")
.Range("C1") = Now()
End With