Logiciel consultation documentaire, gestion documentaire

Soyez le premier à donner votre avis sur cette source.

Vue 22 282 fois - Téléchargée 5 588 fois

Description

La gestion documentaire rentre dans la démarche qualité. (maîtrise de la diffusion, centralisation des documents etc...)
Ce logiciel permet aux utilisateurs de consulter tous les documents ... que je veux bien qu'il voient, les protocoles, procédures, les modèles, les demandes de congés etc... ils peuvent les imprimer les importer au format word seulement si c'est autorisé. Dans mon cas les modèles sont imprimables et importables, les protocoles imprimables avec un bandeau "ce document est une copie non gérée gna gna gna" (c'est vrai qu'on se la pète chez les qualiticiens ;))

D'un autre coté, l'interface "gestionnaire de la documentation":
elle est accessible pour les "administrateurs" inscrits dans le fichier ./data/administrateurs.txt (il sagit du nom de session windows).

Comment que ça marche?
la base doc est logée dans .\data\basedoc.txt
les fichiers dans .\[type]\[domaine]\[fichier].pdf, par exemple: .\PRT\QUA\PRT-QUA-001.pdf

j'oubliais de préciser le .exe sera dans un dossier accessible en lecture seulement et les dossiers de fichiers idem mais en invisibles.
le dossier./data/incidents quand à lui est autorisé à l'écriture pour tout le monde.

Source / Exemple :


'c'était un peu long, tout est dans le zip
'

Conclusion :


ça marche avec acrobat version 7, 8 et 9
Vous avez besoin d'installer PDF Creator comme imprimante pour pouvoir ajouter de nouveaux documents.

L'arborescence dans le zip. même si les dossiers sont vides, c'est là dedans que sont rangés les documents.

pour le faire fonctionner, en mode administrateur ajoutez le nom de session windows dans le fichier .\data\administrateur.txt

je mettrai à jour.

N'hésitez pas à me faire part de vos commentaires...

prochaine version... idem mais en mysql pour la base de données

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Exploreur
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
11 -
Salut Gnieark,

Bon, pour l'interface faudrait changer un peu c'est couleurs qui sont, soit sombres ou vives..Essaye d'armoniser le tout...comme quand tu fais du TQM !!!
Il y a un petit bug au niveau de la saisie de ton code azerty, quand tu quittes cette fameuse fenêtre pour revenir à l'interface général et que tu reviens dans la feuille "zone de gestion....." ton code d'accés y et toujours.
Sinon, je vais continuer à parcourir ton code et je te tiendrais au courant.
6/10
Bonne Prog...A+...
Exploreur
gnieark
Messages postés
53
Date d'inscription
jeudi 17 août 2006
Statut
Membre
Dernière intervention
22 octobre 2010
-
merci de tes conseils Explorer.
[on trouve toujours des excuses]la partie recherche de documents j'ai repris la macro excell de mon prédécesseur que j'ai traduit en VB6, et comme ça marche bien même si le code est fastidieux et parfois redondant, je ne me suis pas trop penché dessus. j'ai totalement refait la consultation (le but est que les PC sans word puissent consulter les documents, ils ne peuvent pas importer par contre) et j'ai totalement créé la partie ajout suppression modification... c'est pour ça que la base est un peu bordélique, des colones se sont ajoutées après et mises là où il y avait des trous.

dans le bouton "visualiser la base doc", je prévois d'y mettre un appel d'excell qui charge la base doc lorsque je change des attributs de plusieurs documents (du style lorsque je les ai diffusé par paquets, rajouter les destinataires) avec des gros "copier collé" c'est plus pratique que par l'interface de modification.

pour le mot de passe qui reste oui, ce sera rapide à corriger je fais ça lundi.
mounibec
Messages postés
33
Date d'inscription
vendredi 26 mai 2006
Statut
Membre
Dernière intervention
28 mars 2008
-
Salut !

J'ai un probleme d'execution ! (msgbox :"projet ou bibliotheque introuvable") , ça pointe sur la fct "ImportTxtFile" , plus precisement la ligne : 664 .
gnieark
Messages postés
53
Date d'inscription
jeudi 17 août 2006
Statut
Membre
Dernière intervention
22 octobre 2010
-
Ben je sais po trop

As tu bien mis les fichiers basedoc.txt et outils.txt dans un dossier nommé Data? je vais faire l'essai de télécharger mon zip pour voir si il y a un problème.
gnieark
Messages postés
53
Date d'inscription
jeudi 17 août 2006
Statut
Membre
Dernière intervention
22 octobre 2010
-
Oups j'ai pas trouvé la fonction éditer... tant pis du flood.
Nounibec le zip fonctionne correctement et la fonction ImportTxtFile ne demande pas de bibliothèque d'objet spécifique.

essaie de la mettre dans le module1 en fonction publique en non privée.
et supprime la des forms 1 et 4 (vers la fin du code sur ces deux feuilles)

Public Function ImportTxtFile(ByVal fileName As String, ByVal separator As String, ByRef tdata() As String, ByRef errorString As String, Optional ByVal baseArray As Integer = 1) As Boolean
Dim f As Integer
Dim tLine() As String
Dim tSplit() As String
Dim buffer As String
Dim nbItem As Long
Dim k As Long, l As Long

On Error GoTo ImportTxtFile_ERR

f = FreeFile()
Open fileName For Binary As #f
buffer = Space$(LOF(f))
Get #f, , buffer
Close #f
tSplit() = Split(buffer, vbCrLf)
nbItem = UBound(Split(tSplit(0), separator)) + baseArray

ReDim tdata(UBound(tSplit()) + baseArray, nbItem)

For k = LBound(tSplit()) To UBound(tSplit())
tLine = Split(tSplit(k), separator)
For l = LBound(tLine) To UBound(tLine)
tdata(k + baseArray, l + baseArray) = tLine(l)
Next l
Next k
ImportTxtFile = True

ImportTxtFile_END:
Exit Function

ImportTxtFile_ERR:
errorString = Err.Description
Resume ImportTxtFile_END
End Function

Tiens moi au courant.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.