TUTO Importer Des Données De Excel Par Drag And Drop

J'aime bien, j'ajouterais la désactivation de la table pour passer de 3 ou 4 secondes à un traitement instantané,
et là c'est avec un petit fichier, les gros ... :

Code (Text):

TableImport..AffichageActif = Faux
...
TableImport..AffichageActif = Vrai

Le CadrageHorizontal est appliqué sur la colonne, donc ça n'a rien à faire dans la boucle.
On peut aussi remplir une table rapidement si on a la ligne et la colonne (pour info) :

Code (Text):

TableImport[nLigne][nColonne] = sDonnee

Et pour ne pas se limiter à 50 colonnes (en dur), il suffit de cloner la première colonne pour avoir le nombre voulu :

Code (Text):

POUR nColonne = 2 _A_ TableImport..NombreColonne
    ChampSupprime("Colonne" + nColonne)
FIN

POUR nColonne = 2 A nNbColonnes
    ChampClone(Colonne1, "Colonne" + nColonne)
FIN

Je veux que vous soyez meilleur dans vos dev, mais vous n’êtes pas obligé.

A+.

Edit :

Il est vrai qu'on n'a pas besoin de les supprimer pour les recréer après :

Code (Text):

SI TableImport..NombreColonne + 1 > nNbColonnes ALORS
    POUR nColonne = nNbColonnes + 1 _A_ TableImport..NombreColonne
        ChampSupprime("Colonne" + nColonne)
    FIN
SINON
    POUR nColonne = TableImport..NombreColonne + 1 A nNbColonnes
        ChampClone(Colonne1, "Colonne" + nColonne)
    FIN
FIN

 

Bonsoir, j’espère que vous vous portez très bien!
sil vous plait le lien est mort ?on peut avoir un nouveau lien sil vous plait ?
Merci

 

Code Source:

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

[/QUOTE]
le lien est mort
veuillez mettre un nouveu lien SVP

 

Bonjour à tous,

Le produit n'est pas de moi, donc si le propriétaire ne veut plus le partager qu'il me le dit.

C'est ma version de tests avec quelques corrections et l'ancien exe :

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

A+.

 

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

J'aime bien, j'ajouterais la désactivation de la table pour passer de 3 ou 4 secondes à un traitement instantané,
et là c'est avec un petit fichier, les gros ... :

Code (Text):

TableImport..AffichageActif = Faux
...
TableImport..AffichageActif = Vrai

Le CadrageHorizontal est appliqué sur la colonne, donc ça n'a rien à faire dans la boucle.
On peut aussi remplir une table rapidement si on a la ligne et la colonne (pour info) :

Code (Text):

TableImport[nLigne][nColonne] = sDonnee

Et pour ne pas se limiter à 50 colonnes (en dur), il suffit de cloner la première colonne pour avoir le nombre voulu :

Code (Text):

POUR nColonne = 2 _A_ TableImport..NombreColonne
    ChampSupprime("Colonne" + nColonne)
FIN

POUR nColonne = 2 A nNbColonnes
    ChampClone(Colonne1, "Colonne" + nColonne)
FIN

Je veux que vous soyez meilleur dans vos dev, mais vous n’êtes pas obligé.

A+.

Edit :

Il est vrai qu'on n'a pas besoin de les supprimer pour les recréer après :

Code (Text):

SI TableImport..NombreColonne + 1 > nNbColonnes ALORS
    POUR nColonne = nNbColonnes + 1 _A_ TableImport..NombreColonne
        ChampSupprime("Colonne" + nColonne)
    FIN
SINON
    POUR nColonne = TableImport..NombreColonne + 1 A nNbColonnes
        ChampClone(Colonne1, "Colonne" + nColonne)
    FIN
FIN

Cliquez pour agrandir...