Discussion :

[ArthurGDB]

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

[Marc-L]

Bonjour,

tenter déjà la copie directe en une instruction en indiquant la destination comme dans l'aide VBA de Range.Copy …

___________________________________________________________________________________________________________

Je suis Paris, Barcelone, London, Manchester, Egypte, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[ArthurGDB]

Bonjour Marc,

En suivant ton conseil, j'ai décomposé chaque action pour voir où est-ce que ça plantait.
Je suis débutant et je n'avais pas eu le réflexe de fonctionner comme ça.

Je me suis finalement rendu compte que c'était le "unprotect" qui faisait perdre la sélection (seulement de temps en temps, ça reste un mystère) . J'ai donc réordonné mon code pour enlever la protection avant de commencer la copie.

à bientot

[Marc-L]

La sélection étant inutile, avec juste une copie directe en une unique ligne de code …

[ArthurGDB]

La sélection étant inutile, avec juste une copie directe en une unique ligne de code …

Bonjour Marc, ça peut paraître idiot mais je ne connais pas le code pour faire ça en une ligne.. Je sais seulement selectionner, copier, puis coller.
T'as pas juste un mini exemple que j'adapterai ?

Merci!

[joe.levrai]

Bonjour,

exemple à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbooks("Fichier1").Worksheets("LaFeuille1").Range("A1").Copy Workbooks("Fichier2").Worksheets("LaFeuille2").Range("A1")