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 36 37 38 39 40 41 42 43 44 45 46 47 48 49
| Option Explicit
Sub ESSAI_MACRO_VCS_1()
'
' ESSAI_MACRO_VCS Macro
Dim NBLIN
Dim LIN
Dim COL
Dim FICH
Dim CPTE
Dim GRP
Dim SAG
Dim CIRCUIT
Dim CIRC
Dim DATE1
NBLIN = 53
LIN = 7
COL = ActiveCell.EntireColumn.Select
For CPTE = 1 To 53 Step 4
FICH = Application.ExecuteExcel4Macro("Get.Document(1)")
Application.ExecuteExcel4Macro "Set.name(""DATE1"",FICH&""!R""&LIN+CPTE-1&""C5"")"
Application.ExecuteExcel4Macro "set.name(""DATE2"",FICH&""!R""&LIN+CPTE-1+1&""C5"")"
Application.ExecuteExcel4Macro "set.name(""DATE3"",FICH&""!R""&LIN+CPTE-1+2&""C5"")"
Application.ExecuteExcel4Macro "set.name(""DATE4"",FICH&""!R""&LIN+CPTE-1+3&""C5"")"
Workbooks.Open "C:\VCS_1\EDITDIM.XLS"
'Application.ExecuteExcel4Macro "open(""C:\VCS_1\EDITDIM.XLS"")"
Application.ExecuteExcel4Macro "Formula(CELLULE(""contenu"",REFTEXTE(DATE1)),'C:\VCS_1\[EDITDIM.XLS]EDITDIM'!R2C2)"
Application.ExecuteExcel4Macro "Formula(CELLULE(""contenu"",REFTEXTE(DATE2)),'C:\VCS_1\[EDITDIM.XLS]EDITDIM'!R2C9)"
Application.ExecuteExcel4Macro "Formula(CELLULE(""contenu"",REFTEXTE(DATE3)),'C:\VCS_1\[EDITDIM.XLS]EDITDIM'!R23C2)"
Application.ExecuteExcel4Macro "Formula(CELLULE(""contenu"",REFTEXTE(DATE4)),'C:\VCS_1\[EDITDIM.XLS]EDITDIM'!R23C9)"
'ferme le fichier EDITDIM sans sauvegarde des modifs.
Workbooks("EDITDIM.XLS").Close savechanges:=False
Next
'
'
End Sub |