|
| récupérer une valeur dans une variable depuis un fichier excel en version mobile |
| Started by alezan, Jan., 27 2020 3:26 PM - 4 replies |
| |
| | | |
|
| |
Registered member
47 messages |
|
Posted on January, 27 2020 - 3:26 PM |
bonjour,
j'ai une questtion,
j'ai une valeur que je récupère au aujourd’hui dans un fichier excel qui ne contiens que cette valeur dans la celulle A1 de la première feuille
cette valeur est un ca global annuel qui va augmenter tout les jours et qui sera mis a jour dans cette celule du fichier excel.
fichier excel que je peux récupérer facilement sur un ftp.
je suis partit sur windows avec ce code pour répuré ma valeur dans une variabe est cela fonctione correctement.
mais comme les fonction xls ne sont pas disponible en version mobile, que me conseillez vous pour récupérer cette valeur dans une variable ?
doc est un xlsDocument
doc = xlsOuvre(fRepExe() + ["\"] + "ca2020.xlsx")
SI ErreurDétectée() ALORS
Erreur(ErreurInfo())
RETOUR
FIN
moCa2020 est un monétaire
moCa2020=doc[1,1]
merci de votre aide |
| |
| |
| | | |
|
| | |
| |
Registered member
449 messages
Popularité : +31 (43 votes) |
|
Posted on January, 27 2020 - 4:07 PM |
Bonjour
Fais un programme en windev à positionner sur un serveur qui scrute ton fichier xls à intervalle régulier et qui met la valeur dans un fichier texte sur ton ftp, coté mobile tu peux vérifier si ton fichier existe auquel cas importer la valeur contenu dedans.
C'est une piste éventuelle...
Cordialement
DG |
| |
| |
| | | |
|
| | |
| |
Registered member
47 messages |
|
Posted on January, 28 2020 - 8:57 AM |
Dimitri G a écrit :
Bonjour
Fais un programme en windev à positionner sur un serveur qui scrute ton fichier xls à intervalle régulier et qui met la valeur dans un fichier texte sur ton ftp, coté mobile tu peux vérifier si ton fichier existe auquel cas importer la valeur contenu dedans.
C'est une piste éventuelle...
Cordialement
DG
merci.
est ce que tu serais comment je peux récupérer la valeur dans un fichier texte ? sur le même principe ?
je n'ai rien trouvé de similaire sur version mobile. merci. |
| |
| |
| | | |
|
| | |
| |
Registered member
449 messages
Popularité : +31 (43 votes) |
|
Posted on January, 28 2020 - 9:30 AM |
Bonjour
tu peux utiliser les fichiers de type ini avec inilit et iniecrit : https://doc.pcsoft.fr/?3013043&name=inilit_fonction
Voici un exemple de code qui me sers pour savoir si il y'a une mise a jour de dispo pour un terminal industriel sur un serveur FTP.
<Compile SI Configuration="Application Android">
Num_connexion est un entier
Chemin_APK est une chaîne
SI Var_Globale.Nom_APK_INI <> "" ALORS
FTP.IgnoreErreur = ftpIgnoreCertificatExpiré + ftpIgnoreCertificatInvalide + ftpIgnoreNomCertificatInvalide + ftpIgnoreRevocation
Multitâche(10)
Num_connexion = FTPConnecte(Var_Globale.FTP_Serveur,Var_Globale.FTP_Login, Var_Globale.FTP_Password,Port_FTP,ftpModePassif,5)
SI Num_connexion = -1 ALORS
ToastAffiche("Problème de connexion au serveur FTP",toastCourt,cvBas,chCentre)
Etat_CNX_FTP = Faux
RETOUR
SINON
Etat_CNX_FTP = Vrai
SI FTPFichierExiste(Num_connexion,Var_Globale.Nom_APK_INI) ALORS
SI FTPRécupère(Num_connexion,Var_Globale.Nom_APK_INI,SysRepStockageExterne(1,ssePublic) + "/Download/",ftpModeBinaire) = Vrai ALORS
ToastAffiche("Vérification de la version iWpAddon",toastCourt,cvHaut,chCentre)
Version_MAJ = INILit("VERSION", "NUMERO", "", SysRepStockageExterne(1,ssePublic) + "/Download/" + Var_Globale.Nom_APK_INI)
SI Version_MAJ > Version_Iwpaddon ALORS
SI FTPFichierExiste(Num_connexion,Var_Globale.Nom_APK) ALORS
Libellé_InfoMAJ..Visible = Vrai
SELON Dialogue("Une mise à jour est disponible, souhaitez-vous l'installer ?")
CAS 1
Combo_User..Visible = Faux
Image_cadenas..Visible = Faux
IMG_download..Visible = Vrai
Multitâche(10)
SI FTPRécupère(Num_connexion,Var_Globale.Nom_APK,SysRepStockageExterne(1,ssePublic) + "/Download/",ftpModeBinaire) = Vrai ALORS
Chemin_APK = SysRepStockageExterne(1,ssePublic) + "/Download/" + Var_Globale.Nom_APK
Info("Mise à jour téléchargée." + RC + "Lancer l'installation...")
SauveParamètre("MAJ","OUI")
SauveParamètre("DATE",DateVersChaîne(DateHeureSys()))
LanceAppliAssociée(Chemin_APK)
Multitâche(10)
Info("Mise à jour installée, redémarrer le programme")
FinProgramme()
FIN
CAS 2
Libellé_InfoMAJ..Visible = Faux
FIN
FIN
FIN
FIN
FIN
FIN
FIN
<FIN> |
| |
| |
| | | |
|
| | |
| |
Registered member
47 messages |
|
Posted on January, 28 2020 - 11:01 AM |
super merci a toi.  |
| |
| |
| | | |
|
| | | | |
| | |
|