Bonjour à tous, je vais encore vous demander votre aide pour une erreur que je ne comprend pas.
Voilà ma macro qui copie un module dans un nouveau classeur et un nouveau module créé.
Sub TransfertModule()
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module2").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
Wbk.VBProject.VBComponents.Add(1).Name = "Interdiction Copier Coller"
With Wbk.VBProject.VBComponents("Interdiction Copier Coller").CodeModule
.AddFromString S
End With
End Sub
Sauf que j'ai une erreur 1004 (Method "VBProject" of object "_Workbook" failed) avec la première ligne : With ThisWorkbook.VBProject.VBComponents("Module2").CodeModule
Pourtant dans les références j'ai ajouté "Microsoft Visual Basic for Application Extensibility"
Si quelqu'un pourrait m'aider ce serais très gentils.
Voilà ma macro qui copie un module dans un nouveau classeur et un nouveau module créé.
Sub TransfertModule()
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module2").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
Wbk.VBProject.VBComponents.Add(1).Name = "Interdiction Copier Coller"
With Wbk.VBProject.VBComponents("Interdiction Copier Coller").CodeModule
.AddFromString S
End With
End Sub
Sauf que j'ai une erreur 1004 (Method "VBProject" of object "_Workbook" failed) avec la première ligne : With ThisWorkbook.VBProject.VBComponents("Module2").CodeModule
Pourtant dans les références j'ai ajouté "Microsoft Visual Basic for Application Extensibility"
Si quelqu'un pourrait m'aider ce serais très gentils.
Dernière édition: