Excemple de vbscript pour rechercher une IP dans une colonne et modifier le nom du site
Cette exemple permet de comparer une adresse IP en colonne 8 et modifier la valeur dans la colonne 33
|
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 |
Dim FichierExcel FichierExcel = "d:\temp\Inventory.xlsx" Dim IPSITE(999) IPSITE(0) = "192.168.0;Home" IPSITE(1) = "172.16.0;Datacenter" IPSITE(2) = "10.0.0;Lan" Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open (FichierExcel) DebutLIgne = 5 ColonneIP = 8 ColonneSite = 33 Do Until objExcel.Cells(DebutLIgne,1).Value = "" NomSite = "" If instr(objExcel.Cells(DebutLIgne, ColonneIP).Value,";") <> 0 Then Temp = split(objExcel.Cells(DebutLIgne, ColonneIP).Value,";") For i =0 To Ubound(Temp) Site = RechercheSite(Temp(i)) Next Else Site = RechercheSite(objExcel.Cells(DebutLIgne, ColonneIP).Value) End If wscript.Echo objExcel.Cells(DebutLIgne, ColonneIP).Value & "==> " & Site If Site <> "" Then objExcel.Cells(DebutLIgne, ColonneSite).Value = Site DebutLIgne = DebutLIgne + 1 Loop objExcel.Quit Function RechercheSite(IPentree) NomDuSite = "" For j= 0 To Ubound(IPSITE) If(IPSITE(j) <> "") Then Temp2 = Split(IPSITE(j),";") If Instr(IPentree, Temp2(0)) <> 0 Then NomDuSite = Temp2(1) End If End If Next RechercheSite = NomDuSite End Function |
Cet article n'a pas été revu depuis la publication.
Cet article a été créé par david le 5 décembre 2016.
Laisser un commentaire