Fichier Excel

Bonjour,
Est ce que il y'a quelqu'un qui peut m'aider pour écrire un code qui  permet de remplir une table fox
à partir d'un fichier excel. Merci d'avance

Bonjour, quelles difficultés as-tu rencontré, quels est ton problème? quelle version de Fox? as-tu la structure de la table? que contient le fichier excel? as-tu commencé à écrire quelques lignes?

Bonsoir,
j'utilise FoxPro 9, j'ai essayé d'extraire les données avec le import de foxpro mais la structure de la table n'est pas claire. comment faire pour extraire quelques champs du fichier?? et comment le déclencher à partir d'un événement (clique sur un bouton par exemple)??

Bonjour,

la syntaxe exacte de l'import de données est dans les rubriques d'aide "APPEND FROM" et "IMPORT FROM"

si tu fais une recherche sur le mot "Excel" dans les contributions du site http://www.atoutfox.org, tu trouveras plusieurs exemples avec des techniques plus élaborées et complètes.

Et pour déclencher à partir d'un évenement, il suffit de coder dans la méthode de cet évenement, ou dans une méthode appelée depuis celle-ci.

Bonjour,
 j'ai utilisé une partie d'un code du site atoutfox, il me donne comme résultat le nombre de ligne dans une feuille Excel, j'ai cherché un moyen pour accéder à une case et récupérer ces données mais j'ai pas trouvé, y'a t'il quelqu'un qui peut m'aider?? merci pour votre aide.
le code :
CLEAR
SET TALK off
LOCAL cDriver as String  && nom du driver
LOCAL cFile as String    && nom du fichier excel a traiter
LOCAL ic as Integer      && id connection sql
LOCAL iNombreOnglets as Integer && nombre d'onglets
LOCAL iSheet as Integer
LOCAL varri
cDriver = "driver={Microsoft Excel Driver (*.xls)}"
cFile = "chemin"
ic = SQLSTRINGCONNECT(cDriver + "; DBQ=" + cFile)
IF m.ic>0
 if SQLTABLES(m.ic, "", "CursorListSheets")>0 
   iNombreOnglets = RECCOUNT()
   ? "Nombre d'onglets = "+ ALLTRIM(STR(m.iNombreOnglets))
   SCAN
     ? "Nom de l'onglet " + ALLTRIM(STR(RECNO()))+ "=" + ALLTRIM(Table_Name)
     SELECT 0    
     iSheet = SQLEXEC(m.ic, "select * from ["+ALLTRIM(CursorListSheets.Table_Name)+"]")
     IF iSheet>0
    
       ? " Nombre de lignes dans "+ ALLTRIM(CursorListSheets.Table_Name)+" = "+ALLTRIM(STR(RECCOUNT()))
     endif
     use
     SELECT CursorListSheets
   ENDSCAN
   use
 ENDIF
 =SQLDISCONNECT(m.ic)
endif