Microsoft 365 La méthode PasteSpecial de la classe Range a échoué

[comardud]

Bonjour à tous,
j'ai ce message d'erreur qui apparait régulièrement et je n'arrive pas à comprendre pourquoi.
Je fais un copier / coller d'un classeur à un autre via une macro que voici:

Sheets("Feuil2").Select
Range("A2:L2").Select
Selection.Copy
Workbooks.Open Filename:= _
"R:\Inter Services\Logistique\RECEPTION\zone de départ logistique.xlsm"
Sheets("SUIVI DEPART").Select
'ActiveWindow.SmallScroll Down:=12

Cells(65535, 1).End(xlUp)(2).Select
ActiveCell.PasteSpecial Paste:=xlPasteValues

':=False, Transpose:=False
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close

Windows("Déclaration zone départ logistique.xlsm").Activate
Sheets("Déclarat°").Select
Range("C6").Select

J'ai essayé différentes variantes:

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
':=False, Transpose:=False

Le problème n'est pas systématique, parfois ça fonctionne, parfois ça plante, je ne comprends pas.

Merci de votre aide

 

[comardud]

Je viens d'essayer une autre variante mais j'obtiens toujours le même message d'erreur

With Sheets("SUIVI DEPART")
DerLigne = .Range("a65536").End(xlUp).Row + 1
.Range("a" & DerLigne).PasteSpecial (xlPasteValues)
End With

ça devient le casse tête Chinois pour moi

 

[Staple1600]

Bonsoir le fil

comardud
Pour sortir du casse-tête
(test OK sur mon PC)

Sub Copier_Ma_Feuille()
Dim Chemin As String
Dim SourceCopie As Range, wb As Workbook, DestinationCopie As Range
Chemin = ThisWorkbook.Path & "\" ' à adapter
Application.ScreenUpdating = False
Set SourceCopie = ThisWorkbook.Sheets("Feuil2").Range("A2:L2")
SourceCopie.Copy
Set wb = Workbooks.Open(Chemin & "Test.xlsm") ' adapter le nom du classeur
wb.Sheets("SUIVI DEPART").Cells(Rows.Count, 1).End(3)(2).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
wb.Close True
End Sub

 

[comardud]

Bonjour à tous et bonjour Staple1600

merci beaucoup pour ton aide.
Je me mélange les pinceaux avec les chemins de mes fichiers, ou est mon erreur ?

Merci

 

[comardud]

Non c'est ok j'ai compris mon erreur


EDIT: ARGGGG!! "La méthode PasteSpecial de la classe Range a échoué"

Je pense que le problème est ailleurs, je continue de chercher

 

[Staple1600]

Bonsoir le fil

comardud
Adapter voulait ici dire
Chemin="R:\Inter Service\Logistique\RECEPTION\"
ou ne rien changer si le classeur (contenant la macro) était déjà dans ce dossier
Chemin = ThisWorkbook.Path & "\"

 

[comardud]

Merci Staple, oui j'avais corriger mon erreur.

 

[Staple1600]

Re

Donc tout fonctionne désormais?

 

[comardud]

Bonjour,
désolé pour la réponse tardive.
En fait c'est résolu oui et non
j'ai fais le test depuis 3 PC différents (c'est un fichier sur un réseau d'entreprise), sur 2 pc ça fonctionne parfaitement et sur un 3ème j'ai le message d'erreur de la méthode paste spécial qui a échoué.

c'est assez bizarre!