macro d'export de module de frederic sigonneau et probleme!!
Le
rick
bonjour
je ne comprend pas pourquoi cette macro de frederic me genre le message:
""l'acces par programme en visual asic n'est pas fiable"
Sub AddCode()
'fs
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("Feuil1").CodeModule
.AddFromString S
End With
End Sub
merci d'avance
je ne comprend pas pourquoi cette macro de frederic me genre le message:
""l'acces par programme en visual asic n'est pas fiable"
Sub AddCode()
'fs
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("Feuil1").CodeModule
.AddFromString S
End With
End Sub
merci d'avance
Poser une question
à partir de la barre des menus de la feuille de calcul / outils / Macro / Sécurité / Onglet : Éditeurs approuvés , et dans le bas de
la fenêtre, coche les deux checkbox.
Salutations!
"rick" bonjour
je ne comprend pas pourquoi cette macro de frederic me genre le message:
""l'acces par programme en visual asic n'est pas fiable"
Sub AddCode()
'fs
Dim S As String, Wbk As Workbook
With ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
S = .Lines(1, .CountOfLines)
End With
Set Wbk = Workbooks.Add
With Wbk.VBProject.VBComponents("Feuil1").CodeModule
.AddFromString S
End With
End Sub
merci d'avance
alors que je souhaite copié dans l'autre classeur dans un module et pas dans
l'evenement de la feuille.
Comment faire?
Et si je souhaite aussi copier un userform, comment faire?
merci d'avance
Voici la procédure de Frédéric Sigonneau adaptée à tes besoins concernant la copie du module Standard
'-----------------------------------
Sub AddCode()
Dim S As String, Wbk As Workbook, M As Object
'Copie dans une variable S, tout le code
'du module 1
With ThisWorkbook.VBProject.VBComponents("Module1").codemodule
S = .Lines(1, .CountOfLines)
End With
'Renseigne où le classeur où le code sera copié
Set Wbk = Workbooks("NomClasseurDestination.xls")
With Wbk.VBProject.VBComponents
'Ajoute un module standard
Set M = .Add(1)
With M.codemodule
'Copie le contenu de la variable S
'dans le nouveau module
.AddFromString S
End With
End With
End Sub
'-----------------------------------
Salutations!
"rick" ok, d'acord, mais le probleme mon module de la source est copié sur la feuil1.
alors que je souhaite copié dans l'autre classeur dans un module et pas dans
l'evenement de la feuille.
Comment faire?
Et si je souhaite aussi copier un userform, comment faire?
merci d'avance
MIch Denis t' a répondu sur la méthode globale pour eviter d'être
importuné par le message dont tu parlais. POur copier un UF , un module
ou le module THisworkbook reporte toi aux procs existantes sur le site
de Frédéric Sigonneau. Y'a tout ce qu'il te faut.
A+
merci