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
| Sub PrepaBo()
'Ouvre les fichiers Req du type souhaité et les met en forme
Public Lo As ListObject, WbBo1 As Workbook, WbBo2 As Workbook, WbBo3 As Workbook
Public Req1 As String, Req2 As String, Req3 As String 'Type de requête utilisée
Application.ScreenUpdating = False
if Contexte1 = true then Req1 = "FichierA.xlsx": Req2 = "FichierB.xlsx": Req3 = "FichierC.xlsx"
if Contexte2 = true then Req1 = "FichierD.xlsx": Req2 = "FichierE.xlsx": Req3 = "FichierF.xlsx"
if Contexte3 = true then Req1 = "FichierG.xlsx": Req2 = "FichierH.xlsx": Req3 = "FichierI.xlsx"
...
'1er traitement
Set WbBo1 = Workbooks.Open(ChemBo & Req1) 'Req1 cf.ConTxt()
DoEvents
Set Lo = .ListObjects.Add(xlSrcRange, .Range("$C$7").CurrentRegion, , xlYes)
With Lo
.Name = "TbBoSce1"
.TableStyle = "tablestylemedium5" 'sans mise en forme
End With
... suite du code
'2e traitement
Set WbBo2 = Workbooks.Open(ChemBo & Req2) 'Req2 cf.ConTxt()
DoEvents
Set Lo = .ListObjects.Add(xlSrcRange, .Range("$C$7").CurrentRegion, , xlYes)
With Lo
.Name = "TbBoSce2"
.TableStyle = "tablestylemedium5" 'sans mise en forme
End With
... suite du code
'3er traitement
Set WbBo3 = Workbooks.Open(ChemBo & Req3) 'Req3 cf.ConTxt()
DoEvents
Set Lo = .ListObjects.Add(xlSrcRange, .Range("$C$7").CurrentRegion, , xlYes)
With Lo
.Name = "TbBoSce3"
.TableStyle = "tablestylemedium5" 'sans mise en forme
End With
... suite du code |
Partager