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
26
27
28
29
30
31
32
33
34
35
| OPTION BASE 1
Sub Mac1()
'
' Mac1 Macro
' Macro recorded 8/12/2004 by PCXX
'
' CREATION DES FICHES
Dim nom_fich As String, nom_serv As String, x as integer
Dim initiales As String, tbform as variant, tbtableau as variant
' pour faire le loop, effacer le ' devant DO et en fin de macro
' Do
nom_fich = ActiveCell.Offset(0, 1).Value
nom_serv = ActiveCell.Offset(0, 7).Value
Workbooks.Open Filename:= "J:\HR.DEP "
Worksheets("Formulaire ").Protect UserInterfaceonly:=True, Password:="fred"
Worksheets("Annexe ").Protect UserInterfaceonly:=True, Password:="fred"
Workbooks("form.xls ").Unprotect Password:="fred"
With Workbooks("form.xls").sheets(“nomdetafeuille”)
Tbform = array(.Range("D4”).address, .Range("D6”).address, .Range("D8").address, _
.Range("I4”).address, .Range("I6”).address, .Range("I8”).address, .Range("I10”).address)
End with
With Workbooks("Tableau.xls").sheets(“nomdetafeuille”)
Tbtableau = array(.Range("A3”).address, .Range("B3”).address, .Range("C3”).address, _
.Range("D3”).address, .Range("E3”).address, .Range("H3”).address, .Range("G3”).address)
End with
For x = 1 to ubound(tbform)
With Workbooks("form.xls").sheets(“nomdetafeuille”)
.Range(Tbform(x)) = Workbook("Tableau.xls").sheets(“nomdetafeuille”).range(tbtableau(x))
end with
Next x
Sheets("Annexe").Unprotect Password:="fred"
…… |
