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

thespeedy20 · 28 Mars 2022

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

Staple1600 · 29 Mars 2022

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...

Staple1600 · 29 Mars 2022

Re

Il suffit de formater les colonnes du tableau manuellement avant de lancer la macro.
Je viens de tester. Cela fonctionne
Sur le classeur 1: les colonnes F:G sont également formatées en hh:mm

Test OK sur mon PC.

thespeedy20 · 29 Mars 2022

re,

Grand merci à toi pour ton code qui fonctionne et tes conseils... je clôture ce poste.

OLi

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

thespeedy20

XLDnaute Occasionnel

Staple1600

Staple1600

XLDnaute Barbatruc

thespeedy20

XLDnaute Occasionnel

Discussions similaires