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
| Sub Test()
Dim wbm As Workbook 'pour tt le fichier
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim wsm1 As Worksheet
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim ws3 As Worksheet
Dim val1, val2 As Double
année = 2013
Set wbm = ThisWorkbook
Set wsm1 = wbm.Worksheets("Feuil1")
Application.ScreenUpdating = False ' permet de vider la memoire
fichier = Application.GetOpenFilename("Fichiers (*.xlsx),*.xlsx", , "Sélectionnez tous les fichiers", , True) ' ouvrir un fichier excel
If IsArray(fichier) Then
For cpt = LBound(fichier) To UBound(fichier)
Set nomfich = Application.Workbooks.Open(fichier(cpt))
nom = nomfich.Name
Select Case True
Case nom = "Classeur2.xlsx"
Set wb1 = Workbooks("Classeur2.xlsx")
End Select
Next cpt
End If
x = InputBox("Sélectionnez la première Semaine Sxx", "Choix de la Semaine")
xf = InputBox("Sélectionnez la dernière Semaine Sxx", "Choix de la Semaine")
s = Right(x, 2) ' recupere le resultat a gauche et prend les 2 caracteres ex S34 34
sf = Right(xf, 2)
s = s + 0
sf = sf + 0
For compteur = s To sf ' For <compteur>= départ
semaine = "S" & s
'MAJ Ressources
wbm.Activate
wsm1.Activate
Range("C4").Select
a = Range("C4").Address
b = Range(a).End(xlToRight).Address
Set MaPlage = wsm1.Range(a, b)
MaPlage.Select
Set c = MaPlage.Find(semaine, LookIn:=xlValues, LookAt:=xlWhole) ' find fonction recherche |
Partager