Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

comardud

XLDnaute Nouveau
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
 
Trier par date Trier par votes
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 🙂
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Dernière édition:
Vote positif 0 Vote négatif
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 & "\"
 
Vote positif 0 Vote négatif
Solution
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!
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

M
  • Question Question
XL 2019 La méthode select de la classe range a échoué
Réponses
4
Affichages
214
job75
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
604
ph.vanne
A
  • Question Question
XL 2019 la méthode AutoFilter de la classe range a échoué
Réponses
5
Affichages
403
Phil69970
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
694
robpellan52
R
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
J
  • Résolu(e)
XL 2013 méthode pastespecial de la classe range a échoué
Réponses
3
Affichages
1 K
Joujita31
J
A
  • Résolu(e)
XL 2013 Code VBA incompatible avec version Excel
Réponses
2
Affichages
692
Averell1976
A
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
943
Oneida
M
  • Question Question
Excel VBA — ActiveSheet.ShowAllData, La 1004 : “La méthode ShowAllData de la classe Worksheet a échoué
Réponses
3
Affichages
2 K
gbinforme
G
T
  • Résolu(e)
XL 2019 Méthode PasteSpecial de la classe range à échoué
2
Réponses
16
Affichages
2 K
thespeedy20
T
F
  • Question Question
Microsoft 365 Optimisation code VBA - Succession de copier coller
Réponses
8
Affichages
2 K
flomag
F
D
  • Question Question
XL 2010 La méthode Delete de la classe Range a échoué
Réponses
3
Affichages
1 K
Dranreb
M
  • Question Question
Microsoft 365 Formulaire automatique - vba - erreur 1004
Réponses
11
Affichages
2 K
mymymymymymy
M
L
  • Question Question
Microsoft 365 La méthode Delete de la classe range a échoué (Déboguer VBA)
Réponses
6
Affichages
2 K
lukes67
L
R
  • Question Question
XL 2019 Macro VBA autofill à partir de la première cellule vide du tableauRépondre
Réponses
2
Affichages
1 K
Hasco
A
  • Question Question
Microsoft 365 VBA: PasteSpecial refuse de fonctionner
2
Réponses
20
Affichages
3 K
Dranreb
  • Résolu(e)
XL 2019 La méthode select de la classe range a échoué
Réponses
6
Affichages
4 K
bambi
C
  • Question Question
Microsoft 365 Erreur Automation : L'objet invoqué s'est déconnecté de ses clients
Réponses
9
Affichages
2 K
fanch55
  • Résolu(e)
XL 2013 Copier par VBA la ligne filtrée dans le bas du tableau
Réponses
5
Affichages
2 K
LEIYAZ
F
  • Question Question
XL 2019 Ajout de condition dans une VBA
Réponses
1
Affichages
1 K
CHALET53
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…