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

Toujours une Erreur 1004

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
J

jjjerome

XLDnaute Occasionnel
Bonsoir la forum,
J'ai vu beaucoup de post parler de ce cas, mais je ne parviens toujours pas a régler mon problème... Pouvez vous m'aider , j'ai une 'erreur 1004' : 'la methode copy de la classe range a echouée'
Pi, J'ai enlevé les SELECT qui pose visiblement problème, mais j'ai toujours la même erreur.

Code: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Sheets("Liens_CR").Visible = True
Sheets("Liens_CR").Activate
    Sheets("Liens_CR").Rows("15:15").Copy destination:=Sheets("Liens_CR").Rows("10:10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
Sheets("Liens_CR").Visible = False
Sheets("Page garde").Activate

End Sub
 
Trier par date Trier par votes
Re : Toujours une Erreur 1004

Bonsoir,

Pourquoi tant de code ?

Ceci devrait suffire

Code: 
Sheets("Liens_CR").Rows("15:15").Copy
Sheets("Liens_CR").Rows("10:10").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets("Page garde").Activate 'Facultatif si deja sur la page ...

ou encore :
Code: 
Sheets("Liens_CR").Rows("10:10").Value = Sheets("Liens_CR").Rows("15:15").Value
Sheets("Page garde").Activate 'Facultatif si deja sur la page ...

Il n'y a pas de necessité d'afficher et d'activer la feuille Liens_CR

Le Select était également de trop
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Toujours une Erreur 1004

Bonjour Gareth,
Plus loin dans mon code, j'ai également besoin de copier une ligne vers un autre classeur, mais à la suite de la dernière ligne, j'utilise la fonction 'Range("B65536").End(xlUp).Row + 1' mais je n'ai pas réussi à trouver le code pour copier la ligne compléte, alors je répète 20 fois le code ci-dessous (pour chaque cellule), j'imagine qu'il y a beaucoup plus simple... Pourrais-tu également m'aider ?



 
Vote positif 0 Vote négatif
Re : Toujours une Erreur 1004

re,
Petite précision, je ne veux copier que les valeurs
.
Workbooks(NomFichierSource).Sheets("Liens_CR").Range("A15:CC15").Copy Destination:=Workbooks(NomFichier).Sheets("REALISE").Cells(dl, 1)
Cliquez pour agrandir...
Me recopie bien la ligne, mais je voudrais uniquement les valeurs de la ligne



Workbooks(NomFichier).Sheets("REALISE").Cells(dl, 1).Value = Workbooks(NomFichierSource).Sheets("Liens_CR").Rows("15:15").Value
Cliquez pour agrandir...

Ne me copie que la cellule A
 
Vote positif 0 Vote négatif
Re : Toujours une Erreur 1004

bonjour jjjerome
gareth t'a donné la solution poste #3
en voilà une autre
dl = Workbooks(NomFichier).Sheets("REALISE").Range("B65536").End(xlUp).Row + 1
Workbooks(NomFichier).Sheets("REALISE ").Range("A" & dl & ":CC" & dl).Value=(NomFichierSource).Sheets("Liens_CR").Range("A15:CC15").Value
 
Vote positif 0 Vote négatif
Re : Toujours une Erreur 1004

Bonjour Bebere et merci,

J'utilise finalement ce code :

dl = Workbooks(NomFichier).Sheets("REALISE").Range("B65536").End(xlUp).Row + 1
Workbooks(NomFichier).Sheets("REALISE").Rows(dl).Value = Workbooks(NomFichierSource).Sheets("Liens_CR").Rows("15:15").Value
 
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

J
  • Résolu(e)
Microsoft 365 Collage valeur Erreur d'exécution 1004
Réponses
7
Affichages
216
Magic_Doctor
U
  • Question Question
Autres Quelques fois ça bug feuilles cachées
Réponses
2
Affichages
253
cathodique
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
197
sylvanu
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
456
juju91
J
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
791
ph.vanne
F
Fdaga
Réponses
0
Affichages
191
Fdaga
F
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
761
Nounours4173
N
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
547
sylvanu
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
538
cdric78
C
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
802
robpellan52
R
M
  • Question Question
Microsoft 365 Erreur de format
Réponses
5
Affichages
597
Marvin57
M
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
B
  • Question Question
XL 2016 Interférence entre une boucle et un copie de feuille
Réponses
4
Affichages
661
Oneida
  • 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
F
  • Question Question
XL 2019 erreur 1004
Réponses
8
Affichages
716
florian50470
F
  • Résolu(e)
XL 2021 Ecrire dans une une autre feuille
Réponses
3
Affichages
740
Usine à gaz
V
  • Résolu(e)
XL 2016 Exportation au format PDF à l'aide d'une macro : erreur 1004 'Document non enregistré'
Réponses
14
Affichages
1 K
Phil69970
D
  • Question Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
1 K
crocrocro
C
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
F
  • Résolu(e)
XL 2021 fermeture du classeur après apple d'un userform d'un autre classeur ouvert
Réponses
2
Affichages
459
farid
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…