1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.
  2. Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !
    Rejeter la notice

AIDE Importer des contacts

Discussion dans 'Windev' créé par Kobex, Juil 4, 2018.

  1. Kobex

    Kobex Well-Known Member
    MEMBRE WX

    Inscrit:
    Fev 17, 2018
    Messages:
    373
    J'aime reçus:
    257
    Bonjour à tous,

    Je cherche à importer des contactes de fichier XLSX et CSV, avez-vous des pistes ?

    j'ai googlé et regarder dans les fonctions Wlanguage mais rien trouvé pour procéder à cette importation....

    je vous remercie d'avance pour votre aide.
     
  2. popoy

    popoy Well-Known Member
    MEMBRE WX

    Inscrit:
    Fev 23, 2018
    Messages:
    2,879
    J'aime reçus:
    1,531
    regarde les fonctions excel , fichiers textes et extraction de chaînes avec tous les exemples qui vont avec.
    La liste est plutôt longue.
     
  3. LAPIPE2018

    LAPIPE2018 Active Member
    MEMBRE WX

    Inscrit:
    Fev 17, 2018
    Messages:
    647
    J'aime reçus:
    227
    Code (Windev):

    FONCTION remplirseppointvirgule(sep)
    //if SansEspace(sep
    sep=";"


    nIdFichier          est un entier = 0
    sUneLigne,snomFichier est une chaîne
    //HCréation(BALANCETEMP)

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (Vrai)
    snomFichier=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    ("", "", "Sélectionnez un fichier.....", "Fichier Txt"+TAB+"*.txt"+RC+"Tous fichiers (*.*)"+TAB+"*.*", "*", fselOuvre+fselExiste)
    // Ouvrir le fichiers
    //Info(snomfichier)
    SI snomFichier="" THEN
        RENVOYER Faux
    FIN

    nIdFichier  =

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (snomFichier, foLecture)


    SI nIdFichier = -1 ALORS
       

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    ("Impossible d'ouvrir le fichier " + snomFichier)
        RENVOYER Faux
     
     
    FIN
    i est un entier

    ccc est une chaîne="IDDOSSIERMENSUEL="+fdossiermensuel
    netooyagegeneraleimport("DIPES",ccc)

    IF npremier>1

    FIN

    sDonnees est une chaîne

    bvalid est un booléen=Vrai  

    BOUCLE
        nSid,nSic,md,mc,nSfd,nSfc sont entier
     

        nSalplaf,nSalfix,nSaltax,nSalexp,nIrpp,nSalcotis sont des entiers
        nSalbrut est un entier=0
        nTaxe est un entier=0
     
        bvalid=Vrai
        sUneLigne =

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (nIdFichier)
        SI sUneLigne = EOT ALORS SORTIR
     
     
    //DEBUT MODIF MHR AJOUT //
    //IF SansEspace(ExtraitChaîne(sUneLigne,1,sep))="" then bvalid=Faux
    //IF Val(SansEspace(ExtraitChaîne(sUneLigne,20,sep)))=0 THEN bvalid=Faux
    //info(li
    sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,25,sep)


    nExo est un entier=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
    //SansEspace(ExtraitChaîne(sUneLigne,24,sep))
    sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,24,sep)

    nMois est un entier=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
    //info(nexo,nMois,sUneLigne)

           

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (DIPES, IDDOSSIERMENSUELMAT_INTERNEEXONUMMOIS, [fdossiermensuel,

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,1,sep),nExo,nMois])
         
            // Compte rendu
            SI

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    ()=Faux ALORS
       

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (DIPES)
    //IF bvalid=vrai then
        DIPES.IDDOSSIERMENSUEL=fdossiermensuel  
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,1,sep))
            DIPES.MAT_INTERNE=sDonnees
            sMinterne est une chaîne=sDonnees
         
         
        //DIPES.MAT_INTERNE= SansEspace(ExtraitChaîne(sUneLigne,1,sep))
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,2,sep))
            DIPES.SALBRUT=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
        //DIPES.SALBRUT=Val(SansEspace(ExtraitChaîne(sUneLigne,2,sep)))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,3,sep))
            DIPES.SALEXCEP=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
        //DIPES.SALEXCEP=Val(SansEspace(ExtraitChaîne(sUneLigne,3,sep)))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,4,sep))
            DIPES.SAL_TAX=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
        //DIPES.SAL_TAX=Val(SansEspace(ExtraitChaîne(sUneLigne,4,sep)))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,5,sep))
            DIPES.SAL_COTIS=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
        //DIPES.SAL_COTIS=Val(SansEspace(ExtraitChaîne(sUneLigne,5,sep)))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,6,sep))
            DIPES.SAL_PLAF=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
        //DIPES.SAL_PLAF=Val(SansEspace(ExtraitChaîne(sUneLigne,6,sep)))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,7,sep))
            DIPES.IRPP=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
        //DIPES.IRPP=Val(SansEspace(ExtraitChaîne(sUneLigne,7,sep)))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,8,sep))
            DIPES.CAC=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
        //DIPES.CAC=Val(SansEspace(ExtraitChaîne(sUneLigne,8,sep)))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,9,sep))
            DIPES.TAXE_COM=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
        //DIPES.TAXE_COM=Val(SansEspace(ExtraitChaîne(sUneLigne,9,sep)))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,10,sep))
            DIPES.CFCSAL=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
        //DIPES.CFCSAL=Val(SansEspace(ExtraitChaîne(sUneLigne,10,sep)))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,11,sep))
            DIPES.CFCEMPLOYEUR=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
        //DIPES.CFCEMPLOYEUR=Val(SansEspace(ExtraitChaîne(sUneLigne,11,sep)))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,12,sep))
            DIPES.FNE=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
        //DIPES.FNE=Val(SansEspace(ExtraitChaîne(sUneLigne,12,sep)))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,13,sep))
            DIPES.RAV=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
        //DIPES.RAV=Val(SansEspace(ExtraitChaîne(sUneLigne,13,sep)))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,14,sep))
            DIPES.TOTALIMPOTS=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
        //DIPES.TOTALIMPOTS=Val(SansEspace(ExtraitChaîne(sUneLigne,14,sep)))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,15,sep))
            DIPES.PVSAL=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
        //DIPES.PVSAL=Val(SansEspace(ExtraitChaîne(sUneLigne,15,sep)))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,16,sep))
            DIPES.PVEMPLOYEUR=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
        //DIPES.PVEMPLOYEUR=Val(SansEspace(ExtraitChaîne(sUneLigne,16,sep)))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,17,sep))
            DIPES.AF=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
        //DIPES.AF=Val(SansEspace(ExtraitChaîne(sUneLigne,17,sep)))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,18,sep))
            DIPES.ATV=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
        //DIPES.ATV=Val(SansEspace(ExtraitChaîne(sUneLigne,18,sep)))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,19,sep))
            DIPES.TOTALCNPS=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
        //DIPES.TOTALCNPS=Val(SansEspace(ExtraitChaîne(sUneLigne,19,sep)))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,20,sep))
            DIPES.TOTALGENERAL=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
        //DIPES.TOTALGENERAL=Val(SansEspace(ExtraitChaîne(sUneLigne,20,sep)))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,21,sep))
            DIPES.NUMASSURE=sDonnees
        //DIPES.NUMASSURE= SansEspace(ExtraitChaîne(sUneLigne,21,sep))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,22,sep))
            DIPES.CLE=sDonnees
        //DIPES.CLE= SansEspace(ExtraitChaîne(sUneLigne,22,sep))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,23,sep))
            DIPES.NIU=sDonnees
        //DIPES.NIU= SansEspace(ExtraitChaîne(sUneLigne,23,sep))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,24,sep))
            DIPES.NUMMOIS=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)
         
         
        //DIPES.NUMMOIS=Val(SansEspace(ExtraitChaîne(sUneLigne,24,sep)))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,25,sep))
            DIPES.EXO=sDonnees
         
         
        //DIPES.EXO=Val(SansEspace(ExtraitChaîne(sUneLigne,25,sep)))
     
        sDonnees=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sUneLigne,26,sep))
            DIPES.NBREJOUR=

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (sDonnees)  
        //DIPES.NBREJOUR=Val(SansEspace(ExtraitChaîne(sUneLigne,26,sep)))
        // Recherche du premier élément
    //    HLitRecherchePremier(DIPES, IDDOSSIERMENSUELMAT_INTERNEEXONUMMOIS, [fdossiermensuel,sMinterne,nExo,nMois])
    //  
    //    // Compte rendu
    //    SI HTrouve()=Faux ALORS
               

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (DIPES)
        END
    //    end
     
    FIN

    // Fermer le fichier texte

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (nIdFichier)

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    ()

    // Se repositionner sur la première ligne


    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    (Faux)
    RENVOYER Vrai
     
    elghyati et joker aiment ça.
  4. LAPIPE2018

    LAPIPE2018 Active Member
    MEMBRE WX

    Inscrit:
    Fev 17, 2018
    Messages:
    647
    J'aime reçus:
    227
    Code (Text):
    FONCTION remplirExcel()
    nIdFic est un entier             // identifiant du fichier Excel
    nColonne est un entier            // colonne en cours
    nLigne     est un entier            // ligne en cours
    nPremièreLigne est un entier    // première ligne à lire
    sLigne est une chaîne             // contenu de la ligne en cours
    nNbLignes est un entier            // nombre de lignes du tableau Excel
    nNbColonnes est un entier        // nombre de colonnes du tableau Excel
    sNomFic est une chaîne            // nom du fichier XLS
    sDonnée est une chaîne
    sais_Fic est une chaîne
    //sais_Fic=
    sais_Fic=fSélecteur("", "", "Sélectionnez un fichier...", "Fichier Excel" + TAB + "*.xls;*.xlsx" + RC + "Tous les fichiers (*.*)" + TAB + "*.*", "*.xls;*.xlsx")
    //fSélecteur("","","Sélectionnez un fichier Excel",...
    //"Document Excel (*.XLS)"+TAB+"*.XLS","XLS",...
    //FSelExiste)


    //
    //HCréation(BALANCETEMP)
    //si Sais_Fic~="" alors
    //    erreur("Sélectionnez d'abord un fichier Excel !")
    //    renvoyer Faux
    //FIN

    // nom du fichier XLS
    sNomFic = sais_Fic

    Sablier(Vrai)
    SI PAS fFichierExiste(sNomFic) ALORS
        Erreur("Impossible de trouver le fichier spécifié")
        RENVOYER Faux
    FIN
    // vérification de l'existence du fichier
    SI fTaille(sNomFic)<=0 ALORS
        Erreur("Impossible de trouver le fichier spécifié")
        RENVOYER Faux
    FIN

    // on tente d'ouvrir le fichier
    nIdFic = xlsOuvre(sNomFic)
    SI nIdFic=-1 ALORS
        Erreur("Impossible d'ouvrir le fichier.",...
        "Vérifier qu'il n'est pas déjà ouvert sur une autre application.",xlsMsgErreur(nIdFic))
        RENVOYER Faux
    FIN

    ccc est une chaîne="IDDOSSIERMENSUEL="+fdossiermensuel
    netooyagegeneraleimport("DIPES",ccc)

    // on vide la table
    //TableSupprimeTout(TableImport)


    // nombre de lignes et de colonnes du tableau Excel
    nNbLignes = xlsNbLigne(nIdFic)
    nNbColonnes = xlsNbColonne(nIdFic)

    // si la première ligne contient les titres de colonne
    IF npremier>=nNbLignes THEN
        Info("Nombre de lignes trop Grand")
        RENVOYER Faux
    FIN  
    nPremièreLigne = npremier
    sNcompte est une chaîne
    sid,sic,md,mc,nSfd,nSfc sont entier

    sMinterne est une chaîne

    HLitRecherchePremier(DOSSIERMENSUEL,IDDOSSIERMENSUEL,fdossiermensuel)
    HLitRecherchePremier(Exercice,IDExercice,DOSSIERMENSUEL.IDExercice)

    sic=DOSSIERMENSUEL.MMOIS
    sid=Exercice.Annee
    nMois est un entier=sic
    //nExo est un entier=sid

    //sid=mois
    //exo est un entier=sic
    //mmois est un entier=sid

    // on remplit la table mémoire
    POUR nLigne = nPremièreLigne A nNbLignes
        HRAZ(DIPES)
        kk est un entier
       
        sLigne = ""
        //    tableajouteligne(TableImport)
        nSalplaf,nSalfix,nSaltax,nSalexp,nIrpp,nSalcotis sont des entiers
        nSalbrut est un entier=0
        rTaxe est un réel=0
        // on construit la ligne lue
        bvalid est un booléen=Vrai  
        //sMinterne est une chaîne
       
        POUR nColonne = 1 A nNbColonnes
            Donnees est une chaîne =""
            md=0
           
            Donnees= xlsDonnée(nIdFic, nLigne, nColonne, Faux)
            //    {"Colonne"+nColonne}[tableoccurrence(TableImport)]=  sDonnée
            //xlsDonnée(
           
            SELON nColonne
           
                CAS 1
                   
                    DIPES.MAT_INTERNE=Donnees
                    sMinterne=Donnees
                   
                    IF SansEspace(Donnees)="" THEN bvalid=Faux          
                   
                CAS 2
                    kk=Val(Donnees)
                    DIPES.SALBRUT    =kk
                   
                   
                CAS 3
                    kk=Val(Donnees)
                    DIPES.SALEXCEP    =kk
                CAS 4
                    kk=Val(Donnees)
                    DIPES.SAL_TAX    =kk
                CAS 5
                    //jj est un entier=Val(Donnees)
                   
                    kk=Val(Donnees)
                    DIPES.SAL_COTIS    =kk
                CAS 6
                    kk=Val(Donnees)
                    DIPES.SAL_PLAF    =kk
                CAS 7
                    kk=Val(Donnees)
                    DIPES.IRPP    =kk
                CAS 8
                    kk=Val(Donnees)
                    DIPES.CAC    =kk
                CAS 9
                    kk=Val(Donnees)
                    DIPES.TAXE_COM    =kk
                   
                   
                CAS 10
                    kk=Val(Donnees)
                    DIPES.CFCSAL    =kk
                CAS 11
                    kk=Val(Donnees)
                    DIPES.CFCEMPLOYEUR    =kk
                CAS 12
                    kk=Val(Donnees)
                    DIPES.FNE    =kk
                   
                CAS 13
                    kk=Val(Donnees)
                    DIPES.RAV    =kk
                   
                   
                   
                CAS 14
                    kk=Val(Donnees)
                    DIPES.TOTALIMPOTS    =kk
                    IF kk<=0 THEN bvalid=Faux          
                CAS 15
                    kk=Val(Donnees)
                    DIPES.PVSAL    =kk
                   
                CAS 16
                   
                    kk=Val(Donnees)
                    DIPES.PVEMPLOYEUR    =kk
                   
                CAS 17
                    kk=Val(Donnees)
                    DIPES.AF    =kk
                   
                CAS 18
                    kk=Val(Donnees)
                    DIPES.ATV    =kk
                   
                   
                CAS 19
                    kk=Val(Donnees)
                    DIPES.TOTALCNPS    =kk
                   
                CAS 20
                    kk=Val(Donnees)
                    DIPES.TOTALGENERAL    =kk
                    IF kk<=0 THEN bvalid=Faux          
                CAS 21
                    //kk=Val(Donnees)
                    DIPES.NUMASSURE    =Donnees
                   
                CAS 22
                    DIPES.CLE    =Donnees
                CAS 23
                    //kk=Val(Donnees)
                    DIPES.NUMASSURE    =Donnees
                CAS 24
                    //            kk=Val(Donnees)  
                //            DIPES.NUMMOIS    =kk
                CAS 25
                    //                kk=Val(Donnees)  
                //                DIPES.EXO    =kk  
                CAS 26
                    kk=Val(Donnees)  
                    DIPES.NBREJOUR    =30
                   
                   
                   
            FIN
           
           
           
           
           
        FIN
        IF  bvalid=Vrai THEN
            nExo est un entier=sic
            nMmois est un entier=sid
            DIPES.IDDOSSIERMENSUEL=fdossiermensuel
            DIPES.NUMMOIS=sic
            DIPES.EXO=sid
            HLitRecherchePremier(DIPES, IDDOSSIERMENSUELMAT_INTERNEEXONUMMOIS, [fdossiermensuel,sMinterne,nExo,nMois])
            //    DIPES.EXO=exo
            //    DIPES.NUMMOIS=mmois
            IF HTrouve=Faux THEN
            HAjoute(DIPES)
            END
           
            //sid=mois
           
           
        END
       
       
       
    FIN  

    // on remplit la table mémoire



    // on construit la ligne lue


    FenRepeint()

    // fermeture du fichier
    xlsFerme(nIdFic)

    Sablier(Faux)

    RENVOYER Vrai
     
    elghyati et joker aiment ça.
  5. LAPIPE2018

    LAPIPE2018 Active Member
    MEMBRE WX

    Inscrit:
    Fev 17, 2018
    Messages:
    647
    J'aime reçus:
    227
    SI tu prends les 2 fonctions, c'est suffisant pour importer Excel et avec séparateur
     
    elghyati apprécie ceci.
  6. Kobex

    Kobex Well-Known Member
    MEMBRE WX

    Inscrit:
    Fev 17, 2018
    Messages:
    373
    J'aime reçus:
    257

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    SI tu prends les 2 fonctions, c'est suffisant pour importer Excel et avec séparateur
    Cliquez pour agrandir...
    Wouwww, vraiment 1000 mercis
     
  • Kobex

    Kobex Well-Known Member
    MEMBRE WX

    Inscrit:
    Fev 17, 2018
    Messages:
    373
    J'aime reçus:
    257

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!

    :)

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!



    Pour les .CSV séparateur = ";"
    je me suis amusé à faire ça (WD20) :

    L'exemple .CSV Joint :

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!



    Résultat (avec une jolie faute de frappe ;) :

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!



    Code (Text):
    nIDFichier est un entier
    sChaîneLue est une chaîne
    LL est entier // je compte les lignes ...
    sMotLU est une chaîne

    // Ouverture du fichier
    nIDFichier = fOuvre("C:\Mes Projets\Contact_CSV\Exe\Contact.csv", foLecture)
    SI nIDFichier <> -1 ALORS
        // Lecture du fichier
        sChaîneLue = fLitLigne(nIDFichier)
        LL = 1
        TANTQUE sChaîneLue <> EOT
            // Insérez ici votre traitement
            // sChaîneLue contient la chaîne lue
            SI sChaîneLue <> "" ALORS
                Trace(LL +" = "+ sChaîneLue)
                sMotLU = ExtraitChaîne(sChaîneLue, rangPremier, ";")
                TANTQUE sMotLU <> EOT
                    Trace(sMotLU)
                    SI VérifieExpressionRégulière(sMotLU, "[-.a-z0-9]+[@][-.a-z0-9]+[.][a-z]{2,4}") = Vrai ALORS
                        Trace("========> " + sMotLU + " est une adresse eMil valide")
                    FIN
                    sMotLU = ExtraitChaîne(sChaîneLue, rangSuivant, ";")
                FIN
                Trace("-")
            FIN
            LL ++
            sChaîneLue = fLitLigne(nIDFichier)
        FIN  
        // Fermeture du fichier
        fFerme(nIDFichier)
    SINON
        Erreur()
    FIN
     
    Cliquez pour agrandir...
    Merci, je suis en train de coder le même principe... et visiblement j'étais dans le bon à la différence que j'ai préféré chargé le doc en mémoire
     
  • enduracecanyon

    Inscrit:
    Jan 16, 2018
    Messages:
    41
    J'aime reçus:
    7
    Moimeme pour lire des donnees xls je utilse la classe Cexel (cellule_lire)
     
  • Partager cette page

    Chargement...