[résolu]ouverture fichier excel plus possible

ouverture fichier excel plus possible [résolu] - VB/VBA/VBS - Programmation

Marsh Posté le 18-03-2004 à 17:25:33    

bonjour,
Je travaillais via Excel et maintenant je travaille via vb6.  
Avant pour faire une sélection sur une feuille excel je faisais :

Code :
  1. For i = 2 To Ligne
  2. If Sheets("mois" ).Cells(i, j + 1) = "M" Then
  3. cel = Cells(i, 1)
  4. 'recopie dans la listbox le contenu de la cellule (i,j)
  5. lb_Liste_Client.AddItem cel
  6. End If
  7. Next i

 
 
Mais maintenant ca ne marche plus...snif !
Comment dire à vb6 d'aller voir dans le fichier ou je vais réaliser une sélection. (Il faut utiliser file system object me semble-t- il mais je n'arrive pas à faire marcher ca) Ensuite je suppose qu'il suffise que je remette mon ancien code pour continuer mon prog. Et ensuite de refermer le fichier.
Merci de votre aide.


Message édité par lhonolulu le 19-03-2004 à 16:57:22
Reply

Marsh Posté le 18-03-2004 à 17:25:33   

Reply

Marsh Posté le 19-03-2004 à 09:40:07    

Faut créer un objet de type Excel dans ton programme (Va voir dans les références). Il faut qu'Excel soit installé sur le PC qui fera tourner le soft, ainsi que sur le poste de développement.

Reply

Marsh Posté le 19-03-2004 à 11:43:09    

merci,  
j'ai fait le code suivant et ca marche. dc pour ceux ke ca intéresse
 

Code :
  1. Dim xlApp As Excel.Application
  2. Dim xlWrk As Excel.Workbook
  3. Dim xlWks As Excel.Worksheet
  5. Set xlApp = New Excel.Application
  6. Set xlWrk = xlApp.Workbooks.Open(txtPathXls.Text)
  8. If OptPeriode(0) Then
  9.     Set xlWks = xlWrk.Worksheets(2)
  10.     sLettre = "M"
  11. End If
  12. 'si je clique sur le bouton option optperiode(1) alor ouvrir  feuille1 et je di que la variable slettre = t (permet de fair une sélection (idem pour optperiode(0)
  13. If OptPeriode(1) Then
  14.     Set xlWks = xlWrk.Worksheets(1)
  15.     sLettre = "T"
  16. End If

Reply

Marsh Posté le 19-03-2004 à 11:44:40    

je sais c'est con mais gpa trouvé le moyen de dir que mon problème est résolu...merci de me dire comment je peux fair ca...

Reply

Marsh Posté le 19-03-2004 à 15:23:50    

lol
 
édite le premier post du topic, tu pourras changer le titre normalement

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed