LOGICIEL CONSULTATION DOCUMENTAIRE, GESTION DOCUMENTAIRE

Commentaire de Exploreur le 28/09/2006 20:34:50

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

Commentaire de mounibec le 29/09/2006 05:46:48

Salut !

       J'ai un probleme d'execution ! (msgbox :"projet ou bibliotheque introuvable") , ça pointe sur la fct "ImportTxtFile" , plus precisement la ligne : 664 .

Commentaire de gnieark le 29/09/2006 08:29:09

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.

Commentaire de mounibec le 29/09/2006 18:49:39

Toujours le meme probleme gnieark , j'ai fais tous ce que tu ma dis mais ça marche pas .

Commentaire de gnieark le 01/10/2006 11:36:32

Nounibec>> tu peux essayer en remettant le code de la fonction importtextfile à chaque fois que je l'utilise... "r=importextfile(......) je crois que elle n'est utilisée que 3 fois dans le code.  il te faut remplacer les variables par contre

Commentaire de mounibec le 06/10/2006 18:45:40

Okey , j vais essayer , Merci !!!

Commentaire de gnieark le 18/10/2006 17:51:17

juste un flood pour signaler que les dernières mises à jour sont pas mal, c'est beaucoup mieux,plus joli, ça vaut 6,5 ;) ça reste un niveau débutant mais le code est beaucoup plus clair....
et pour préciser que ceux qui n'ont pas Office ne peuvent pas utiliser l'application non compilée. Par contre le .exe compilé fonctionne sur tout les PC, faites moi signe si vous voulez obtenir le .exe par mail.

Commentaire de gnieark le 05/11/2006 00:19:19

j'ai ajouté à la source le formulaire de déclaration des incidents.
Pour information, j'ai demandé un devis pour un programme équivalent (plus joli, j'avoue et quelques fonctions en plus, quoique le mien permet de limiter les impressions) c'est 4000€ et il faut une license SQLserveur (Waoh! je rentabilise mon salaire... patron, une augmentation ;))

Commentaire de gnieark le 06/11/2006 18:08:56

je viens de remettre le zip et cette fois j'ai utilisé winrar (en format .zip) et non quickzip qui buggue de temps en temps.

Commentaire de JDev le 22/08/2007 12:53:26

Salut!
Je n'ai pas vu ton source, mais je pense qu'il serait intéressant que tu nommes tes formulaires de façon professionnelle. Au lieu de nommer un formulaire "Form1", "Form4", ... il serait mieu de mettre le préfixe "frm" suivi d'un nom evocateur de ton formulaire. En effet, dans des projets vastes tu verras la nécessité de le faire(cela te permet de te reytrouver plus facilement).
Idem pour les variables ou les objets que tu manipules dans ton projet (TxtTypeDoc par exemple pour désigner une zone de texte qui contient le type de document manipulé).

Sinon, en lisant le description de ton code source, je l'ai trouvé intéressant. J'ai encore beaucoup de petites astuces pour faciliter la maintenance de ton appli, mais je préfère m'arrêter à ce niveau pour l'instant.

JE TELECHARGERAI TON SOURCE QUAND JE RECUPERERAI MA MACHINE QUI A VB, ET JE TE COMMUNIQUERAI LES REMARQUES EVENTUELLES QUE J'AURAIS.

Commentaire de yassine88 le 04/04/2008 10:22:15

2 mois de trvail gagné !! merci