Bonjour,

Je me permets de vous solliciter car j'ai un problème sur un projet en VBA assez bête en apparence mais que je n'arrive pas du tout à résoudre.

J'ai donc plusieurs classeurs reliés entre eux, et une partie du code fait une copie de l'un vers l'autre :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
'Copie de la ligne d'infos depuis la fiche
Workbooks(Fichier & "_" & Format(Date, "dd-mm-yyyy", vbMonday) & ".xlsm").Activate
Workbooks(Fichier & "_" & Format(Date, "dd-mm-yyyy", vbMonday) & ".xlsm").Worksheets("Fiche").Range("A123:Q123").Copy
'Ouverture + dévérouillage de la BDD
Workbooks.Open Filename:=cheminbis & "BDD - Fiches KM.xlsm"
Workbooks("BDD - Fiches KM.xlsm").Worksheets("Database").Unprotect Password:="password"
'Collage de la ligne d'infos dans la BDD
Workbooks("BDD - Fiches KM.xlsm").Worksheets("Database").Activate
Workbooks("BDD - Fiches KM.xlsm").Worksheets("Database").Range("A3").End(xlDown).Offset(1, 0).Select
Workbooks("BDD - Fiches KM.xlsm").Worksheets("Database").Paste Link:=True
À priori pas de soucis, et d'ailleurs ça marche plutôt bien.

Seulement une fois sur cinq (environ), j'obtiens le message "erreur d'exécution 1004 la méthode paste de la classe worksheet a échoué" avec la dernière ligne du code ci-dessus surlignée.

Je ne comprends vraiment pas puisque cela fonctionne dans la majeure partie des cas et que je n'ai vraiment pas réussi à identifier un cas où l'erreur apparaitrait tout le temps. Même dans deux cas strictement identiques (mêmes informations etc) parfois ça passe, parfois non.

Auriez-vous une idée ?

Merci d'avance,
Arthur