IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

WinDev Discussion :

Récupérer la valeur d'une formule dans un fichier Excel [WD18]


Sujet :

WinDev

  1. #1
    Membre du Club
    Homme Profil pro
    Développeur Informatique WINDEV
    Inscrit en
    Novembre 2012
    Messages
    39
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Développeur Informatique WINDEV

    Informations forums :
    Inscription : Novembre 2012
    Messages : 39
    Points : 56
    Points
    56
    Par défaut Récupérer la valeur d'une formule dans un fichier Excel
    Je sollicite votre aide car dans mon programme je récupère les valeurs des cellules d'un fichier Excel à l'aide d' objet Automation "Excel.Application"

    Mon problème est le suivant :
    Dans mon fichier Excel il y a des cellules qui sont remplis par des formules , or je veux récupérer le résultat de la formule est non là formule en elle même.si Possible une fonction ou un tuto pour résoudre ce problème SVP?

  2. #2
    Expert éminent
    Avatar de frenchsting
    Homme Profil pro
    multitâches-multifonctions
    Inscrit en
    Juin 2003
    Messages
    5 394
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : multitâches-multifonctions
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juin 2003
    Messages : 5 394
    Points : 9 571
    Points
    9 571
    Par défaut
    Sans code, on ne pourra pas trop t'aider. Comment lis tu le contenu de tes cellules ?

    As-tu regardé du côté des forums consacrés à Excel (et VBA) ?

  3. #3
    Membre du Club
    Homme Profil pro
    Développeur Informatique WINDEV
    Inscrit en
    Novembre 2012
    Messages
    39
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Développeur Informatique WINDEV

    Informations forums :
    Inscription : Novembre 2012
    Messages : 39
    Points : 56
    Points
    56
    Par défaut
    Citation Envoyé par frenchsting Voir le message
    Sans code, on ne pourra pas trop t'aider. Comment lis tu le contenu de tes cellules ?

    As-tu regardé du côté des forums consacrés à Excel (et VBA) ?
    code pour lecture :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    XLS est un objet Automation "Excel.Application"
    MonFichier est une chaîne=fSélecteur(.......)
     
    XLS>>WorkBooks>>Open(MonFichier)
     
    sProd est une chaîne=""
     
    i est un entier=18
    TANTQUE XLS>>Range("A"+i)>>Value<>Null OU i<=500
    	MonChamps=XLS>>Range("I"+i)>>Value
    	i++
    FIN
     
    XLS>>ActiveWorkbook>>Close()
    XLS>>Quit()

  4. #4
    Expert éminent
    Avatar de frenchsting
    Homme Profil pro
    multitâches-multifonctions
    Inscrit en
    Juin 2003
    Messages
    5 394
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : multitâches-multifonctions
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Juin 2003
    Messages : 5 394
    Points : 9 571
    Points
    9 571
    Par défaut
    Je n'ai pas testé mais, apparemment, regarde du coté de cells plutôt que range.

  5. #5
    R&B
    R&B est déconnecté
    Membre éprouvé
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Mars 2005
    Messages
    571
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 52
    Localisation : France, Drôme (Rhône Alpes)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Distribution

    Informations forums :
    Inscription : Mars 2005
    Messages : 571
    Points : 1 263
    Points
    1 263
    Par défaut
    Bonjour
    Après avoir vite fait une macro VBA pour copier coller une formule, je me suis aperçu que la propriété d'une cellule pour obtenir la formule était... (roulement de tambour) "Formula"
    Ainsi en VBA on a
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Worksheets("Sheet1").Range("A1").Formula = "=$A$4+$A$10
    Ce qui fait en WD (affectation)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    oOLE>>Worksheets("Sheet1")>>Range("A1")>>Formula = "=$A$4+$A$10"
    ou (lecture)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    MaFormule est un variant
    MaFormule = oOLE>>Worksheets("Sheet1")>>Range("A1")>>Formula
    F1 c'est pas que pour WinDev, il existe aussi pour Excel, et ça c'est beau !

  6. #6
    Membre du Club
    Homme Profil pro
    Développeur Informatique WINDEV
    Inscrit en
    Novembre 2012
    Messages
    39
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Maroc

    Informations professionnelles :
    Activité : Développeur Informatique WINDEV

    Informations forums :
    Inscription : Novembre 2012
    Messages : 39
    Points : 56
    Points
    56
    Par défaut
    Citation Envoyé par R&B Voir le message
    Bonjour
    Après avoir vite fait une macro VBA pour copier coller une formule, je me suis aperçu que la propriété d'une cellule pour obtenir la formule était... (roulement de tambour) "Formula"
    Ainsi en VBA on a
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Worksheets("Sheet1").Range("A1").Formula = "=$A$4+$A$10
    Ce qui fait en WD (affectation)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    oOLE>>Worksheets("Sheet1")>>Range("A1")>>Formula = "=$A$4+$A$10"
    ou (lecture)
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    MaFormule est un variant
    MaFormule = oOLE>>Worksheets("Sheet1")>>Range("A1")>>Formula
    F1 c'est pas que pour WinDev, il existe aussi pour Excel, et ça c'est beau !
    chaire amie vous avais male comprie ma question.
    mois je veut recuperer la valeur et non pas la formule(le resultata de la formule).

  7. #7
    Rédacteur/Modérateur

    Avatar de dsr57
    Homme Profil pro
    Analyste programmeur senior
    Inscrit en
    Octobre 2003
    Messages
    1 139
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Analyste programmeur senior
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Octobre 2003
    Messages : 1 139
    Points : 4 681
    Points
    4 681
    Billets dans le blog
    22
    Par défaut
    Bonjour

    Essayes avec Value au lieu de Formula.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    oOLE>>Worksheets("Sheet1")>>Range("A1")>>Value
    Bon dev

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 7
    Dernier message: 26/09/2014, 15h29
  2. [XL-2003] Récupérer le contenu d'une ligne dans un fichier excel (rapidement)
    Par kigrez dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 12/04/2010, 22h20
  3. Réponses: 1
    Dernier message: 10/04/2010, 08h16
  4. recuperer les valeurs d'une cellule dans un fichier excel
    Par cortex59 dans le forum Général VBA
    Réponses: 2
    Dernier message: 24/04/2008, 14h10
  5. Réponses: 4
    Dernier message: 07/08/2006, 18h01

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo