[VBA] Lancer une commande de compilation via VBA

[JièL]

Salutatousses

sans sendkeys, comment puis-je lancer la commande "Compiler VBAProject"
du menu Débogage du VBE ?

Merci d'avance

[MichD]

Bonjour,

Tu as des questions très étranges...!

Un exemple :

Suppose que tu as ce code dans le module de la feuil1

La compilation dans Excel se fait au fur et à mesure de la saisie du code...
si tu n'ajoutes aucun code, la commande "Compiler le projetVBA du menu débogage"
est inactive. Une manière de contourner le problème est j'ajouter un bout de code
dans le module avant d'appeler la commande "SendKeys".

Si tu exécute la macro "Test" à partir de l'interface de la feuille de calcul,
Excel devrait t'afficher qu'il y a une erreur avec cette ligne de code
10 = x <>1 dans la procédure "toto".

'-------------------------------------------------
Sub test()
Dim Code As String

Code = "Sub Bonjour()" & vbCrLf
Code = Code & "Msgbox ""Bonjour à toi.""" & vbCrLf
Code = Code & "End Sub"

ThisWorkbook.VBProject.VBComponents("Feuil1").CodeModule.AddFromString Code

SendKeys "%{F11}" + "%Dl"

End Sub

'-------------------------------------------------
Sub toto()

10 = x <>1

End Sub
'-------------------------------------------------

[JièL]

Hello,

Post by MichD
Bonjour,
Tu as des questions très étranges...!

Ah bon, tu trouves ? ;-)
Pour tout te/vous dire, j'essaye de tester les connaissances de
personnes en VBA, donc je dois vérifier ce qu'elle savent faire, et ceci
en VBA/VBS donc sans bloquer la vérif

Post by MichD
dans le module avant d'appeler la commande "SendKeys".

Nan, MichD, je voudrais justement EVITER le sendkeys.

J'ai avancé et j'ai pu trouver ceci

Excel.Application.VBE.CommandBars.FindControl(ID:=578).Execute
Ca lance une compilation, et ça ça marche, mais...
...après je voudrais (évidement) récupérer l'erreur de compil et,
théoriquement, faire un Ctrl+C sur une boite de dialogue copie le texte
de cette dernière dans le presse papier, sauf que dans le cas ci
dessous, msgbox txt affiche l'ancien contenu du PP et que si on colle
manuellement une fois le prog terminé ben y'a le nouveau contenu

Sub test()
select
End Sub

Sub RecupErrCompil()
' cocher "Microsoft Forms 2.0 Object Library"
Dim PP As New MSForms.DataObject, Txt As String
PP.GetFromClipboard
SendKeys "^c~"
Excel.Application.VBE.CommandBars.FindControl(ID:=578).Execute
Txt = PP.GetText()
MsgBox Txt
End Sub

Est-ce que qq'un aurait une idée pour récupérer l'erreur qui se serait
affiché ?

Encore merci de prendre le temps de vous casser la tête sur mes
questions "étranges". ;-)

[JièL]

Bon, je m'auto-répond ;-)

en fait, pour une raison que j'ignore, il semblerait que la récup du
contenu du presse-papier soit "lente" (ou légèrement différée).

une temporisation d'une seconde (mini d'après mes tests) est nécessaire.
Donc (si ça peut servir à d'autres qui ont des questions 13 et tranges)

Sub test()
select
End Sub

Sub RecupErrCompil()
' cocher "Microsoft Forms 2.0 Object Library"
Dim PP As New MSForms.DataObject, Txt As String
SendKeys "^c{ESC}" ' envoi Ctrl+C et Escape pour copier et fermer
la boite de dialogue
On Error Resume Next ' si la compil n'est pas possible/dispo
Excel.Application.VBE.CommandBars.FindControl(ID:=578).Execute
'lance la compil
Application.Wait Now + (1 / 86400) ' attend 1 seconde
PP.GetFromClipboard ' récup le contenu du presse papier
Txt = PP.GetText() ' récup du texte du pp
MsgBox Txt ' affiche la récup
End Sub

Le coté amusant des forums c'est que le fait de poser sa question aide à
la résoudre ;-)

Merci
--
JièL résolveur de ses propres questions ;-)

Post by JièL
Hello,

Post by MichD
Bonjour,
Tu as des questions très étranges...!

Ah bon, tu trouves ? ;-)
Pour tout te/vous dire, j'essaye de tester les connaissances de
personnes en VBA, donc je dois vérifier ce qu'elle savent faire, et ceci
en VBA/VBS donc sans bloquer la vérif

Post by MichD
dans le module avant d'appeler la commande "SendKeys".

