Faire écrire du code par le code

mécano41 · 24 Juillet 2011

Bonjour à tous,

Dans le livre de J. Walkenbach pour EXCEL 2003, j'avais trouvé cet exemple de code écrivant du code (ici pour ajouter une feuille et un bouton avec son code). Je ne sais pas s'il fonctionnait bien en XL2003 mais en XL2010, à la ligne :

Code:

With ActiveWorkbook.VBProject.VBComponents(NewSheet.Name).Codemodule

j'ai le message :

" Erreur d'exécution 1004 - L'accès par programme au Visual Basic n'est pas fiable"

Code:

Sub AddSheetAndButton()
Dim NewSheet As Worksheet
Dim NewButton As OLEObject

Set NewSheet = Sheets.Add
Set NewButton = NewSheet.OLEObjects.Add("Forms.CommandButton.1")
With NewButton
    .Left = 4
    .Top = 4
    .Width = 100
    .Height = 24
    .Object.Caption = "Retour à Feuil1"
End With

Code = "Sub CommandButton_Click()" & vbCrLf
Code = Code & "     On Error Resume Next" & vbCrLf
Code = Code & "     Sheets(""Feuil1"").Activate" & vbCrLf
Code = Code & "      If Err <> 0 Then " & vbCrLf
Code = Code & "      Msgbox ""Impossible d'activer Feuil1.""" & vbCrLf
Code = Code & "      End If " & vbCrLf
Code = Code & "      End Sub"

With ActiveWorkbook.VBProject.VBComponents(NewSheet.Name).Codemodule
    Nextline = .CountOfLines + 1
    .InsertLines Nextline, Code
End With
End Sub

Quelqu'un a-t-il une explication?

Merci d'avance

Cordialement

mécano41 · 27 Juillet 2011

Re : Faire écrire du code par le code

JNP à dit:
Re ,Tu veux dire : Pour Pierrot ...
A +

Oui, désolé : J'ai corrigé...

Le problème d'ouverture ne viendrait quand même pas du fait que je suis en 32 bits et toi en 64 bits ... ce serait le comble dans ce sens !

Cordialement

Pierrot93 · 27 Juillet 2011

Re : Faire écrire du code par le code

Re,

pas de problème à l'ouverture du fichier, quand je click sur le bouton et lorsque je modifie la formule..... le module est supprimé puis recréé... maintenant, le résultat attendu...

JNP · 27 Juillet 2011

Re : Faire écrire du code par le code

Re ,

mécano41 à dit:
Le problème d'ouverture ne viendrait quand même pas du fait que je suis en 32 bits et toi en 64 bits ... ce serait le comble dans ce sens !

Non, puisqu'exceptionnellement, je suis sur du 32 bits ...
J'essayerai de tester sur 64 ce soir ...
A +

mécano41 · 27 Juillet 2011

Re : Faire écrire du code par le code

Pierrot93 à dit:
Re,

pas de problème à l'ouverture du fichier, quand je click sur le bouton et lorsque je modifie la formule..... le module est supprimé puis recréé... maintenant, le résultat attendu...

Merci ... mais alors si ça fonctionne, je crains que cela soit encore plus difficile de trouver ce qui ne va pas chez moi ...

Cordialement

Pierrot93 · 27 Juillet 2011

Re : Faire écrire du code par le code

Re,

en fait je pense avoir trouvé le problème, lorsque tu veux renommer ton module, l'ancien bien que "remove" est encore présent dans la liste des composants et ne s'efface réellement qu'à la fin de la procédure... j'ai modifié le code de la sorte, semble fonctionner chez moi... sous 2003..;

Code:

Option Explicit
Sub AjoutModuleEtCode()
Dim NouvMod As Object
Dim Code As String
Dim LigneSuiv As Long
With ThisWorkbook.VBProject
    .VBComponents("ModFonction").Name = "monmodule"
    .VBComponents.Remove .VBComponents("monmodule")
    Set NouvMod = .VBComponents.Add(1)
    NouvMod.Name = "ModFonction"
End With
Code = "Function EcartEnergie(Energie as single, D as single, e as single)" & vbCrLf                                                                    ' Créé le code
Code = Code & "     EcartEnergie=" & Replace(Range("B2").Value, ",", ".") & vbCrLf
Code = Code & "End Function"
With NouvMod.Codemodule                                                                               ' et le met dans le module
    LigneSuiv = .CountOfLines + 1
    .InsertLines LigneSuiv, Code
End With
End Sub

enfin, si je ne me suis pas trompé...

mécano41 · 27 Juillet 2011

Re : Faire écrire du code par le code

Merci Pierrot, cela fonctionne parfaitement. En mettant des affichages de l'existence du nom à différents endroits, j'avais remarqué que celui-ci ne s'effaçait pas après effacement du module (j'aurais dû le dire dans ma demande! ) mais j'ai cherché pourquoi (sans trouver) et je n'ai pas pensé à renommer le module!

Encore merci.

Cordialement

JNP · 27 Juillet 2011

Re : Faire écrire du code par le code

Re ,

JNP à dit:
Non, puisqu'exceptionnellement, je suis sur du 32 bits ...
J'essayerai de tester sur 64 ce soir ...

Test sous 2010 64 (Seven 64), idem ...
Tout à l'heure, 2010 32 sous XP 32 ...
Je ne sais pas quoi te dire ...
Bonne soirée

mécano41 · 28 Juillet 2011

Re : Faire écrire du code par le code

Bonjour à tous,

Pour JNP :

