Gestion d'images

sousou

XLDnaute Barbatruc
sousou a posté une nouvelle ressource :

Gestion d'images - Gérer vos images

Dans le même esprit, que la Gestion documentaire, cette application va vous permettre de gérer vos images.
Le système d'indexation est destinée à effectuer des recherches sur le base de données, visualiser, exporter les résultats de vos recherches.
Cette évolution a été reconstruite en fonction des besoins apparus tout au long de la gestion de quelques milliers de photos.
N'hésiter pas à me faire part de vos remarques
En savoir plus sur cette ressource...
 

Anthonymctm

XLDnaute Occasionnel
Bonjour, quel beau travail !

Malheureusement je n'ai pas pu dépassé l'étape d'installation parce que je rencontre un bug de compilation pour la ligne Me.datedebut = DateAdd("yyyy", -10, Date)

du Private Sub UserForm_Initialize()

Si jamais tu as corrigé ce bug, je suis preneur de ton fichier !
 

sousou

XLDnaute Barbatruc
Bonjour
Je suis actuellement loin, mais je regarde ce problème étonnant! car pas de remarque à ce jour, peut-être un problème de version excel...
Peux_tu apporté plus de précisions
 

sousou

XLDnaute Barbatruc
Quel message exactement et à quelle moment.(quant tu fait quoi)
A tester l'instruction dateadd() (puisqu'il semble que ce soit ceci qui bloque) sur un petit test
du genre dans un fichier vierge tu créé un nouveau module dans visualbasic
et tu mes ceci
sub testdateadd()
msgbox DateAdd("yyyy", -10, Date)
end sub
A suivre
 

Anthonymctm

XLDnaute Occasionnel
L’instruction sur un nouveau fichier fonctionne.

J'ai retéléchargé ton fichier pour voir, je l'ai mis dans un dossier seul sur le bureau et à l'ouverture j'ai le premier message d'erreur.

Après avoir cliqué sur ok, j'ai un message sur VBA puis si je fais deboguer c'est la ligne Sheets("instal").Activate qui se surligne.
Si je continue quand même et que je fais installation, les dossier se créaient et le message qui suit me dit que tout s'est bien passé.
Ensuite je mets des images dans le dossier en attente, et si je clique sur administration j'ai le dernier message.

Voilà :)
 

Fichiers joints

sousou

XLDnaute Barbatruc
Bonjour
La première erreur est significative (il manque quelque chose dans ton excel)
regarde dans vb outils/références
Il se peux qu'il te manque le control calendar du module recherche
a suivre je cherche une solution.
 

Fichiers joints

sousou

XLDnaute Barbatruc
Bonjour.
Dans le userform userrecherche, j'utilise un control 'calendrier' pour définir les date de début e t de fin de la recherche
Je pense que c'est parce-que tu ne disposes pas de ce control que ça dysfonctionne.(probleme souvent existant)
Pour ne pas être embêté avec ceci je devrais intégré mon propre calendrier, mais en l'occurence je ne dispose pas de cette ressource sur le Pc sur lequel je travail en ce moment. Je ne pourrais l'intégrer qu'au mois d'octobre. (Rappel toi à mon bon souvenir!)
En attendant, j'ai modifié le userform et remplacé ces controls par des control de type txt. Tu ne disposera dons pas d'un calendrier, mais tu pourras saisir une date sous la forme classique(j/m/a) (je n'ai pas fait de contrôle sur la la validité de ta saisie)
Tiens moi au courant.
 

Fichiers joints

Anthonymctm

XLDnaute Occasionnel
J'ai fait un test rapidement et j'ai eu d'autre bugs :confused:

Ca doit être lié à mon excel, j'essaierai sur un autre ordi pour voir ce que ça donne, merci en tout cas
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas