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

WD importation de gros fichier excel vers HFSQL ou le parcourir

Discussion dans 'Résolution problème & conseils' créé par elhacene, Oct 17, 2018.

  1. sanyad

    sanyad Member

    Inscrit:
    Sept 27, 2019
    Messages:
    173
    J'aime reçus:
    7
    The code cripples text field to 50 alphabets length while converting to HFSQL from excel.
     
  2. FreudWD

    FreudWD Well-Known Member
    MEMBRE WX WXG 21

    Inscrit:
    Jan 22, 2018
    Messages:
    199
    J'aime reçus:
    368
    Bonjour à tous,

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


    The thought that you were able to correct by yourself, line 157 and 188 of the procedure "ImportXLSvXXL".

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


    Tu as regardé les imports, par exemple celui de PhpMyAdmin, il suffit de convertir le fichier Excel en fichiers texte, type CSV pour les DATA, et un SQL pour la création de la table.

    A+.
     
  3. MENDOSS

    MENDOSS New Member

    Inscrit:
    Mai 6, 2021
    Messages:
    2
    J'aime reçus:
    2
    Bonjour

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

    ,
    Pourrai tu m'aider sur une préoccupation stp.

    J'ai fichier excel déjà renseigné, je veux avoir le même rendu des données saisies sous excel dans un champ RTF (HTML).
    je ne sais comment m'y prendre.

    Quand sélection la plage de données dans mon fichier excel avec copier et que je colle dans mon champ HTML, le rendu est correcte.
    Je veux pouvoir le faire autrement en d'autre termes par programmation.

    NB : Si possible enregistrer le contenu en image puis le récupérer dans le champ image.

    Merci de ton aide.

    Ci-joint les captures .
     

    Fichiers attachés:

  4. FreudWD

    FreudWD Well-Known Member
    MEMBRE WX WXG 21

    Inscrit:
    Jan 22, 2018
    Messages:
    199
    J'aime reçus:
    368
    Salut

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

    ,

    La commande Excel en VBA de ta manipe est Range + Copy, voici un exemple une fois le fichier Excel ouvert en objet OLE :

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



    On peut récupérer le contenu directement en RTF pour le mettre en base de données, dans un champ mémo du type binaire ou unicode.
    Une fois la validation du fonctionnement, il faudra se pencher sur le calcul du nombre de lignes et peut-être aussi des colonnes, en cherchant les lignes vides ou avec la commande ">>End(nXlDown)".

    Pour l’enregistrement en image, je n’ai pas d’idée pour l’instant, et je ne sais pas non plus si on peut enregistrer un champ HTML en image.

    A+.
     
  5. MENDOSS

    MENDOSS New Member

    Inscrit:
    Mai 6, 2021
    Messages:
    2
    J'aime reçus:
    2
    Merci

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

    , Pour ta reponse

    Voici ce que j'ai pu faire et il marche super bien quand le masque de saisie du champ RTF est 'RTF', quand je mets 'HTML' il passe pas je pense que je dois gérer les balises pour sa. mais mon pbm est plus ou moins résolu.

    // Classe de pilotage de Excel
    gpclExcel est un objet dynamique cNFSTableau

    // Variable
    sClasseur est une chaîne

    SI sClasseur="" ALORS
    // Sélection ou création d'un fichier Excel
    sClasseur=fSélecteur("","","Sélectionnez un document...",...
    "Document Excel (*.XLSX)"+TAB+"*.XLSX","XLSX",...
    fselOuvre)

    // Aucun fichier sélectionné
    SI sClasseur="" ALORS RETOUR
    FIN

    nLignes est un entier
    nColonnes est un entier
    sColDefaut est une chaîne

    // Ouverture d'un fichier XLS
    IDFichierXLS est un entier = xlsOuvre(sClasseur)
    SI IDFichierXLS = -1 ALORS
    RETOUR
    FIN

    // Nombre de Lignes
    nLignes = xlsNbLigne(IDFichierXLS)

    // Nombre de Colonne
    nColonnes = xlsNbColonne(IDFichierXLS)

    // Colonne de sélection départ
    sColDefaut = "A1"

    // Allocation de l'objet Excel
    gpclExcel = allouer un cNFSTableau(Vrai)

    // Ouvre le sClasseur
    gpclExcel.OuvrirClasseur(sClasseur)

    // Rendre invisible le sClasseur
    gpclExcel:m_pautExcel>>visible=OLEFaux

    // Copie de la zone delimitée par le nobre de Ligne et Colonne
    gpclExcel:Copier(sColDefaut + ":" + gpclExcel:LettreColonne(nColonnes) + nLignes)

    // Résumé : On demande au presse papier de nous restaurer la copie éffectué
    PressePapierRestaureCopier()

    // Ferme le sClasseur
    xlsFerme(IDFichierXLS)

    // On quitte Excel pour éviter que Excel se mette en erreur
    gpclExcel:Quitter()
    gpclExcel=Null // Libère l'objet Excel

    RepriseSaisie(SAI_Texte_RTF)


    /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    PROCEDURE OuvrirClasseur(sClasseur="")

    SI sClasseur="" ALORS
    // Sélection ou création d'un fichier Word
    sClasseur=fSélecteur("","","Sélectionnez un document...",...
    "Document Excel (*.XLSX)"+TAB+"*.XLSX","XLSX",...
    fselOuvre)

    // Aucun fichier sélectionné
    SI sClasseur="" ALORS RETOUR
    FIN

    QUAND EXCEPTION DANS
    // on ouvre le classeur demandé
    :m_pautExcel>>Workbooks>>Open(sClasseur)
    // Rendre visible
    :m_pautExcel>>visible=Vrai
    FAIRE
    :MsgErreur("Impossible d'ouvrir le classeur.",ExceptionInfo())
    RETOUR
    FIN


    /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    PROCEDURE Copier(sPlage="")

    // sélection de la plage de cellules
    SI sPlage<>"" ALORS
    :SelectionnerCellules(sPlage)
    FIN

    QUAND EXCEPTION DANS
    // copier de la zone
    :m_pautExcel>>Selection>>Copy()
    FAIRE
    RETOUR
    FIN


    ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
    // Résumé : On demande au presse papier de nous restaurer la copie éffectué
    //
    PROCEDURE PressePapierRestaureCopier()

    SI PressePapierFormat(ppfTexte) ALORS

    // récupère le texte dans le presse-papier //

    // Redimensionner le champ image en fonction de la taille de l'image
    IMG_PressePapier..Largeur = PressePapierLargeur()
    IMG_PressePapier..Hauteur = PressePapierHauteur()

    // Copier l'image dans le champ image
    PressePapier(IMG_PressePapier)

    nWM_PASTE est un entier = 0x0302
    //On indiquer que le champ RTF est modifié
    SAI_Texte_RTF..Modifié = Vrai
    // Faire un coller de l'image dans le champ de saisie
    SendMessage(Handle(SAI_Texte_RTF), nWM_PASTE, 0, 0)

    FIN
     
    #45 MENDOSS, Sept 9, 2021
    Dernière édition: Sept 9, 2021
    elhacene apprécie ceci.
  6. COBRAMANGUE

    COBRAMANGUE New Member

    Inscrit:
    Juil 20, 2022
    Messages:
    1
    J'aime reçus:
    0
    Bonjour a tous :)
    j'arrive un peu tard sur ce file .. mais je suis tres interessé par cet outil d'importation XSL , cependant le lien de chargement n'existe plus , sniff .
    est ce qu'une bonne âme aurait il la gentillesse de me donner un lien ? ( je suis novice et j'ai franchement du mal avec ce code .. )
    je precise que c'est pour webdev et que apparamment la fonction fselecteur n'existe pas dans webdev..
    Merci D'avance
     
  7. FreudWD

    FreudWD Well-Known Member
    MEMBRE WX WXG 21

    Inscrit:
    Jan 22, 2018
    Messages:
    199
    J'aime reçus:
    368
    Bonjour à tous,

    voici la version 1.0.8..0 (Exe + sources en WD 22) :

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



    A+.
     
    WX1331 et mikee5 aiment ça.
  8. KIN

    KIN New Member

    Inscrit:
    Avr 18, 2020
    Messages:
    3
    J'aime reçus:
    0
    Bonsoir FreudWD, SVP votre lien ne passe plus. Merçi d'avance
     
  9. FreudWD

    FreudWD Well-Known Member
    MEMBRE WX WXG 21

    Inscrit:
    Jan 22, 2018
    Messages:
    199
    J'aime reçus:
    368
    Bonjour à tous,

    Nouveau lien,version 1.0.8..0 (Exe + sources en WD 22) :

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



    A+.
     
    WX1331, WDnet et suenodesign aiment ça.
  10. KIN

    KIN New Member

    Inscrit:
    Avr 18, 2020
    Messages:
    3
    J'aime reçus:
    0

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

    Bonjour à tous,

    Nouveau lien,version 1.0.8..0 (Exe + sources en WD 22) :

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



    A+.
    Cliquez pour agrandir...
    Merci beaucoup

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

     
  • KOUTIMI Rodrigue

    KOUTIMI Rodrigue New Member

    Inscrit:
    Nov 6, 2019
    Messages:
    10
    J'aime reçus:
    0

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

    Bonjour à tous,

    Je n’ai pas eu le temps d’actualiser, en plus mon compte Mega a sauté,
    Je remets donc le dernier lien :

    Exe + sources en WD 22 :

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



    A+.
    Cliquez pour agrandir...
    Salut j'ai besoin du code source s'il vous plaît. Le lien a expiré
     
  • Pns

    Pns New Member

    Inscrit:
    Fev 15, 2024
    Messages:
    5
    J'aime reçus:
    0

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

    Bonjour à tous,

    Nouveau lien,version 1.0.8..0 (Exe + sources en WD 22) :

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



    A+.
    Cliquez pour agrandir...
    Merci
     
  • Partager cette page

    Chargement...