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 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128
| Public Sub ImporterPGI2()
'OuvrirLeFichier2
Dim i As Long, j As Long, k As Long, dl As Long
Workbooks(classeurorigine).Activate
Worksheets(feuilleorigine).Select
Sheets.Add after:=Worksheets(Worksheets.Count)
feuille2classeur2 = ActiveSheet.Name
With Sheets(feuilleorigine)
dl = .Range("a" & Rows.Count).End(xlUp).Row
End With
With Sheets(nomfeuil)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Range("B:B").NumberFormat = "dd/mm/yyyy"
k = 1
For j = 1 To dl
If Mid((Workbooks(classeurorigine).Sheets(feuilleorigine).Cells(j, 1)), 1, 3) <> "***" Then
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 1).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 2).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 4, 8)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 3).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 12, 2)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 4).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 14, 17)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 5).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 31, 1)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 6).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 32, 17)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 7).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 49, 35)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 8).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 84, 35)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 9).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 119, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 10).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 122, 8)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 11).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 130, 1)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 12).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 131, 20)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 13).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 151, 1)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 14).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 152, 8)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 15).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 160, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 16).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 163, 10)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 17).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 173, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 18).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 176, 20)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 19).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 196, 20)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 20).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 216, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 21).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 219, 2)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 22).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 221, 2)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 23).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 223, 35)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 24).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 258, 8)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 25).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 266, 8)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 26).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 274, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 27).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 277, 17)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 28).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 294, 8)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 29).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 302, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 30).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 305, 20)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 31).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 325, 20)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 32).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 345, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 33).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 348, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 34).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 351, 35)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 35).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 386, 1)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 36).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 387, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 37).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 390, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 38).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 393, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 39).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 396, 17)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 40).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 413, 17)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 41).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 430, 17)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 42).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 447, 8)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 43).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 455, 8)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 44).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 463, 8)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 45).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 471, 35)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 46).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 506, 10)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 47).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 516, 17)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 48).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 533, 30)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 49).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 563, 30)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 50).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 593, 30)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 51).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 623, 30)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 52).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 653, 30)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 53).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 683, 30)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 54).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 713, 30)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 55).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 743, 30)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 56).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 773, 30)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 57).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 803, 30)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 58).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 833, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 59).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 836, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 60).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 839, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 61).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 842, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 62).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 845, 20)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 63).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 865, 20)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 64).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 885, 20)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 65).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 905, 20)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 66).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 925, 8)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 67).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 933, 1)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 68).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 934, 1)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 69).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 935, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 70).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 938, 20)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 71).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 958, 20)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 72).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 978, 20)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 73).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 998, 8)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 74).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1006, 8)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 75).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1014, 5)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 76).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1019, 1)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 77).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1020, 1)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 78).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1021, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 79).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1024, 17)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 80).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1041, 17)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 81).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1058, 17)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 82).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1075, 17)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 83).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1092, 35)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 84).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1127, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 85).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1130, 10)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 86).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1140, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 87).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1143, 17)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 88).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1160, 17)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 89).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1177, 1)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 90).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1178, 8)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 91).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1186, 8)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 92).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 11945, 8)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 93).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1202, 35)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 94).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1237, 1)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 95).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1238, 1)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 96).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1239, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 97).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1242, 8)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 98).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1250, 17)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 99).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1267, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 100).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1270, 8)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 101).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1278, 3)
Workbooks(classeurorigine).Sheets(feuille2classeur2).Cells(k, 102).Value = Mid((Sheets(feuilleorigine).Cells(j, 1)), 1281, 36)
k = k + 1
End If
Next
End With
Windows(classeur).Activate
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Call OuvrirLeFichier2
'Workbooks(classeur).Sheets(nomfeuil).Range("A1").Activate
Workbooks(classeur).Sheets(nomfeuil).Range("A1").Show
End Sub |
Partager