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
| Public Sub exportform(fichiersource As String, destin As String)
Dim srcWB As Workbook
Dim destWb As Workbook
Const sStr As String = "C:\myFile.frm"
Const sStr2 As String = "C:\myFile.bas"
Set srcWB = Workbooks(fichiersource)
Set destWb = Workbooks(destin)
srcWB.VBProject.VBComponents("menuini").Export Filename:=sStr
destWb.VBProject.VBComponents.Import Filename:=sStr
Kill sStr
srcWB.VBProject.VBComponents("UF1saisie").Export Filename:=sStr
destWb.VBProject.VBComponents.Import Filename:=sStr
Kill sStr
srcWB.VBProject.VBComponents("UF2saisie").Export Filename:=sStr
destWb.VBProject.VBComponents.Import Filename:=sStr
Kill sStr
srcWB.VBProject.VBComponents("UF1saisieVal").Export Filename:=sStr
destWb.VBProject.VBComponents.Import Filename:=sStr
Kill sStr
srcWB.VBProject.VBComponents("Module2").Export Filename:=sStr2
destWb.VBProject.VBComponents.Import Filename:=sStr2
Kill sStr2
End Sub |
Partager