PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV (précédentes versions) → Importer un fichier Excel
Importer un fichier Excel
Débuté par big winis, 15 juil. 2004 22:08 - 3 réponses
#1
Posté le 15 juillet 2004 - 22:08
Salut tout le monde.
j'ai un petit prob.
j'ai un fichier excel contenant des informations avec des champs du meme
type que mon fichier hyperfile et je voudrais importer les informations qui
sont sur le fichier excel vers le fichier hyperfile.
j'ai reussi l'operation inverse( exporter le contenu d'un fichier hyperfile
vers excel mais l'importation j'arrive pas à la faire)
Help me plz :)).
merci bcp
#2
Posté le 16 juillet 2004 - 14:14
j'ai le même pb que toi, j'ai regardé dans les exemples de windev mais pas
de reponse





"big_winis" <big_winis@yahoo.com> wrote:

Salut tout le monde.
j'ai un petit prob.
j'ai un fichier excel contenant des informations avec des champs du meme
type que mon fichier hyperfile et je voudrais importer les informations

qui
sont sur le fichier excel vers le fichier hyperfile.
j'ai reussi l'operation inverse( exporter le contenu d'un fichier hyperfile
vers excel mais l'importation j'arrive pas à la faire)
Help me plz :)).
merci bcp
#3
Posté le 16 juillet 2004 - 17:08
"big_winis" <big_winis@yahoo.com> wrote:

Salut tout le monde.
j'ai un petit prob.
j'ai un fichier excel contenant des informations avec des champs du meme
type que mon fichier hyperfile et je voudrais importer les informations

qui
sont sur le fichier excel vers le fichier hyperfile.
j'ai reussi l'operation inverse( exporter le contenu d'un fichier hyperfile
vers excel mais l'importation j'arrive pas à la faire)
Help me plz :)).
merci bcp

Pour chaque champ du fichier hyperfile il faut lire la cellule correspondante
du fichier excel avec la commande :

Exemple
idxls est un entier
nligne est un entier (est le no de ligne
ncol est un entier (est le no de colonne)
idxls = xlsouvre(nom du fichier excel)

nomfichier.nomchamp = xlsdonne(idxls,nligne,ncol)
hajoute(nom du fichier windev)

bonne chance
#4
Posté le 16 juillet 2004 - 19:11
J'ai, par le passé ,posé cette question et j'ai reçu une réponse très satisfaisante
de CLARANNE .

http://disc.server.com/discussion.cgi…
La réponse de CLARANNE :
Il y a moyen de transférer directement du fichier Excel vers le fichier .FIC
:

SI ObjetActif("Excel.Application") <> Null ALORS
// Récupération de l'instance de Excel existante
EXCAPP = ObjetActif("Excel.Application")
SINON
// Allocation de l'objet automation "MaFeuilleXLS"
EXCAPP = allouer un objet automation "Excel.Application"
FIN

EXCAPP est une objet OLE dynamique
EXCAPP>>Workbooks>>Open(NomDuFichierExcel)
EXCF est un objet OLE dynamique
EXCF=EXCAPP>>ActiveSheet

i est un entier
Pour i=2 A EXCF>>Cells(1,1)>>CurrentRegion>>Rows>>Count
FichierFIC.Champ1=EXCF>>Cells(i,1)>>value
FichierFIC.Champ2=EXCF>>Cells(i,2)>>Value
FichierFIC.Champ3=EXCF>>Cells(i,3)>>Value
....
Hajoute(FichierFIC)
FIN

EXCAPP>>Close(False)
libérer EXCAPP
libérer EXCF



Lhassane du MAROC
lhbis@yahoo.com
→ Revenir à WINDEV (précédentes versions)