PB à toute heure et à tout moment. (à parcourir avec modération)

Le forum (ô combien francophone) des utilisateurs de Powerbuilder.

Recherche rapide

Annonce

Certaines rubriques, dont des cours, sont uniquement visibles par les membres du forum ^^.
Dans la rubrique Liens & Références, vous avez accès à un sommaire de téléchargement, profitez-en !
Il existe maintenant un nouveau TOPIC "Votre CV en Ligne" accessible uniquement par demande.

#1 21-09-2010 15:35:09

mattdamon  
Le Tuniso-Parisien
Lieu: Livry-Gargan 93190
Date d'inscription: 29-12-2007
Messages: 569
Pépites: 89
Banque: 77,512,666,613,392,940

[RESOLU] Lire une cellule d'un excel

Bonjour,

J'arrive pas à lire la valeur d'une cellule excel.

ci-dessous la déclaration que j'ai fait :

Code: pb

//--- Initialisations ------------------------------------------------------------------------------------------

iole_excel = CREATE OLEObject
iole_sheet = CREATE OLEObject

// création d'une nouvelle instance
IF iole_excel.ConnectToNewObject ("Excel.Application") <> 0 THEN 
  // ??? Probleme : mettre en place la gestion des erreurs
  GOTO sortir
END IF

// Rendre l'application invisible
iole_excel.Application.Visible = FALSE

// Ouvrir le fichier
iole_excel.Application.Workbooks.Open (as_nom_fichier)

iole_excel.Application.Workbooks.Count
      
// Activer le 1er WorkBooks
iole_excel.Application.WorkBooks(1).Activate ()
  
// Activer la feuille : li_sheet
iole_sheet = iole_excel.ActiveWorkBook.WorkSheets (1)


Quelqu'un a une idée ?

Dernière modification par mattdamon (21-09-2010 16:31:15)

Hors ligne

 

#2 21-09-2010 15:37:33

erasorz  
Admin
Lieu: Babylone
Date d'inscription: 23-11-2006
Messages: 5121
Pépites: 97,197
Banque: 2,147,483,647

Re: [RESOLU] Lire une cellule d'un excel

y'a plein d'exemples sur le forum, donc


N'envoyez jamais un humain faire le travail d'un programme.

Hors ligne

 

#3 21-09-2010 15:42:24

mattdamon  
Le Tuniso-Parisien
Lieu: Livry-Gargan 93190
Date d'inscription: 29-12-2007
Messages: 569
Pépites: 89
Banque: 77,512,666,613,392,940

Re: [RESOLU] Lire une cellule d'un excel

erasorz a écrit:

y'a plein d'exemples sur le forum, donc

J'ai fait une cherche sur le forum avant de postuler, mais j'ai trouvé seulement le set et pas le get :

Code: pb

iole_excel.application.workbooks(1).worksheets(1).Cells(li_row,2).Value = "Salut"

Hors ligne

 

#4 21-09-2010 16:17:24

Yanis  
Modérateur
Lieu: paris
Date d'inscription: 16-06-2010
Messages: 349
Pépites: 665
Banque: 150

Re: [RESOLU] Lire une cellule d'un excel

Salut,

Code: pb

iole_excel.application.workbooks(1).worksheets(1).Range("B17").Value


Renvoi le contenu de la cellule B17

Hors ligne

 

#5 21-09-2010 16:28:56

mattdamon  
Le Tuniso-Parisien
Lieu: Livry-Gargan 93190
Date d'inscription: 29-12-2007
Messages: 569
Pépites: 89
Banque: 77,512,666,613,392,940

Re: [RESOLU] Lire une cellule d'un excel

Yanis a écrit:

Salut,

Code: pb

iole_excel.application.workbooks(1).worksheets(1).Range("B17").Value


Renvoi le contenu de la cellule B17

Parfait, ça fonctionne parfaitement.

Merci bcq

Hors ligne

 

#6 21-09-2010 17:52:36

erasorz  
Admin
Lieu: Babylone
Date d'inscription: 23-11-2006
Messages: 5121
Pépites: 97,197
Banque: 2,147,483,647

Re: [RESOLU] Lire une cellule d'un excel

mattdamon a écrit:

J'ai fait une cherche sur le forum avant de postuler, mais j'ai trouvé seulement le set et pas le get :

Code: pb

iole_excel.application.workbooks(1).worksheets(1).Cells(li_row,2).Value = "Salut"

Code: pb

// set
iole_excel.application.workbooks(1).worksheets(1).Cells(li_row,2).Value = "Salut"

// get
Any la_cellule
la_cellule = iole_excel.application.workbooks(1).worksheets(1).Cells(li_row,2).Value

N'envoyez jamais un humain faire le travail d'un programme.

Hors ligne

 

Pied de page des forums

Propulsé par FluxBB 1.2.22