Discussion :

[hhoodb]

Bonjour,
J'ai une macro qui consiste à copier beaucoup de données d'une feuille à une autre et l'erreur 1004 sur méthode PasteSpecial se produit constamment. Lorsque j'active le déboggage lors de l'erreur, je fais un pas-à-pas et le tout fonctionne donc je peux poursuivre l'exécution de la macro. J'ai essayé plusieurs solution avec des posts existants, mais je n'arrive pas à régler ce problème. Si quelqu'un est en mesure de m'aider ce serait exceptionnel Merci beaucoup !

Mon code est assez long donc voici seulement une petite partie au début de celui-ci où l'erreur se produit en premier (dernière ligne).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub MaJ_Données()
 
Application.ScreenUpdating = False
 
ChDir Application.ActiveWorkbook.Path & "\Backup"
ActiveWorkbook.SaveCopyAs Filename:= _
Application.ActiveWorkbook.Path & "\Backup\Planification des activités_" & Date & ".xlsm"
 
 
'Copie des valeurs actuelles dans onglet: Copie
 
    Workbooks("Planification des activités.xlsm").Sheets("Base de données").Range("A:BH").Copy
    Workbooks("Planification des activités.xlsm").Sheets("Copie").Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

[hhoodb]

Le problème dans l'extrait fourni semble avoir été réglé à l'aide d'un redémarrage de l'ordinateur. L'erreur 1004 apparaissait aussi pour les fonctions workbooks("").sheets("").select, mais le tout fonctionne après avoir changé pour workbooks("").sheets("").activate.

En espérant que cela reste ainsi !