je cherche a effectuer la liste de tous les objets de mon projet.
Forms, Modules, Module de Classe, etc ...
<snip>
je cherche a effectuer la liste de tous les objets de mon projet.
Forms, Modules, Module de Classe, etc ...
<snip>
je cherche a effectuer la liste de tous les objets de mon projet.
Forms, Modules, Module de Classe, etc ...
<snip>
Bonjour à tous,
je cherche a effectuer la liste de tous les objets de mon projet.
Forms, Modules, Module de Classe, etc ...
Bonjour à tous,
je cherche a effectuer la liste de tous les objets de mon projet.
Forms, Modules, Module de Classe, etc ...
Bonjour à tous,
je cherche a effectuer la liste de tous les objets de mon projet.
Forms, Modules, Module de Classe, etc ...
Bonjour,
Merci de vos réponses.
Je n'y arrive pas vraiment !
Sous VBA j'ai coder quelques comme :
Sub Main()
Dim VBP As Variant
Dim VBC As VBComponent
Dim NomModule As String, Plage As String
Dim strMes As String
On Error Resume Next
Set VBP = ActiveVBProject
With VBP
For Each VBC In .VBComponents
strMes = strMes & vbLf & VBC.Name
Select Case VBC.Type
Case 1: strMes = strMes & vbLf & "Module"
Case 2: strMes = strMes & vbLf & "Class Module"
Case 3: strMes = strMes & vbLf & "UserForm"
Case 100: strMes = strMes & vbLf & "Document Module"
End Select
Next VBC
End With
MsgBox strMes
End Sub
'
et cela fonctionne très bien sous VBA , mais sous VB, même en ayant
chargé la référence ça plante car il ne reconnait pas :
ActiveVBProject
dans
Set VBP = ActiveVBProject
Bonjour,
Merci de vos réponses.
Je n'y arrive pas vraiment !
Sous VBA j'ai coder quelques comme :
Sub Main()
Dim VBP As Variant
Dim VBC As VBComponent
Dim NomModule As String, Plage As String
Dim strMes As String
On Error Resume Next
Set VBP = ActiveVBProject
With VBP
For Each VBC In .VBComponents
strMes = strMes & vbLf & VBC.Name
Select Case VBC.Type
Case 1: strMes = strMes & vbLf & "Module"
Case 2: strMes = strMes & vbLf & "Class Module"
Case 3: strMes = strMes & vbLf & "UserForm"
Case 100: strMes = strMes & vbLf & "Document Module"
End Select
Next VBC
End With
MsgBox strMes
End Sub
'
et cela fonctionne très bien sous VBA , mais sous VB, même en ayant
chargé la référence ça plante car il ne reconnait pas :
ActiveVBProject
dans
Set VBP = ActiveVBProject
Bonjour,
Merci de vos réponses.
Je n'y arrive pas vraiment !
Sous VBA j'ai coder quelques comme :
Sub Main()
Dim VBP As Variant
Dim VBC As VBComponent
Dim NomModule As String, Plage As String
Dim strMes As String
On Error Resume Next
Set VBP = ActiveVBProject
With VBP
For Each VBC In .VBComponents
strMes = strMes & vbLf & VBC.Name
Select Case VBC.Type
Case 1: strMes = strMes & vbLf & "Module"
Case 2: strMes = strMes & vbLf & "Class Module"
Case 3: strMes = strMes & vbLf & "UserForm"
Case 100: strMes = strMes & vbLf & "Document Module"
End Select
Next VBC
End With
MsgBox strMes
End Sub
'
et cela fonctionne très bien sous VBA , mais sous VB, même en ayant
chargé la référence ça plante car il ne reconnait pas :
ActiveVBProject
dans
Set VBP = ActiveVBProject
Bonjour,
Merci de vos réponses.
Je n'y arrive pas vraiment !
Sous VBA j'ai coder quelques comme :
Sub Main()
Dim VBP As Variant
Dim VBC As VBComponent
Dim NomModule As String, Plage As String
Dim strMes As String
On Error Resume Next
Set VBP = ActiveVBProject
With VBP
For Each VBC In .VBComponents
strMes = strMes & vbLf & VBC.Name
Select Case VBC.Type
Case 1: strMes = strMes & vbLf & "Module"
Case 2: strMes = strMes & vbLf & "Class Module"
Case 3: strMes = strMes & vbLf & "UserForm"
Case 100: strMes = strMes & vbLf & "Document Module"
End Select
Next VBC
End With
MsgBox strMes
End Sub
'
et cela fonctionne très bien sous VBA , mais sous VB, même en ayant chargé
la référence ça plante car il ne reconnait pas :
ActiveVBProject
dans
Set VBP = ActiveVBProject
Merci encore
mounynao
Bonjour,
Merci de vos réponses.
Je n'y arrive pas vraiment !
Sous VBA j'ai coder quelques comme :
Sub Main()
Dim VBP As Variant
Dim VBC As VBComponent
Dim NomModule As String, Plage As String
Dim strMes As String
On Error Resume Next
Set VBP = ActiveVBProject
With VBP
For Each VBC In .VBComponents
strMes = strMes & vbLf & VBC.Name
Select Case VBC.Type
Case 1: strMes = strMes & vbLf & "Module"
Case 2: strMes = strMes & vbLf & "Class Module"
Case 3: strMes = strMes & vbLf & "UserForm"
Case 100: strMes = strMes & vbLf & "Document Module"
End Select
Next VBC
End With
MsgBox strMes
End Sub
'
et cela fonctionne très bien sous VBA , mais sous VB, même en ayant chargé
la référence ça plante car il ne reconnait pas :
ActiveVBProject
dans
Set VBP = ActiveVBProject
Merci encore
mounynao
Bonjour,
Merci de vos réponses.
Je n'y arrive pas vraiment !
Sous VBA j'ai coder quelques comme :
Sub Main()
Dim VBP As Variant
Dim VBC As VBComponent
Dim NomModule As String, Plage As String
Dim strMes As String
On Error Resume Next
Set VBP = ActiveVBProject
With VBP
For Each VBC In .VBComponents
strMes = strMes & vbLf & VBC.Name
Select Case VBC.Type
Case 1: strMes = strMes & vbLf & "Module"
Case 2: strMes = strMes & vbLf & "Class Module"
Case 3: strMes = strMes & vbLf & "UserForm"
Case 100: strMes = strMes & vbLf & "Document Module"
End Select
Next VBC
End With
MsgBox strMes
End Sub
'
et cela fonctionne très bien sous VBA , mais sous VB, même en ayant chargé
la référence ça plante car il ne reconnait pas :
ActiveVBProject
dans
Set VBP = ActiveVBProject
Merci encore
mounynao
Bonsoir,
Oui, c'est uniquement en disign-time.
L'Objectif est d'intancier des rapports avec des objets Crystal Report
Designer
de façon dynamique. Toutefois nous n'arrivons pas a s'accrocher sur les objets
de Crystal, d'ou mon idée de produire la liste une fois le(s) rapports
instancier.
En fait nous ajoutons un module [CrystalReport1], celui pouvant instanci er
plusieurs sous-rapports. Disons que j'ai un collègue spécialiste de C rystal
que je connais moins et nous tentons de solutionner ce dilème.
J'ai bien tenter quelques lignes avec VBE sans trop savoir comment m'y
prendre.
Je suis la dessus depuis plusieurs jours et c'est pourquoi je lancé un appel à
l'aide.
Si vous pouviez m'indiquer brièvement comment démarrer ce serait symp a.
Le projet globale est assez tordu, nous développons une appli VB qui ut ilise
Crystal pour taper dans une BD propriétaire "vraiment non standard" de
HP-Peregrine ServiceCenter. Actuellement nous avons une solution VB
statique en production, mais nous avons le défi de réaliser des stati stiques
encore plus complètes, ce qui nous pousse è aller de l'avant dans cet te voie.
Merci encore de vos interventions, car là je "galère", dans mon patel in
je dirais que je "rush", mais il faut croire que j'aime ça !
mousnynao
Bonsoir,
Oui, c'est uniquement en disign-time.
L'Objectif est d'intancier des rapports avec des objets Crystal Report
Designer
de façon dynamique. Toutefois nous n'arrivons pas a s'accrocher sur les objets
de Crystal, d'ou mon idée de produire la liste une fois le(s) rapports
instancier.
En fait nous ajoutons un module [CrystalReport1], celui pouvant instanci er
plusieurs sous-rapports. Disons que j'ai un collègue spécialiste de C rystal
que je connais moins et nous tentons de solutionner ce dilème.
J'ai bien tenter quelques lignes avec VBE sans trop savoir comment m'y
prendre.
Je suis la dessus depuis plusieurs jours et c'est pourquoi je lancé un appel à
l'aide.
Si vous pouviez m'indiquer brièvement comment démarrer ce serait symp a.
Le projet globale est assez tordu, nous développons une appli VB qui ut ilise
Crystal pour taper dans une BD propriétaire "vraiment non standard" de
HP-Peregrine ServiceCenter. Actuellement nous avons une solution VB
statique en production, mais nous avons le défi de réaliser des stati stiques
encore plus complètes, ce qui nous pousse è aller de l'avant dans cet te voie.
Merci encore de vos interventions, car là je "galère", dans mon patel in
je dirais que je "rush", mais il faut croire que j'aime ça !
mousnynao
Bonsoir,
Oui, c'est uniquement en disign-time.
L'Objectif est d'intancier des rapports avec des objets Crystal Report
Designer
de façon dynamique. Toutefois nous n'arrivons pas a s'accrocher sur les objets
de Crystal, d'ou mon idée de produire la liste une fois le(s) rapports
instancier.
En fait nous ajoutons un module [CrystalReport1], celui pouvant instanci er
plusieurs sous-rapports. Disons que j'ai un collègue spécialiste de C rystal
que je connais moins et nous tentons de solutionner ce dilème.
J'ai bien tenter quelques lignes avec VBE sans trop savoir comment m'y
prendre.
Je suis la dessus depuis plusieurs jours et c'est pourquoi je lancé un appel à
l'aide.
Si vous pouviez m'indiquer brièvement comment démarrer ce serait symp a.
Le projet globale est assez tordu, nous développons une appli VB qui ut ilise
Crystal pour taper dans une BD propriétaire "vraiment non standard" de
HP-Peregrine ServiceCenter. Actuellement nous avons une solution VB
statique en production, mais nous avons le défi de réaliser des stati stiques
encore plus complètes, ce qui nous pousse è aller de l'avant dans cet te voie.
Merci encore de vos interventions, car là je "galère", dans mon patel in
je dirais que je "rush", mais il faut croire que j'aime ça !
mousnynao
<Citation>
Lorsque le projet addin est démarré (en IDE) ou compilé et qu'une
(seconde) IDE est ouverte,la liste de chacun des composants est
accessible au travers du menu Add-Ins.
</Citation>
(... accessible au travers du menu Add-Ins. ) ???
Je ne trouve pas ce menu, serait-ce :
// Menu / Compléments / My AddIn
désolu pour mon ignorance, comme précisé le AddIn est une nouvelle
approche pour moi.
<Citation>
Lorsque le projet addin est démarré (en IDE) ou compilé et qu'une
(seconde) IDE est ouverte,la liste de chacun des composants est
accessible au travers du menu Add-Ins.
</Citation>
(... accessible au travers du menu Add-Ins. ) ???
Je ne trouve pas ce menu, serait-ce :
// Menu / Compléments / My AddIn
désolu pour mon ignorance, comme précisé le AddIn est une nouvelle
approche pour moi.
<Citation>
Lorsque le projet addin est démarré (en IDE) ou compilé et qu'une
(seconde) IDE est ouverte,la liste de chacun des composants est
accessible au travers du menu Add-Ins.
</Citation>
(... accessible au travers du menu Add-Ins. ) ???
Je ne trouve pas ce menu, serait-ce :
// Menu / Compléments / My AddIn
désolu pour mon ignorance, comme précisé le AddIn est une nouvelle
approche pour moi.