XL 2019 Méthode PasteSpecial de la classe range à échoué

thespeedy20

XLDnaute Occasionnel
Bonjour à tous,

Lors d'un transfert de lignes d'un fichier vers un autre fichier j'ai une erreur de ce type , tous ce passe bien si dans le second fichier, je n'efface pas les données du tableau....

Merci pour votre aide

OLi


VB:
Sub testcopier()

'Fichier source
derlig = Workbooks("Convertion données pour registre_2023.xlsm").Worksheets("Feuil1").Cells(Rows.Count, 1).End(xlUp).Row
Workbooks("Convertion données pour registre_2023.xlsm").Worksheets("Feuil1").Range("A2:L" & derlig).Copy

'Fichier cible

derlig2 = Workbooks("Extraction registre 2022.xlsm").Worksheets("BD").Cells(Rows.Count, 1).End(xlUp).Row
Workbooks("Extraction registre 2022.xlsm").Worksheets("BD").Range([A2], Cells(derlig2, 13)).ClearContents
Workbooks("Extraction registre 2022.xlsm").Worksheets("BD").Range("Tableau1").Delete


Workbooks("Extraction registre 2022.xlsm").Worksheets("BD").Range("A2").End(xlDown).PasteSpecial Paste:=xlPasteAllUsingSourceTheme




End Sub
 
Solution
Bonjour

Test ok sur mon fichier de test
2 classeurs ouverts non enregistrés
1 tableau structuré sur la feuille 1 du classeur 2
des données à copier sur la feuille 1 du classeur 1
la macro est dans le classeur 1
VB:
Sub test_V_ok()
Dim F As Worksheet, r As Range
'la macro est dans le classeur 1
'Les données à copier sur le feuille 1
Set F = ThisWorkbook.Sheets(1)
Set r = F.Range(F.Cells(2, 1), F.Cells(Rows.Count, "L").End(3))
'le classeur 2 est ouvert dans Excel
'et il y un tableau structuré et un seul
'sur la feuille 1 du classeur 2
Application.ScreenUpdating = False
    With Workbooks("Classeur2").Sheets(1)
        With .ListObjects(1).DataBodyRange
        .Offset(1).Resize(.Rows.Count - 1, .Columns.Count).Rows.Delete 'on supprime...

Discussions similaires

Statistiques des forums

Discussions
311 737
Messages
2 082 030
Membres
101 876
dernier inscrit
JULIEN21370