Erreur de copie de plage

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 :/

Bonjour

sans fichier difficile de répondre

fais un arrêt de ta macro avant paste, et regarde si ta zone est toujours en pointillé (ma question est : est-ce que le copy est toujours disponible)

ensuite il peut y avoir d'autres causes ... cellules fusionnées, présence de valeurs etc.

essaie aussi avec

    Range("A1").Select
    ActiveSheet.Paste

J'étais sur excel 2010 on ma passé sur 2016.

et J'ai essayé sur deux fichiers vierge le copier/coller fonctionne bien.

A quoi cela peut être du? la plage que je colle contient que des formules.

bonjour

salut Steelson

VBA pose parfois des soucis lors de changements d'OS

mon avis : ne JAMAIS copier de données, ni de formules (au clavier ou en automatique avec une macro)

à quoi ça te sert ?

à te relire

amitiés à tous

Bonjour,

Je prends cette plage je la copie dans mes archives, et fait des stats avec.

pendant ce temps la page que j'ai copiée ce réinitialise pour que je puisse la réutiliser

Bien cordialement