Problème d'alimentation combo VB6 et feuille excelRésolu

Question

Bonjour à tous,

Je rencontre un problème pour alimenter mon combo 1 vb6 avec les feuilles d'un fichier excel.

Pouvez-vous m'aider s.v.p?

Voici mon code:
Private Sub Form_Load()
Dim MyXLApp As Excel.Application
Dim MyXLWorkBook As Excel.Workbook
Dim MyXLWorkheets As Excel.Worksheet

Set MyXLApp = New Excel.Application

Set MyXLWorkBook = MyXLApp.Workbooks.Open(FileName:="C:\Projet.xls")

Form3.Combo1.AddItem MyXLWorkBook.Workheets

End Sub


Le problème vient de la:
Form3.Combo1.AddItem MyXLWorkBook.Workheets

L'erreur dit: erreur 438 - L'objet ne gère pas cette propriété ou cette méthode.


Merci pour votre aide

pile_poil · Accepted Answer

exact !!! 
MyXLWorkBook.Worksheets.Count
il manque le s dans worksheets


si c'est la solution,						 penser : REPONSE ACCEPTEE

pile_poil · Answer

remplace ta ligne par :
For i = 1 To MyXLWorkBook.Workheets.Count
    Form3.Combo1.AddItem MyXLWorkBook.Workheets(i).Name
Next i



si c'est la solution,						 penser : REPONSE ACCEPTEE

avyrex1926 · Answer

Bonjour,

J'ai encore le même erreur sauf que maintenant, c'est avec cette partie du code:

For i = 1 To MyXLWorkBook.Workheets.Count

Code total:
Dim MyXLApp As Excel.Application
Dim MyXLWorkBook As Excel.Workbook
Dim MyXLWorkheets As Excel.Worksheet

Set MyXLApp = New Excel.Application

Set MyXLWorkBook = MyXLApp.Workbooks.Open(FileName:="C:\Projet.xls")

For i = 1 To MyXLWorkBook.Workheets.Count
Form3.Combo1.AddItem MyXLWorkBook.Workheets(i).Name
Next i

avyrex1926 · Answer

Super, un très grand merci

Problème d'alimentation combo VB6 et feuille excel

4 réponses

Votre réponse

Discussions similaires