Discussion :

[Corlo]

J’ai un problème lors d’un copier-coller entre 2 classeurs en VBA.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
'on copie la zone qui nous intéresse sur la fiche sauvegardée
            Windows("Nom.xlsm").Activate
            Sheets("SaveDFT").Select
            Sheets("SaveDFT").Range("A1", "F254").Copy
 
            'et on la colle sur le logiciel de calcul
            Windows("Test.xlsm").Activate
            Sheets("DFT").Select
            'Sheets("DFT").Range("A1:F254").Activate
            ActiveSheet.Unprotect
            ActiveSheet.Paste
            ActiveSheet.Protect

Lorsque j’exécute ma macro, j’ai une erreur sur la ligne ActiveSheetPaste (l’avant dernière ligne). Il me met : « La méthode Paste de la classe WorkSheet a échoué ». J’ai testé plusieurs changements mais aucun ne marche.
Aidez-moi svp à comprendre mon erreur.
Merci d’avance

[illight]

Essaye ça :

Code :

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

1
2
3
4
5
6
7
8
9
'on copie la zone qui nous intéresse sur la fiche sauvegardée  Windows("Nom.xlsm").Activate  Sheets("SaveDFT").Select  Sheets("SaveDFT").Range("A1:F254").Copy  
 'et on la colle sur le logiciel de calcul  
Windows("Test.xlsm").Activate  
Sheets("DFT").Select  
'Sheets("DFT").Range("A1:F254").Activate  
ActiveSheet.Unprotect  
range("A1").select
ActiveSheet.Paste  
ActiveSheet.Protect

[Corlo]

Ton code me donne la même erreur. J'avais déjà testé en donnant une cellule active pour le collage mais c'est pareille.

Par contre j'ai modifié mon code depuis et là je trouve une erreur. A la place de coller la sélection dans Test.xlsm, Excel m'ouvre un classeur vide et colle la sélection dans ce classeur.

Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
            'on copie la zone qui nous intéresse sur la fiche sauvegardée
            Windows("Nom.xlsm").Activate
            Sheets("SaveDFT").Select
            'Sheets("SaveDFT").Range("A1", "F254").Copy
            Sheets("SaveDFT").Copy
 
            'et on la colle sur le logiciel de calcul
            Windows("TestTB1.xlsm").Activate
            Sheets("DonneesFicheTechnique").Select
            ActiveSheet.Unprotect
            ActiveSheet.Range("A1").Select
            ActiveSheet.Paste
            ActiveSheet.Protect

[illight]

C'est bizarre que ça marche pas, chez moi je l'ai utilisé plein de foiset ça marchais bien


Pour le deuxième truc, je pense que le souci vient du fait que tu copie pas une cellule mais une feuille, c'est onrmal que ça te fasse une erreur

[Corlo]

J'ai toujours le même problème. Lorsque je lance ma macro, il va me dire que que l'activesheet lorsque je fais mon paste est protégé. Et si je rajoute activesheet.unprotect et activesheet.protect, il me dit que "La méthode Paste de la classe WorkSheet a échoué "

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
            Windows(nom).Activate
            Sheets("SaveDFT").Select
            Range("C2:C11").Select
            Selection.Copy
 
            Windows("Test.xlsm").Activate
            Sheets("DonneesFicheTechnique").Select
            Range("C2:C11").Select
            ActiveSheet.Paste
 
 
            Windows(nom).Activate
            Sheets("SaveDFT").Select
            Range("C14:F15").Select
            Application.CutCopyMode = False
            Selection.Copy
 
            Windows("Test.xlsm").Activate
            Sheets("DonneesFicheTechnique").Select
            Range("C14:F15").Select
            ActiveSheet.Paste
 
            Windows(nom).Activate
            Sheets("SaveDFT").Select
            Range("C17:C256").Select
            Application.CutCopyMode = False
            Selection.Copy
 
            Windows("Test.xlsm").Activate
            Sheets("DonneesFicheTechnique").Select
            Range("C17:C256").Select
            ActiveSheet.Paste

Est ce que celà pourrait venir des différences entre les classeurs? En effet, j'ai ai un qui s'appelle nom (initialisé plus haut dans code à X.xlsx et l'autre c'est Test.xlsm)

[Corlo]

J'ai trouvé mon erreur.
En fait il faut faire le .Unprotected en haut du code et non pas au milieu. De même pour le .protect.
Merci tout de même illight pour ton aide.