bonjour,
hier j ai demandé comment crée une macro sous visual bsaic 5 ce a quoi on ma repondu, mais aujourd hui vu que j ai pu testé il me déclare une erreur, voici mon code
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Sub creationModule()
'Nécéssite d'activer la référence
'"Visual basic For Application Extensibility 5.3"
'
Dim Wb As Workbooks
Dim VBComp As VBComponent
Dim X As Integer
'Définit le classeur cible
Set Wb = Workbooks(Stock_var.chemin_nom.Text + "\" + l_Jonction_affaire.nomAffaire + ".xls")
'Ajoute un module standard dans le classeur
'.VBProject.VBComponents
Set VBComp = Wb.Add(1)
'Renomme le module
VBComp.name = "NouveauModule"
'Ajoute une macro dans le module
With VBComp.CodeModule
X = .CountOfLines
.InsertLines X + 1, "Sub laMacro()"
.InsertLines X + 2, "Range(""Z1"").Value = ""Coucou"""
.InsertLines X + 3, "End Sub"
End With
End Sub |
il me declare indice en dehors de la page pour cette ligne
Set Wb = Workbooks(Stock_var.chemin_nom.Text + "\" + l_Jonction_affaire.nomAffaire + ".xls")
merci de me pouvoir me renseigné sur la raison de cette erreur,
ps: pour la consistance de la macro ne pas en tenir compte, je l ai pas encore traité
bonne journée
Partager