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 |
