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
|
.
.
.
maLigne = Split( monFichier.ReadAll, vbcrlf)
For i = LBound(maLigne) to UBound(maLigne) Step 1
If strComp(left(maLigne(i), 6), "Stages") = 0 Then
objWorkbook2.Activesheet.Range("BN" & k + 3) = mid(maLigne(i + 1 ), 23)
objWorkbook2.Activesheet.Range("BO" & k + 3) = mid(maLigne(i + 2), 5)
objWorkbook2.Activesheet.Range("BP" & k + 3) = mid(maLigne(i + 3), 15)
objWorkbook2.Activesheet.Range("BQ" & k + 3) = mid(maLigne(i + 4), 15)
objWorkbook2.Activesheet.Range("BR" & k + 3) = mid(maLigne(i + 5), 8)
objWorkbook2.Activesheet.Range("BS" & k + 3) = mid(maLigne(i + 6), 11)
objWorkbook2.Activesheet.Range("BT" & k + 3) = mid(maLigne(i + 7), 9)
objWorkbook2.Activesheet.Range("BU" & k + 3) = mid(maLigne(i + 8), 6)
'-------------------------------------------------------
If instr(maLigne(i + 10), "Organisme / Entreprise") <> 0Then
objWorkbook2.Activesheet.Range("BV" & k + 3) = mid(maLigne(i + 10), 23)
objWorkbook2.Activesheet.Range("BW" & k + 3) = mid(maLigne(i + 11), 5)
objWorkbook2.Activesheet.Range("BX" & k + 3) = mid(maLigne(i + 12), 15)
objWorkbook2.Activesheet.Range("BY" & k + 3) = mid(maLigne(i + 13), 15)
objWorkbook2.Activesheet.Range("BZ" & k + 3) = mid(maLigne(i + 14), 8)
objWorkbook2.Activesheet.Range("CA" & k + 3) = mid(maLigne(i + 15), 11)
objWorkbook2.Activesheet.Range("CB" & k + 3) = mid(maLigne(i + 16), 9)
objWorkbook2.Activesheet.Range("CC" & k + 3) = mid(maLigne(i + 17), 6)
End If
If instr(maLigne(i + 19), "Organisme / Entreprise") <> 0Then
objWorkbook2.Activesheet.Range("CD" & k + 3) = mid(maLigne(i + 19), 23)
objWorkbook2.Activesheet.Range("CE" & k + 3) = mid(maLigne(i + 20), 5)
objWorkbook2.Activesheet.Range("CF" & k + 3) = mid(maLigne(i + 21), 15)
objWorkbook2.Activesheet.Range("CG" & k + 3) = mid(maLigne(i + 22), 15)
objWorkbook2.Activesheet.Range("CH" & k + 3) = mid(maLigne(i + 23), 8)
objWorkbook2.Activesheet.Range("CI" & k + 3) = mid(maLigne(i + 24), 11)
objWorkbook2.Activesheet.Range("CJ" & k + 3) = mid(maLigne(i + 25), 9)
objWorkbook2.Activesheet.Range("CK" & k + 3) = mid(maLigne(i + 26), 6)
End If
End If
.-----------------------------------------
.
. |
Partager