Macro fonctionne seulement 1 fois sur 2

Bonjour à tous !

J'ai un pb avec une macro : elle fonctionne uniquement 1 fois sur 2.

Voici le code :

Sub Macro()

    Range("A2:U5000").Select
    Selection.Copy
    Sheets("Feuil3").Select
    Range("A2").Select

    'collage Format + valeurs
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

    Range("A2:M500").Select
    Selection.Copy
    Sheets("Feuil4").Select

    ActiveSheet.Unprotect ("mdp") 'enleve la protection de la feuille 4

    Cells.Select
    Selection.EntireRow.Hidden = False
    Selection.EntireColumn.Hidden = False

    Range("A6").Select
    ActiveSheet.Paste

    ActiveSheet.Protect ("mdp") 'remet la protection de la feuille 4

End Sub     

La macro fonctionnait très bien avant que je ne protège la feuille mais depuis que je l'ai protégé elle bug donc une fois sur 2 juste à la fin à : "ActiveSheet.Paste" avec pour message d'erreur "Erreur d'exécution 1004, la méthode Paste de la classe Worsheet a échoué".

Avez-vous une solution à ce problème ?

Merci d'avance pour votre aide

Bonjour,

Une fois sur 2 ... c'est étrange ...

Tu peux tester la macro suivante :

Sub Copier() 
    With Sheets("Feuil3").Range("A2")
        ActiveSheet.Range("A2:U5000").Copy
        'collage Format + valeurs
        .PasteSpecial Paste:=xlPasteFormats
        .PasteSpecial Paste:=xlPasteValues
    End With

    With Sheets("Feuil4")
        .Unprotect ("mdp")  'enlève la protection de la feuille 4
        .Cells.EntireRow.Hidden = False
        .Cells.EntireColumn.Hidden = False
        ActiveSheet.Range("A2:M500").Copy Destination:=.Range("A6")
        .Protect ("mdp")    'remet la protection de la feuille 4
    End With
End Sub

En espérant que cela t'aide

Bonjour,

@ James007,

Le PasteSpecial xlPasteValuesAndNumberFormats n'existe pas sous Excel 2007?

Cdlt.

Bonjour James007,

Merci pour votre solution, ça répond parfaitement à mes attentes !!

Mich__45 a écrit :

Bonjour James007,

Merci pour votre solution, ça répond parfaitement à mes attentes !!

Super ... !!!

Content d'avoir pu t'aider ...

Merci pour tes remerciements ...ET pour avoir cliqué sur le ...

Edit : Salut Jean-Eric ... effectivement en l'an 007 ...il fallait deux instructions ...