WD10 remplir table mémoire

Le
joseph cvjetic
Bonjour
Voici le code il ne prend que la dernière ligne du fichier xls

Iter = 0

NbLigneXls = xlsNbLigne(NumFichierXls)

Jauge(Iter,NbLigneXls,"Importation en cours")

//Boucle sur le nombre de ligne

POUR Iter = 2 A NbLigneXls

//acquisition


Table_recup.Titre=xlsDonnée(NumFichierXls,Iter,1)

Table_recup.Nom=xlsDonnée(NumFichierXls,Iter,2)

Table_recup.Prénom=xlsDonnée(NumFichierXls,Iter,3)

Table_recup.Fonction1=xlsDonnée(NumFichierXls,Iter,4)

Table_recup.Adress=xlsDonnée(NumFichierXls,Iter,5)

Table_recup.Cp=xlsDonnée(NumFichierXls,Iter,6)

Table_recup.Ville=xlsDonnée(NumFichierXls,Iter,7)

Table_recup.Vecteur=xlsDonnée(NumFichierXls,Iter,8)

Table_recup.Parti=xlsDonnée(NumFichierXls,Iter,9)

Table_recup.Société=xlsDonnée(NumFichierXls,Iter,10)

Table_recup.Tel=xlsDonnée(NumFichierXls,Iter,11)

Table_recup.Email=xlsDonnée(NumFichierXls,Iter,12)

TableAjouteLigne(Table_recup)





//Mis à jour de la jauge

Jauge(Iter,NbLigneXls,"Importation en cours")

FIN
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
joseph cvjetic
Le #14621041
OK j'ai trouvé ou se situait le problème
Désolé



"joseph cvjetic" 468dd647$0$13865$
Bonjour
Voici le code il ne prend que la dernière ligne du fichier xls

Iter = 0

NbLigneXls = xlsNbLigne(NumFichierXls)

Jauge(Iter,NbLigneXls,"Importation en cours")

//Boucle sur le nombre de ligne

POUR Iter = 2 A NbLigneXls

//---------------acquisition


Table_recup.Titre=xlsDonnée(NumFichierXls,Iter,1)

Table_recup.Nom=xlsDonnée(NumFichierXls,Iter,2)

Table_recup.Prénom=xlsDonnée(NumFichierXls,Iter,3)

Table_recup.Fonction1=xlsDonnée(NumFichierXls,Iter,4)

Table_recup.Adress=xlsDonnée(NumFichierXls,Iter,5)

Table_recup.Cp=xlsDonnée(NumFichierXls,Iter,6)

Table_recup.Ville=xlsDonnée(NumFichierXls,Iter,7)

Table_recup.Vecteur=xlsDonnée(NumFichierXls,Iter,8)

Table_recup.Parti=xlsDonnée(NumFichierXls,Iter,9)

Table_recup.Société=xlsDonnée(NumFichierXls,Iter,10)

Table_recup.Tel=xlsDonnée(NumFichierXls,Iter,11)

Table_recup.Email=xlsDonnée(NumFichierXls,Iter,12)

TableAjouteLigne(Table_recup)





//Mis à jour de la jauge

Jauge(Iter,NbLigneXls,"Importation en cours")

FIN





Publicité
Poster une réponse
Anonyme