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

comardud · 17 Octobre 2019

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

Staple1600 · 18 Octobre 2019

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 · 17 Octobre 2019

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 · 17 Octobre 2019

Bonsoir le fil

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

VB:

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 · 18 Octobre 2019

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 · 18 Octobre 2019

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 · 18 Octobre 2019

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 · 18 Octobre 2019

Merci Staple, oui j'avais corriger mon erreur.

Staple1600 · 18 Octobre 2019

Re

Donc tout fonctionne désormais?

comardud · 24 Octobre 2019

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!

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

comardud

XLDnaute Nouveau

Staple1600

comardud

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

comardud

XLDnaute Nouveau

comardud

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

comardud

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

comardud

XLDnaute Nouveau

Discussions similaires