Discussion :

[sharox]

ha moi je l'ai mis comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub import_export()
 
Dim Ligne_Debut As Long
Dim Nombre_Ligne As Long
Dim stCode As String
Dim vbNew As Workbook
Dim objF As Object
 
Ligne_Debut = 1
Nombre_Ligne = ThisWorkbook.VBProject.VBComponents("Module_exp").CodeModule.CountOfLines
Set vbNew = Workbooks("class1.xls")
Set objF = ThisWorkbook.VBProject.VBComponents("Module_exp")
stCode = objF.CodeModule.Lines(Ligne_Debut, Nombre_Ligne)
Set objF = vbNew.VBProject.VBComponents("Module_imp")objF.CodeModule.DeleteLines Ligne_Debut, objF.CodeModule.CountOfLines
objF.CodeModule.addfromstring (stCode)
End Sub

[Libesa]

Oui tu as raison, j'ai fumé sur ce coup là, j'ai confondu tes deux modules.

[sharox]

espèce de drogué va ^^

En tout cas je te remercie, et je vais manger
car ca creuse quand même !!

A cette aprèm si j'ai d'autre soucis ^^