ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Re: Exécution d'une formule dans une feuille Excel

Sujet
Précédent 1...13 14 15 16 17 18 19 20 21 22 ...129 Suivant
Erreur n°1640 à la compilation d’un projet Visual FoxPro (Access to system Registry denied) Luc - 30/08/2017 16h30
pour information : fermeture de codeplex -> GitHub Francis Faure - 25/08/2017 20h48
connexion fichier SQL alahem1 - 21/08/2017 13h36
verrification au momment du lancement le mulet - 21/08/2017 11h42
programme de login utilisateur Franck2010 - 20/08/2017 21h51
erreur de compilation executable le mulet - 18/08/2017 12h45
Exécution d'une formule dans une feuille Excel kjean - 14/08/2017 10h45
Propriété sous forme de tableau dans un formulaire Damonzon - 12/08/2017 12h21
probleme automation avec Excel eddymaue - 05/08/2017 12h25
j'ai 2 versions d'office d'installé eddymaue - 24/07/2017 19h49
Anomalie après compilation hki - 21/07/2017 14h39
_vfp.Eval() - curiosité Gregory Adam - 06/07/2017 12h12
Développement en VFP BENMAHAMED - 02/07/2017 00h48
Longueur de champ insuffisante dans une requête Bernard Avril - 27/06/2017 09h57
dbalias() Koen - 23/06/2017 13h45
Exécuter un script python depuis VFP FoxInCloud - 20/06/2017 15h53
Migration Foxpro2.6 à VFP8 Felix - 13/06/2017 20h12
migrer une application développée en FPW26\foxprow.EXE vers VFP98\VFP6.EXE Felix - 13/06/2017 12h18
Compteur sur un champ formulaire BENMAHAMED - 09/06/2017 18h48
[HS] WINDEV Jean à Grenoble - 02/06/2017 08h03
Précédent 1...13 14 15 16 17 18 19 20 21 22 ...129 Suivant

Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

lun. 14 août 2017, 12h12

Marc Thivolle
France
atoutfox.public.association

Re: Exécution d'une formule dans une feuille Excel

Deux solutions :

1 - Remplacer la ligne

lcFormula = [=SOMME(] + CHR(69 + lni) + ALLTRIM(STR(m.lnBeginRange)) +[:] + CHR(69 + lni) + ALLTRIM(STR(m.Lig)) + [)]

par la ligne

lcFormula = [=SUM(] + CHR(69 + lni) + ALLTRIM(STR(m.lnBeginRange)) +[:] + CHR(69 + lni) + ALLTRIM(STR(m.Lig)) + [)]

2 - Remplacer la ligne

xlSheet.Cells(m.lig+1,5+lni).Formula = [&lcFormula]

par la ligne

xlSheet.Cells(m.lig+1,5+lni).FormulaLocal = [&lcFormula]

Historiquement le langage VBA Excel accepte les fonctions dans leurs dénominations anglaises. Il est maintenant possible d'utiliser les noms français en appelant la fonction VBA suffixé par Local (FormulaLocal dans le cas présent).

NB : pas facile de débugger quand on ne possède ni le modèle Excel référencé dans le source ni un fichier de test pour alimenter le tableau.

Permalink : http://www.atoutfox.org/nntp.asp?ID=0000018370

20 088 messages dans le forum • Liste complète des messages

Les pubs en cours :