PC SOFT

PROFESSIONAL NEWSGROUPS
WINDEV, WEBDEV and WINDEV Mobile

Home | Recent messages | Connect |  | English US
Home → WINDEV 2024 → Import Fichier Excel
Import Fichier Excel
Started by Julien74, Jan., 19 2017 2:31 PM - 4 replies
#1
Posted on January, 19 2017 - 2:31 PM
Bonjour à tous,

Est il possible de spécifier un numéro de ligne de début et de fin lors d'un import d'un fichier excel ?

Merci pour vos lumières

Julien
#2
Posted on January, 19 2017 - 4:03 PM
Si c'est vous qui programmez l'import, je ne vois pas bien où est la difficulté.
On sait avec windev déterminer le nombre de lignes avant de commencer
donc on borne de 1 à 10 (par exemple)
et le tour est joué.
#3
Posted on January, 19 2017 - 5:17 PM
Je me suis mal exprimé quand je relis mon post.
J'utilise la fonction HImporteXLS.
J'aimerai importé dans mon fichier excel les lignes de 13 à 33.
C'est un fichier de pointage des heures des salariés.

Merci
#4
Registered member
26 messages
Popularité : +1 (1 vote)
Posted on January, 20 2017 - 6:20 PM
Avec HImporteXLS() n'a que hImpIgnorePremièreLigne pour ignorer le première ligne du fichier excel (entête s'il y en a)

Soit tu adaptes ton fichier excel ou tu passes à l'ancienne comme ci-après:

MaFeuille est un xlsDocument
CheminExcel est une chaîne
CheminExcel = fSélecteur(fRepExe(), "", ...
"Sélectionnez un fichier...", ...
"Fichier Texte (*.xls)"+TAB+"*.xls"+RC+"Tous"+TAB+"*.*", "txt",fselOuvre+fselExiste)
SI CheminExcel = "" ALORS RETOUR
MaFeuille = xlsOuvre(CheminExcel , xlsEcriture)

SI ErreurDétectée() ALORS
Erreur(ErreurInfo())
RETOUR
FIN

i est un entier
nCol =MaFeuille..NombreColonne
nLig =MaFeuille..NombreLigne


POUR i = 11 A nLig //Ligne de départ=11

TonFichier.Rubrique1=xlsDonnée(MaFeuille, i, 1)
TonFichier.Rubrique2=xlsDonnée(MaFeuille, i, 2)
TonFichier.Rubrique3=xlsDonnée(MaFeuille, i, 3)
HAjoute(TonFichier)

FIN
xlsFerme(MaFeuille)


--
Bon Dev!
Message modified, January, 20 2017 - 6:24 PM
#5
Registered member
1 message
Posted on April, 25 2017 - 10:13 AM
J'ai du rajouter pour que cela fonctionne :
nCol est un entier
nLig est un entier

Merci ;-)
Message modified, April, 25 2017 - 10:18 AM
→ Go back to WINDEV 2024