[VBA-Excel] Feuille Excel vers Form VB

Version imprimable

10/05/2007, 14h39
serbrech

[VBA-Excel] Feuille Excel vers Form VB

Bonjour,

On m'a demandé de reprendre une Macro Excel et d'y ajouter des fonctionnalités, notamment, des aides.

La macro excel se présente carrément sour forme d'application, qui utilise des feuilles de calcul en tant que "base de données". C'est très maladroit, mais je dois rester la dessus...

Je cherche simplement à afficher le contenu d'une feuille de calcul comme information lors d'un clique sur un bouton d'aide. Je voulais l'afficher dans un MSFlexgrid, mais il s'avère que la macro ne fonctionne plus sur toutes les machines à cause de ce composant, car la librairie n'est apparement pas présentes sur l'ensemble des versions d'Excel installées (francais, anglais,...)
Est-il possible de faire de même avec un Datagrid? (je n'ai pas réussi a le remplir depuis la feuille excel, je ne rouve pas l'objet dataSet --?????--... je sais seulement l'utiliser depuis une bdd)
Sinon, est-il possible d'afficher au premier plan, puis reprendre la main sur "l'appli-macro"?
Une autre solution?
11/05/2007, 00h18
ouskel'n'or

Citation:

Envoyé par serbrech

La macro excel se présente carrément sour forme d'application, qui utilise des feuilles de calcul en tant que "base de données". C'est très maladroit, mais je dois rester la dessus...

Et en quoi est-ce maladroit ? Tiens, jète un oeil là, si j'ai bien compris ton pb, le zip devrait régler ton problème. Il te restera à ajouter tes "fonctionnalités" ;)
11/05/2007, 09h35
serbrech

Merci d'avoir pris le temps de répondre tout d'abord, mais la macro que tu me propose ne règle en rien mon probleme...
j'ai besoin d'afficher, pendant l'execution de mon appli/macro, une feuille de calcul dans laquelle je pourrais scroller.... une flexgrid quoi... mais les librairies ne sont pas sur toutes les machines :? quel composant puis-je utiliser, en étant sur qu'il soit présent sur toutes les versions? J'ai lu qqch sur des objets insérables qui permettraient d'insérer directement la feuille de calcul? ca existe ca? ca marche?

Pour ce qui est du "maladroit" eh bien une application appelé a être déployé sur des systèmes dont on ne contrôle pas la version d'excel est franchement maladroit quand on connait les problème d'execution des macros d'une version à l'autre...:bug:

Stephane
11/05/2007, 09h51
ouskel'n'or

Comme je ne sais pas ce que tu veux faire, regarde toujours RefEdit dans l'aide.
A+
11/05/2007, 09h54
serbrech

ben je veux copier toute une feuille de calcul dans un controle graphique d'une form, de sorte à ce qu'il soit lisible et scrollable pendant l'execution de la macro... Et ca, sans utiliser une Flexgrid.
Une datagrid, si c'est possible, serait parfait.
Dit moi ce qu'il faut que j'explique de plus...:?

bonsoir

Tu peux utiliser cette syntaxe:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton1_Click()
    Dim Cn As ADODB.Connection
    Dim Rs As ADODB.Recordset
 
    Set Cn = New ADODB.Connection
    With Cn
        .Provider = "MSDASQL"
        'Le classeur doit être préalablement sauvegardé
        .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & ThisWorkbook.FullName & "; ReadOnly=False;"
        .Open
    End With
 
    Set Rs = New ADODB.Recordset
    'Ne pas oublier le symbole $ à la suite du nom de la feuille.
    Rs.Open "SELECT * FROM [Feuil1$]", Cn, adOpenKeyset, adLockOptimistic
    Set DataGrid1.DataSource = Rs
End Sub

Par contre , tout comme pour les MsFlexGrid, il n'est pas certain que le DataGrid soit présent sur toutes les machines.

bonne soirée
michel