[VB] Interactions VB6->VBA-E

Version imprimable

Voir 40 message(s) de cette discussion en une page

07/06/2006, 18h40
jmfmarques

Alors, on y va !
Ta 1ère question (ici on traite une question à la fois, pas 2) était :

Citation:

Donc à votre avis, intégrer dans un projet VBA-E des forms customisés à partir de templates contenues dans un projet VB6, c'est possible ou je rêve éveillé ?

Ma réponse est :
Oui, tout est possible !
Il n'y a qu'à voir comment Microsoft s'est débrouillé pour savoir que l'on peut le faire !
Savoir que c'est possible est une chose !
Savoir comment le faire en est une autre....
Alors : montre ton début de code pour y parvenir (il va probablement falloir que tu t'intéresses de très près aux APIs si tu ne veux pas que ce truc là rame à en mourir)... et dis-nous à quel endroit précis de cette syntaxe tu coinces.;)
08/06/2006, 10h29
truman
Ben pour ce qui est de l'ajout d'une feuille à partir d'un template. Il me semble qu'on pourrait faire un truc du type :
Code:

1 2 Dim NewForm as Template1 Userforms.Add(NewForm)
Où Template1 est ma feuille modèle.

Autre interrogation : mon programme VB6 écrit des modules de classe. Comment les inclure dans l'appli VBA ?
19/06/2006, 15h17
truman

Je repose la question car j'en aurai vraiment besoin.

Admettons que j'ai un module d'écrit dans un fichier .txt ou même directement un fichier .cls, comment l'ajouter à mon appli VBA au lancement ? Ces modules devront donc également être supprimés du projet à la fermeture du programme...

Merci.
20/06/2006, 09h39
truman

Up :roll:

Allez j'ai fini par trouver alors je poste la solution au cas où ça peut servir à d'autres cinglés. :aie:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim i As Integer
Dim nf As Integer
Dim modnum As Integer
Dim codeline As String
For i = 1 To Application.VBE.ActiveVBProject.VBComponents.Count
    If Application.VBE.ActiveVBProject.VBComponents(i).Name = "mod1" Then
        modnum = i
    End If
Next i
    Application.VBE.ActiveVBProject.VBComponents(modnum).CodeModule.DeleteLines 1, Application.VBE.ActiveVBProject.VBComponents(modnum).CodeModule.CountOfLines
    nf = FreeFile
    Open ThisWorkbook.Path & "\test.txt" For Input As #nf
        Do While Not EOF(nf)
            Input #nf, codeline
            Application.VBE.ActiveVBProject.VBComponents(modnum).CodeModule.InsertLines Application.VBE.ActiveVBProject.VBComponents(modnum).CodeModule.CountOfLines + 1, codeline
        Loop
    Close nf

Le code contenu dans le fichier "test.txt" est chargé dans le module "mod1" au lancement du programme ;)

Plus simple :

A l'init

Code:

1
2
3
4
5
6
    'Création d'un nouveau module de classe
    Application.VBE.ActiveVBProject.VBComponents.Add vbext_ct_ClassModule
    'On renomme le nouveau module
    Application.VBE.ActiveVBProject.VBComponents("Classe1").Name = "test"
    'On importe le code contenu dans test.cls dans le module nouvellement créé
    Application.VBE.ActiveVBProject.VBComponents("test").CodeModule.AddFromFile ThisWorkbook.Path & "\test.cls"

Sur le BeforeClose du Workbook

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim modnum As Integer
    'Recherche si le module existe
    For i = 1 To Application.VBE.ActiveVBProject.VBComponents.Count
        If Application.VBE.ActiveVBProject.VBComponents(i).Name = "test" Then
            'Suppression du module            
            Application.VBE.ActiveVBProject.VBComponents.Remove Application.VBE.ActiveVBProject.VBComponents("Incompatibilites")
            Exit Sub
        End If
    Next i
End Sub

Sinon je me sens bien seul sur ce topic :aie:

Voir 40 message(s) de cette discussion en une page