Bonjour ,
j'ai un problème sur mon activesheet.paste et je ne sais pas pourquoi ?
Sub reportpointhebdo()
Dim semaine$, fichier$, cls As Workbook, chemin$
' selection de la feuille de travail
With ThisWorkbook.Worksheets("Pointage")
.Unprotect "plac@18"
'Affectation des valeurs aux variables
semaine = .Cells(1, 4).Value
fichier = .Cells(1, 1).Value
'Retrait mode filtre
If .AutoFilterMode Then
.Cells.AutoFilter
End If
'Protection de la feuille
.Protect "plac@18", DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFormattingColumns:=True, AllowSorting:=True, AllowFiltering:=True
'Sélection des données à copier
.Range("OQ4:PZ189").Copy
End With
chemin ="MonChemin"
Set cls = Workbooks.Open(chemin)
With cls.Sheets("Base")
.Cells(1, 1).Value = semaine
.Cells(3, 1).Value = fichier
End With
cls.Activate
Worksheets(semaine).Activate
Range("A1:AJ186").Select
ActiveSheet.Paste
end sub
Merci :/