Bonjour Forum!
 
Je cherche présentement à faire une macro qui vient récupérer des valeurs dans une feuille excel et qui les copie dans un module du workbook.
 
 
J'ai exploré sur deux façons:
 
La première:
 
 
Code :
 
 
Range("A1:C8" ).Copy
 ActiveWorkbook.VBProject.VBComponents("Module4" ).Select
 CodeModule.Lines(22, 1).Paste
 
 
La deuxième:
 
 
Code :
 
 
Dim VBProj As VBIDE.VBProject
 Dim VBComp As VBIDE.VBComponent
 Dim CodeMod As VBIDE.CodeModule
 Dim LineNum As Long
 Const DQUOTE = """" ' one " character
 
    Set VBProj = ActiveWorkbook.VBProject
     Set VBComp = VBProj.VBComponents("Module4" )
     Set CodeMod = VBComp.CodeModule
         
        With CodeMod
          [I]Ici, je ne trouve pas comment sélectionner la ligne 22 de la procédure du module et de copier[/I]  
         End With
 End Sub
 
Pouvez-vous m'aider?