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

[thespeedy20]

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

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]

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]

re,

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

OLi