[VB6]PB d'importation d'un feuille Excel dans une MSFlexGrid

**mystere l** · 09/04/2004, 09h16

Bonjour!

Je cherche à importer une feuille Excel dans une MSFlexGrid.

Pour cela, j'ai utilisé la démarche suivante :

- Création sur ma form d'un controle Data (Data1) avec les propriétés suivantes :

- Connect Excel 8.0
- DataBaseName maBase.xls
- RecordsetType Table
- DefaultType Use Jet
- RecordSource Feuil1

- Création d'une MSFlexGrid (grdExcel) avec la propriété suivante :

- DataSource Data1

Ma MSFlexGrid contient bien la feuille Excel, MAIS j'ai un problème avec certaines colonnes.
Si une colonne possède des cellules avec uniquement des chiffres et d'autres mélangeant les deux, un seul type de données est affichée dans la grille.

Ex: colonne contenant :

1
2
plus de 50
31

-> Seuls les chiffres seront récupérés
-> Si ma colonne commence (ligne d'entete exclue) par de l'alphanumérique, seules les données
alphanumériques sont affichées.
C'est pénible !

J'espère que qqn pourra m'aider...

Merci d'avance.

**bidou** · 09/04/2004, 10h33

En utilisant Jet tu auras toujours le problème car il va chercher le typage des colonnes. Dans ton cas, tu dois passer par un copier/coller d'excel vers la grille et/ou inversement

**mystere l** · 09/04/2004, 11h20

En fait, j'utilisais Jet car l'affichage se faisait rapidement, presque instantané.

J'avais essayé auparavant de remplir ma grille en ouvrant le fichier Excel dans mon code et en faisant ensuite deux boucles For imbriquées (lignes et colonnes).

Mais le traitement était incroyablement LENT !!!

Je ne sais pas ce que tu entends par "copier/coller", il faudrait que tu m'expliques un peu +, s'il te plait.

Merci

**bidou** · 09/04/2004, 11h29

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim xlapp As Excel.Application, feuille As Excel.Worksheet, Plage As Excel.Range
Set xlapp = New Excel.Application
xlapp.Workbooks.Open "d:\user\test.xls"
Set feuille = xlapp.ActiveSheet
Set Plage = feuille.Range("A1").CurrentRegion
With Me.MSHFlexGrid1
    .Cols = Plage.Columns.Count
    .Rows = Plage.Rows.Count
    .Col = 0
    .ColSel = .Cols - 1
    .RowSel = .Rows - 1
    Plage.Copy
    .Clip = Clipboard.GetText
End With

**mystere l** · 09/04/2004, 11h33

OK, je vais essayer ça!

Merci !

**mystere l** · 09/04/2004, 13h27

Ca a l'air de marcher !

Encore merci!

**chico_du_33** · 20/04/2004, 14h04

bah j'ai testé ce bout de code chez moi et ça veut pas marcher.. il me dit erreur de compilation, méthode ou membre de données introuvables...
pourquoi que ça veut pas marcher? aurais-je oublier une librairie a inclure ou autre chose de ce genre ?

**mystere l** · 20/04/2004, 15h23

Chico,

As-tu bien inclus la librairie permettant d'utiliser Excel à travers VB? (dans le menu : Project/References -> Microsoft Excel 8.0 Object Library)

**chico_du_33** · 20/04/2004, 15h24

oué j'ai inclus Excel c la 9.0...

**mystere l** · 20/04/2004, 15h31

Quand tu fais du pas à pas (touche F8 ), où se produit l'erreur?

**chico_du_33** · 20/04/2004, 15h33

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
 
Dim xlapp As Excel.Application, feuille As Excel.Worksheet, Plage As Excel.Range
Set xlapp = New Excel.Application
xlapp.Workbooks.Open (Me.txt_fileExcel)
Set feuille = xlapp.ActiveSheet
Set Plage = feuille.Cells(1, 1).CurrentRegion
With Me.MSF
    ==> erreur ==> .Cols = Plage.Columns.Count
    .Rows = Plage.Rows.Count
    .Col = 0
    .ColSel = .Cols - 1
    .RowSel = .Rows - 1
    Plage.Copy
    .Clip = Clipboard.GetText
End With

en fait il ne veux pas me trouver .Cols, .Rows, c'est comme si ça existait pas.. pourtant mas flexgrid existe c'est ça que je compren pas

**mystere l** · 20/04/2004, 15h39

As-tu essayé avec :

Code :

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

Set Plage = shtContinent.Range("A1").CurrentRegion

**chico_du_33** · 20/04/2004, 15h42

bah la il me di qu'il connais pas shtContinent... je m'en sors plus de tout ça moi.. par hasard t'a pas MSN ce serait plus simple pour parler...
sinon tu pe me dire ce que je dois inclure exactement comme librairies parce que moi j'en ai mis quelques unes mais peut-etre que y'en a trop et que ça fait tout couiller je cpas..

**mystere l** · 20/04/2004, 15h44

Code :

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

shtContinent

C'est ma feuille Excel, désolé !

**chico_du_33** · 20/04/2004, 15h46

lol... bah de toute façon ça change rien il me met toujours la meme erreur sur .Cols
bon la quand meme a un truc qui va pas

**mystere l** · 20/04/2004, 15h50

Rassure-moi, quand tu tapes ton ".", il te propose bien la liste des propriétés et méthodes disponibles sur ton MSF?

Paske là, je vois plus q'un PB de faute de frappe sur le nom de ta grille dans ton code!!

**chico_du_33** · 20/04/2004, 15h52

bah non justement il me les propose pas..
quand je fais me. il me trouve la flexgrid
mais quand je fais me.MSF. il me trouve rien pour MSF qui est le nom de ma flexgrid alor je c pas pourquoi il ve pas me trouver les propriétés..