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
| With Worksheets(NomFeuille)
'coller le contenu copié dans la nouvelle feuille créé a` partir de la cellule A1
plage_JSem.Copy .Range("A1")
Select Case JSem(Cells(1, 6))
Case Is = "lundi"
Chemin = "C:\Users\\Desktop\semaine.xlsm" ' boucler sur toutes les feuilles du fichier
ThisWorkbook.Names.Add "plage_a_copier", _
RefersTo:="='" & Chemin & "Feuil1'!$A$1:$F$10"
With Sheets("Feuil1")
.[A1:F10] = "=plage_a_copier"
.[A1:F10].Copy
End With
.Range("A2").PasteSpecial xlPasteValues
Case Is = "dimanche"
MsgBox ("c'est dimanche")
End Select
End With |
Partager