Nan, MichD, je voudrais justement EVITER le sendkeys.
J'ai avancé et j'ai pu trouver ceci
Excel.Application.VBE.CommandBars.FindControl(ID:=578).Execute
Ca lance une compilation, et ça ça marche, mais...
...après je voudrais (évidement) récupérer l'erreur de compil et,
théoriquement, faire un Ctrl+C sur une boite de dialogue copie le texte
de cette dernière dans le presse papier, sauf que dans le cas ci
dessous, msgbox txt affiche l'ancien contenu du PP et que si on colle
manuellement une fois le prog terminé ben y'a le nouveau contenu
Sub test()
select
End Sub
Sub RecupErrCompil()
' cocher "Microsoft Forms 2.0 Object Library"
Dim PP As New MSForms.DataObject, Txt As String
PP.GetFromClipboard
SendKeys "^c~"
Excel.Application.VBE.CommandBars.FindControl(ID:=578).Execute
Txt = PP.GetText()
MsgBox Txt
End Sub
Est-ce que qq'un aurait une idée pour récupérer l'erreur qui se serait
affiché ?
Encore merci de prendre le temps de vous casser la tête sur mes
questions "étranges". ;-)

[MichD]

| je voudrais justement EVITER le sendkeys.

Encore faut-il le spécifier dans ta question...

a ) Pour récupérer le ID de chaque commande du menu de la fenêtre de l'éditeur de code (VBA)

'--------------------------------------------------------------------
Sub Test()
Dim Ctrl As CommandBarControl
Dim C As CommandBarControl
Dim A As Long

With ThisWorkbook.VBProject.VBE
For Each Ctrl In .CommandBars(1).Controls
A = A + 1
Range("A" & A) = Ctrl.Caption
Range("B" & A) = Ctrl.ID
For Each C In Ctrl.Controls
A = A + 1
Range("A" & A) = C.Caption
Range("B" & A) = C.ID
Next
A = A + 1
Next
End With
End Sub

'--------------------------------------------------------------------


Une question peut être étrange, cela ne signifie pas qu'il ne faut pas la poser ou qu'elle
est inintéressante... Depuis mes débuts avec Excel, c'est la première fois que quelqu'un
s'intéresse à ce type de situation!

[Jacquouille]

Salut Denis

Attends la suivante, ce sera sur la courbe d'atterrissage d'un OVNI, qui,
bien évidemment, variera suivant la t° au sol. -))


Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"MichD" a écrit dans le message de groupe de discussion :
n3ukf2$ddu$***@speranza.aioe.org...

| je voudrais justement EVITER le sendkeys.

Encore faut-il le spécifier dans ta question...



Une question peut être étrange, cela ne signifie pas qu'il ne faut pas la
poser ou qu'elle
est inintéressante... Depuis mes débuts avec Excel, c'est la première fois
que quelqu'un
s'intéresse à ce type de situation!


---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
http://www.avast.com

[JièL]

Jacquouille, je t'interdis de dévoiler mes prochaines questions, tu
brise tout l'effet de surprise ;-)
--
JièL sur preneur/prenant

Post by Jacquouille
Salut Denis
Attends la suivante, ce sera sur la courbe d'atterrissage d'un OVNI,
qui, bien évidemment, variera suivant la t° au sol. -))
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
| je voudrais justement EVITER le sendkeys.
Encore faut-il le spécifier dans ta question...
Une question peut être étrange, cela ne signifie pas qu'il ne faut pas
la poser ou qu'elle
est inintéressante... Depuis mes débuts avec Excel, c'est la première fois que quelqu'un
s'intéresse à ce type de situation!
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
http://www.avast.com

[JièL]

Hello,

Post by MichD
| je voudrais justement EVITER le sendkeys.
Encore faut-il le spécifier dans ta question...

j'avais écrit ceci

Salutatousses

sans sendkeys, comment puis-je...

est-ce que ça n'est pas suffisamment clair ? ;-)

Post by MichD
a ) Pour récupérer le ID de chaque commande du menu de la fenêtre de
l'éditeur de code (VBA)

Très intéressant, merci, mais... (oui, je sais, je suis ch*** ;-D)
Bizarrement, j'ai des doublons d'ID, comment est-ce possible ?
voici les doublons
Nom ID
&Nouveau projet 746
&Fermer le projet 746
&Supprimer Module1... 746
Créer EXE... 746
Ajouter 746
Ajouter 746
Ajouter 746
Ajouter 746
C&omposants... 746
&Signature électronique... 746
&1 Module1 (Code) 830
&3 PERSONAL.XLSB - Module1 (Code) 830
&4 PERSONAL.XLSB - Module2 (Code) 830
&5 PERSONAL.XLSB - ThisWorkbook (Code) 830
&6 PERSONAL.XLSB - Module3 (Code) 830
&Nom de fenêtre 830

et si c'est normal, comment j'active telle ou telle commande qui aurait
le même id ???

Et aussi un truc étrange, j'ai des noms et des ID qui correspondent à
des commandes que je ne vois même pas, notamment une qui m'a sauté à la
figure "Créer EXE... 746"

Post by MichD
Une question peut être étrange, cela ne signifie pas qu'il ne faut pas
la poser ou qu'elle
est inintéressante... Depuis mes débuts avec Excel, c'est la première fois que quelqu'un
s'intéresse à ce type de situation!

Ben faut dire que généralement les utilisateurs cherchent à résoudre un
pb Excel, moi je cherche ici à résoudre des pb VBA, donc je comprend que
ça soit hé tran jeux ;-)

