Discussion :

[Cath_Paradis]

Bonjour,


J'ai un fichier dans lequel je copie une plage donnée, et la colle dans un autre classeur.
J'obtiens ce message d'erreur dans un fichier Excel durant l'exécution de la macro: «Erreur d'exécution 1004: La méthode Paste de la classe Worksheet a échoué» à la ligne «ActiveSheet.Paste».
Cette macro est utilisée depuis plus d'un an sans problème et le message a commencé à apparaitre après avoir modifié le titre du fichier (de 2017_2018 à 2018_2019).
J'ai fait plusieurs tests mais en vain.
Le problème semble provenir du presse-papier qui ne copie par toujours les données depuis le mois de février.

Points à savoir
- Oui, j'ai des cellules fusionnées cependant la feuille d'origine et celle de destination sont identiques en tout point.
- Ça fonctionnait par le passé sans problème.
- Ça fonctionne manuellement.

Je joins une image de mon code.

Merci à l'avance


Catherine

[Menhir]

Commence par supprimer le DisplayAlert = False qui pourrait masquer des informations utiles au débugage.
Ensuite, juste avant la ligne qui plante, ajoute :

Code :

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

1
2
Debug.Print ActiveWorkbook.Name
Debug.Print ActiveSheet.Name

Et regarde dans la fenêtre d'exécution ce qui s'affiche pour vérifier ce qui est actif à ce moment-là.

Je joins une image de mon code.

C'est peu pratique vu que ça empêche les copier/coller.
Il est préférable de faire une copie texte du code, encadré de balises CODE (l'icone #).

[Cath_Paradis]

Bonjour Menhir

Merci pour la réponse.

Voici mon code.

Code :

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

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub Cmd_Copier()
 
    'Déclaration des variables
    Dim FormulaireTMIR As Worksheet
 
    'Initialisation des variables
    Set FormulaireTMIR = Sheets("FormulaireTMIR")
 
 
    Application.ScreenUpdating = False
 
 
    Workbooks.Open ("P:\NouveauCommun\19_ContactClient\E_TMIR\03_SuiviClients\SuiviTMIR_2017_2018.xlsm")
        ThisWorkbook.Activate
 
 
    Windows("SuiviTMIR_2017_2018.xlsm").Activate
    Sheets("Suivi_TMIR").Visible = True
    Sheets("Suivi_TMIR").Select
    ActiveSheet.Unprotect Password:="SAC"
    FormulaireTMIR.Activate
    FormulaireTMIR.Range("A6:M56").Select
    Selection.Copy
    'Application.DisplayAlerts = False
    Windows("SuiviTMIR_2017_2018.xlsm").Activate
    Range("A6").Select
Debug.Print ActiveWorkbook.Name
Debug.Print ActiveSheet.Name
    ActiveSheet.Paste
    ActiveSheet.Protect Password:="SAC"
 
    Application.Run "SuiviTMIR_2017_2018.xlsm!Transfert"
 
 
    Sheets("Suivi_TMIR").Visible = False
 
    FormulaireTMIR.Activate
    ThisWorkbook.Close Savechanges:=False
    Application.ScreenUpdating = True
' Application.DisplayAlerts = True
 
End Sub

Debug.Print ActiveWorkbook.Name --> SuiviTMIR_2018_2019.xlsm
Debug.Print ActiveSheet.Name --> Suivi_TMIR

La ligne en erreur est la ActiveSheet.Paste.
C'est à ce moment que j'obtiens le message d'erreur

Erreur d'exécution 1004: La méthode Paste de la classe Worksheet a échoué

Ce que je ne comprends pas, c'est que le fichier fonctionnait sans erreur d'exécution auparavant.

[Menhir]

Je pense que c'est parce que ton Copy s'applique à une zone de cellule alors que tu essayes de coller un Worksheet.
Tout ce qui se trouve entre Unprotect et Protect peut se faire en une seule ligne.

Code :

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

FormulaireTMIR.Range("A6:M56").Copy Workbooks("SuiviTMIR_2017_2018.xlsm").Worksheets("Suivi_TMIR").Range("A6")

[Cath_Paradis]

Ça fonctionne parfaitement.

Merci beaucoup!