Discussion :

[bb62]

Bonjour à tous

J'aimerai savoir si c'est possible d'ouvrir un fichier excel dans un formulaire sous visual basic 6.0. ET que le contenu de la feuille excel se mette dans le formulaire sous visual basic 6.0 et non sur excel.

Voici mon code :

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
16
 
Private Sub Command7_Click()
Dim XlApp As Excel.Application
Dim WorkB As New Excel.Workbook
Dim MaFeuille As New Excel.Worksheet
 
 
Set XlApp = New Excel.Application
 
XlApp.Visible = True
 
Set WorkB = XlApp.Workbooks.Open(App.Path + "\LISTE DES INGREDIENTS.xls")
 
Set MaFeuille = WorkB.Sheets("Feuil1")
MaFeuille.Activate
End Sub

Cela ouvre bien ma feuille mais j'aimerai que le contenu de ma feuille excel se mette dans un formulaire ou un objet (TextBox, ListBOx,...)

Pouvez-vous m'aider?

Merci d'avance

[SfJ5Rpw8]

une fois le classeur ouvert tu peu accéder à ces cellules... par exemple


pour mettre les données dans une list box...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each c In MaFeuille.Cells(1, 1).CurrentRegion
 List1.AddItem c
Next

c ayant été déclaré plus par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim c As Range

par exemple...

[bb62]

Oui, cela marche.

Mais moi j'aimerai voir apparaître dans mon formulaire de visual basic, exactement ce qu'il y a dans ma feuille excel.

Par exemple si c'est un tableau dans Excel, il faudrait que ce tableau soit remis dans un formulaire Visual Basic tel que l'on voit dans Excel.

Et je ne sais pas si c'est possible.

Merci d'avance.

[SfJ5Rpw8]

peu être en utilisant une msFlexGrid ...

voir :
http://vb.developpez.com/faq/?page=Office#excel2flex

[bb62]

J'ai déjà essayer et cela marche.

Mais le problème c'est qu'il ne prend pas en compte lni es images, ni les lignes vides entre par exemple ligne 1 et ligne3 et ni les ajustements de colonne

Merci d'avance.

[ouskel'n'or]

A tout hasard, une copie d'écran ne te suffirait pas... à tout hasard...
A+

[bb62]

Ben non, car j'aimerai rentrer des valeurs mais je ne sais pas si cela peut marcher avec une copie d'ecran?

Merci d'avance

[ouskel'n'or]

mais je ne sais pas si cela peut marcher avec une copie d'ecran?

Non, sauf si tu décides d'en faire une à chaque fois que tu modifies une valeur... beurk !
Mais il y aura bien un spécialiste VB qui va te donner la solution, je crois avoir vu ça sur le forum... y'a longtemps.

Bonne chance

A+

Edit
Je crois que dans l'exemple donné, on utilisait des objet OLE
A tout hasard

[bb62]

Alors j'ai fait un copier/coller de ma feuille xls dans une PictureBox et j'ai mis des TextBox où on doit ecrire.

Mais le problème c'est qu'on peut pas rajouter des cellule.

Alors la methode du copier/coller n'est pas la meilleure.

Quelqu'un aurait une autre solution?

Merci d'avance.

[ouskel'n'or]

Tu as vu "l'Edit" de ma réponse précdente ?

A+

[bb62]

Oui j'ai vu.

Mais je voudrai une autre solution.

A+

[ouskel'n'or]

Ok, alors je suis comme toi, j'attends qu'un érudit VB nous donne la solution.

A+

[bb62]

J'ai regardé partout dans le forum mais je n'ai pas trouver la solution à mon problème.

Si quelqu'un pouvez m'aider, car la je suis à bout.

Merci d'avance.

[DarkVader]

Je ne vois pas bien l'intérêt d'afficher la feuille dans un formulaire plutot que la gérer directement ?
Sinon, tu peux toujours essayer d'ajouter un control feuille Excel
(Composant > Objet à insérer : Feuille de calcul excel)

[bb62]

C'est bon je l'ai rajouter, maintenant tu fait comment pour mettre les valeurs d'une feuille excel existante dans cette feuille de calcul que je viens de créer dans Vb6.

Merci d'avance.

[bb62]

J'ai créer un sheet, mais je ne sais pas comment inserer les valeurs d'une feuille .xls existant.

Quelqu'un serai-t-il?

Merci d'avance.

[DarkVader]

M'en suis jamais servi, j'aurai donc du mal ...
Apparemment Sheet1.Object correspond à un object WorkBook,
à toi donc de copier chaque valeur dans chaque cellule etc...

sinon, tu as aussi le control OLE (que je n'ai jamais utilisé non plus)

[bb62]

Bonjour à tous,

J'ai reussi à mettre les données de ma feuille .xls existante mais par contre je ne peux pas rentrer mais valeur directement et donc lorsque je fais un double click sur l'objet ole il m'ouvre excel alors que moi je ne veux pas du tout ouvrir excel.

Quelqu'un saurait-il comment faire?

Merci d'avance

[bb62]

Bonjour àtous,

Bon ben tant pis je vais laisser tomber car depuis deux semaine je n'arrête pas de chercher mais je ne trouve pas la solution.

Merci quand même.

A++