Je remets le fichier entièrement refrappé avec mes petites mains (pas de copier/coller).
Peux-tu me dire si tu as toujours un problème à l'ouverture? Peux-tu également ouvrir celui joint au #3 du fil (fichier qui n'a rien à voir avec le sujet traité ici) :

https://www.excel-downloads.com/threads/equation-dune-droite-non-lineaire-deux-y-axes.167485/

et qui ne semble pas avoir créé de problème au destinataire.

Pour Pierrot (et les autres aussi!):

Le fichier joint fonctionne parfaitement avec tes modifs sauf que ... lorsque la création du module et mise en place du code sont faits, il reste dans le VBE, le curseur étant en fin de nouveau module. J'ai tout essayé (enfin, tout sauf la bonne solution!) ; quoi que l'on fasse après la création (activer, afficher...), il l'exécute et revient là... Une idée sur la question?

Merci d'avance

Cordialement

JNP · 28 Juillet 2011

Re : Faire écrire du code par le code

Re

mécano41 à dit:
Pour JNP :

Je remets le fichier entièrement refrappé avec mes petites mains (pas de copier/coller).
Peux-tu me dire si tu as toujours un problème à l'ouverture? Peux-tu également ouvrir celui joint au #3 du fil (fichier qui n'a rien à voir avec le sujet traité ici) :

https://www.excel-downloads.com/threads/equation-dune-droite-non-lineaire-deux-y-axes.167485/

et qui ne semble pas avoir créé de problème au destinataire.

Les 2 fichiers fonctionnent sous 2010 64 ...
Par contre, aucune idée pour les autres, sauf peut-être des passages d'xlsm en xls puis de nouveau xlsm, il me semble qu'il y a déjà eut des soucis à ce niveau-là (à cause de la modification du codage des modules...) ...
Bonne journée

Pierrot93 · 28 Juillet 2011

Re : Faire écrire du code par le code

Bonjour Mécano, JNP...

Après conversion en xls... il m'est impossible de sortir du ode de création... je n'avais pas ce souci hier avec le fichier xls que tu avais déposé et que j'avais modifié.... malheureusement, je n'ais plus e fichier... Mais comme le dit JNP, les différentes conversions peuvent être source d'horreur...

bonne journée
@+

mécano41 · 28 Juillet 2011

Re : Faire écrire du code par le code

Pierrot93 à dit:
Bonjour Mécano, JNP...

Après conversion en xls... il m'est impossible de sortir du ode de création... je n'avais pas ce souci hier avec le fichier xls que tu avais déposé et que j'avais modifié.... malheureusement, je n'ais plus e fichier... Mais comme le dit JNP, les différentes conversions peuvent être source d'horreur...

bonne journée
@+

Une dernière tentative en t'envoyant un fichier enregistré en XLS de mon côté (peut-être mieux qu'une conversion à l'arrivée?). Il fonctionne chez moi, avec le même défaut que cité plus haut. Je peux sortir du mode création mais manuellement ; par le code, il y revient

Merci à tous

Cordialement

Pierrot93 · 28 Juillet 2011

Re : Faire écrire du code par le code

Re,
ce dernier fichier semble fonctionner chez moi sous 2003...

mécano41 · 28 Juillet 2011

Re : Faire écrire du code par le code

Pierrot93 à dit:
Re,
ce dernier fichier semble fonctionner chez moi sous 2003...

J'ai essayé sous XL2002 XP : effectivement, cela fonctionne normalement, sans ce défaut... je n'y comprends rien...

Merci à tous

Cordialement

mécano41 · 28 Juillet 2011

Re : Faire écrire du code par le code

Bonsoir,

Finalement j'ai trouvé comment faire pour changer le code sans effacer le module. Cela ne me dit pas pourquoi il y a ce problème si l'on efface le code, mais ça fonctionne...

Code:

Sub AjoutModuleEtCode()
Dim Code As String
Dim LigneSuiv As Long
Code = "Function EcartEnergie(Energie as single, D as single, e as single) " & vbCrLf
Code = Code & "     EcartEnergie=" & Replace(Range("B2").Value, ",", ".") & vbCrLf
Code = Code & "End Function"
With ThisWorkbook.VBProject.VBComponents("ModFonction").CodeModule
    .DeleteLines 1, .CountOfLines
    LigneSuiv = .CountOfLines + 1
    .InsertLines LigneSuiv, Code
End With
End Sub

A noter que dans l'aide, la forme .DeleteLines (1, .CountOfLines) est donnée alors qu'il ne faut pas de parenthèses ....

(j'aurais dû m'en douter puisque j'avais .InsertLines...sans parenthèses dans un code récupéré mais je n'ai pas fait le rapprochement pas bien de vieillir!)

Merci pour tout.

Cordialement

mécano41 · 28 Juillet 2011

Re : Faire écrire du code par le code

carcharodon-carcharias à dit:
bonsoir

non mais le pire , c'est que sa commence à la naissance

Alors, vu l'état, j'ai dû naître déjà vieux!

Cordialement

Faire écrire du code par le code

mécano41

XLDnaute Accro

mécano41

XLDnaute Accro

Pierrot93

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

mécano41

XLDnaute Accro

Pierrot93

XLDnaute Barbatruc

mécano41

XLDnaute Accro

JNP

XLDnaute Barbatruc

mécano41

XLDnaute Accro

Pièces jointes

JNP

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

mécano41

XLDnaute Accro

Pièces jointes

Pierrot93

XLDnaute Barbatruc

mécano41

XLDnaute Accro

mécano41

XLDnaute Accro

mécano41

XLDnaute Accro

Discussions similaires