Encore merci pour ton aide sur mes questions si bizarres.

[MichD]

Utilise plutôt cette macro, elle va afficher seulement les commandes
des menus qui sont affichées.

Le seul "ID" qui s'affiche 3 fois est 746. Il représente 3 commandes
différentes :
A ) "&Supprimer Feuil1..." du menu fichier
B ) "&Signature électronique.." du menu Outils
C ) "MSDN sur le &Web" du menu ?

Si tu essaies d'exécuter cette ligne de code :
Application.VBE.CommandBars.FindControl(ID:=746).Execute
On obtient une erreur : "erreur automation - erreur non spécifiée"

Je suppose qu'une commande comme "Supprimer Feuil1..." émane
d'une très vieille version d'Excel. Je n'ai aucune idée ce que cette
commande peut effectuer comme travail dans une fenêtre VBA.

Si tu fais un clic droit sur la barre des menus, il y a la commande
"Personnaliser" qui te permet de modifier les commandes des sous-menus.

'-------------------------------------------------------------
Sub Test()
Dim Ctrl As CommandBarControl
Dim C As CommandBarControl
Dim A As Long

With ThisWorkbook.VBProject.VBE
Range("A1") = .CommandBars(1).Name
For Each Ctrl In .CommandBars("Barre de menus").Controls
A = A + 1
Range("A" & A) = Ctrl.Caption
Range("B" & A) = Ctrl.ID
For Each C In Ctrl.Controls
If C.Visible = True Then 'Ligne de code ajoutée
A = A + 1
Range("A" & A) = C.Caption
Range("B" & A) = C.ID
End If
Next
A = A + 1
Next
End With
End Sub
'-------------------------------------------------------------

[JièL]

C'est nickel, merci
--
JièL

Post by MichD
Utilise plutôt cette macro, elle va afficher seulement les commandes
des menus qui sont affichées.
Le seul "ID" qui s'affiche 3 fois est 746. Il représente 3 commandes
A ) "&Supprimer Feuil1..." du menu fichier
B ) "&Signature électronique.." du menu Outils
C ) "MSDN sur le &Web" du menu ?
Application.VBE.CommandBars.FindControl(ID:=746).Execute
On obtient une erreur : "erreur automation - erreur non spécifiée"
Je suppose qu'une commande comme "Supprimer Feuil1..." émane
d'une très vieille version d'Excel. Je n'ai aucune idée ce que cette
commande peut effectuer comme travail dans une fenêtre VBA.
Si tu fais un clic droit sur la barre des menus, il y a la commande
"Personnaliser" qui te permet de modifier les commandes des sous-menus.
'-------------------------------------------------------------
Sub Test()
Dim Ctrl As CommandBarControl
Dim C As CommandBarControl
Dim A As Long
With ThisWorkbook.VBProject.VBE
Range("A1") = .CommandBars(1).Name
For Each Ctrl In .CommandBars("Barre de menus").Controls
A = A + 1
Range("A" & A) = Ctrl.Caption
Range("B" & A) = Ctrl.ID
For Each C In Ctrl.Controls
If C.Visible = True Then 'Ligne de code ajoutée
A = A + 1
Range("A" & A) = C.Caption
Range("B" & A) = C.ID
End If
Next
A = A + 1
Next
End With
End Sub
'-------------------------------------------------------------

[Jacquouille]

Salut Jièl

Et si tu pensais plutôt à St Nicolas?



Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"JièL" a écrit dans le message de groupe de discussion :
n3ubh8$pfn$***@speranza.aioe.org...

Hello,

Post by MichD
Bonjour,
Tu as des questions très étranges...!

Ah bon, tu trouves ? ;-)
Pour tout te/vous dire, j'essaye de tester les connaissances de
personnes en VBA, donc je dois vérifier ce qu'elle savent faire, et ceci
en VBA/VBS donc sans bloquer la vérif

Post by MichD
dans le module avant d'appeler la commande "SendKeys".

Nan, MichD, je voudrais justement EVITER le sendkeys.

J'ai avancé et j'ai pu trouver ceci

Excel.Application.VBE.CommandBars.FindControl(ID:=578).Execute
Ca lance une compilation, et ça ça marche, mais...
...après je voudrais (évidement) récupérer l'erreur de compil et,
théoriquement, faire un Ctrl+C sur une boite de dialogue copie le texte
de cette dernière dans le presse papier, sauf que dans le cas ci
dessous, msgbox txt affiche l'ancien contenu du PP et que si on colle
manuellement une fois le prog terminé ben y'a le nouveau contenu

Sub test()
select
End Sub

Sub RecupErrCompil()
' cocher "Microsoft Forms 2.0 Object Library"
Dim PP As New MSForms.DataObject, Txt As String
PP.GetFromClipboard
SendKeys "^c~"
Excel.Application.VBE.CommandBars.FindControl(ID:=578).Execute
Txt = PP.GetText()
MsgBox Txt
End Sub

Est-ce que qq'un aurait une idée pour récupérer l'erreur qui se serait
affiché ?

Encore merci de prendre le temps de vous casser la tête sur mes
questions "étranges". ;-)