XL 2019 Erreur 1004 ActiveSheet.Paste

[bambi]

Bonjour à tous 🙂
J'ai une macro qui fonctionnait très bien jusqu'à maintenant
Mais qui me génère aujourd'hui une Erreur 1004 sur la fonction ActiveSheet.Paste

Après avoir transformé des données depuis un fichier, je copie les données Range("A1:H10")
et je les colle dans un autre classeur sur une feuille colonne B sur la 1ʳᵉ colonne vide

    'Selection du range
    Range("A1:H10").Copy


   'Ouvre le fichier TDB et colle le résultat à partir de la première case vide colonne B, feuille CDT
    Workbooks.Open Filename:="D:\Mon Dossier\Racine\TDB.xlsm"
    Sheets("CDT").Select
    Range("B" & Range("B65547").End(xlUp).Row + 1).Select
    ActiveSheet.Paste

Avez-vous des suggestions pour résoudre cette erreur ?
Merci 😉

 

[Robert]

Bonjour bambi, bonjour le forum,

Peut-être en remplaçant :

Sheets("CDT").Select
Range("B" & Range("B65547").End(xlUp).Row + 1).Select
ActiveSheet.Paste

par :

With Sheets("CDT")
    .Select
    .Range("B" & .Range("B65547").End(xlUp).Row + 1).Select
    ActiveSheet.Paste
End With

Mais pour plus de tranquillité j'aurais codé comme ça :

Sub Macro1()
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)

Set CS = ThisWorkbook 'définit la classeur source CS
Set OS = CS.Worksheets("Feuil1") 'définit l'onglet source OS (à adapter à ton cas)
Workbooks.Open Filename:="D:\Mon Dossier\Racine\TDB.xlsm" 'ouvre le classeur TDB.xlsm
Set CD = ActiveWorkbook 'définit la classeur destination
Set OD = CD.Worksheets("CDT") 'définit l'onglet destination OD
Set DEST = OD.Cells(Application.Rows.Count, "B").End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST
OS.Range("A1:H10").Copy DEST 'copie la plage A1:H10 de l'onglet source et la colle dans la cellule de destination DEST
End Sub

 

[job75]

Bonjour bambi, Robert;

Plutôt que la méthode Copy/Paste pourquoi ne pas utiliser la méthode plage.Copy cel ?

Pour la nième fois : les Select sont à proscrire en VBA !

A+

 

[bambi]

Merci à tous les deux d'avoir regardé mon sujet.

@Robert ta solution 1 donne le même résultat (erreur 1004)
Et la 2ᵉ est trop complexe à insérer dans ma macro complète

@job75 je sais pour les select, mais je n'y parviens pas toujours
(je ne suis pas suffisamment experte en vba pour les remplacer efficacement)
et je ne comprends pas ce que tu entends par plage.copy cel

 

[bambi]

J'ai trouvé le problème.
Il était dans le fichier de réception
J'avais un bout de code à l'ouverture qui manifestement effaçait le copier précédent.
Donc il n'y avait rien à copier.
Problème résolu.

Merci encore à vous deux d'avoir regardé. 👍
Bonne soirée 🙂

 

[job75]

et je ne comprends pas ce que tu entends par plage.copy cel

C'est pourtant la syntaxe archi classique pour copier une plage sur une cellule.

Prenez un fichier avec 2 feuilles Feuil1 et Feuil2 et exécutez la macro :

Sub Copier()
Dim plage As Range, cel As Range
Set plage = Sheets("Feuil1").[A1:E10]
Set cel = Sheets("Feuil2").[B2]
plage.Copy cel
End Sub

 

[bambi]

Merci de tes explications @job75