(Excel 2016 Mac) Problème copier coller avec lien en VBA - faible occurrence

Version imprimable

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:

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

05/09/2017, 09h07
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, …
06/09/2017, 15h38
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
08/09/2017, 18h24
Marc-L

La sélection étant inutile, avec juste une copie directe en une unique ligne de code …
11/09/2017, 11h02
ArthurGDB

Citation:

Envoyé par Marc-L

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!
11/09/2017, 12h12
joe.levrai

Bonjour,

exemple à adapter

Code:

Workbooks("Fichier1").Worksheets("LaFeuille1").Range("A1").Copy Workbooks("Fichier2").Worksheets("LaFeuille2").Range("A1")
11/09/2017, 12h38
ArthurGDB

Bonjour joe.levrai,

J'avais pas exactement compris ça, et en fait dans mon cas précis je pense que ça ne changera rien parce que c'est bien la copie qui se perd lorsque je fais le "unprotect" de mon deuxième classeur. Donc je pense que ne pas passer par la sélection ne changera rien.

Merci quand même à vous deux,
Arthur
11/09/2017, 13h01
eriiic

Re,

même si ça ne change rien à ton problème, ce n'est pas la question, prend quand même l'habitude d'éliminer tous les .select inutiles.
eric
11/09/2017, 13h02
ArthurGDB

Citation:

Envoyé par eriiic

Re,

même si ça ne change rien à ton problème, ce n'est pas la question, prend quand même l'habitude d'éliminer tous les .select inutiles.
eric

Très bien, je vais faire ça pour ce projet et j'y penserai dans le futur.

Merci !

EDIT : en fait je m'en étais même pas rendu compte mais je n'ai pas de "select" avant ma copie (voir le code dans le premier message)
11/09/2017, 13h23
joe.levrai

Il te suffit d'unprotect ta feuille juste avant cette ligne de code
de toute façon, telle que je l'ai rédigée, cette ligne de code est insensible à toute perte de focus, il faut juste que les deux workbooks soient ouverts

As-tu essayé cette utilisation de la méthode Copy avant de "penser" qu'elle n'ira pas ? ;)
11/09/2017, 13h32
ArthurGDB

Citation:

Envoyé par joe.levrai

Il te suffit d'unprotect ta feuille juste avant cette ligne de code
de toute façon, telle que je l'ai rédigée, cette ligne de code est insensible à toute perte de focus, il faut juste que les deux workbooks soient ouverts

As-tu essayé cette utilisation de la méthode Copy avant de "penser" qu'elle n'ira pas ? ;)

Je suis étourdi et je pensais que ta solution permettais seulement d'éviter le .select alors qu'elle permet le copier/coller entier en une ligne.
Je vais essayer. Est-ce que je peux tout de même mettre le Link:=True à la suite ?
11/09/2017, 16h47
eriiic

Et si tu n'as besoin que de la valeur sans la mise en forme

Code:

Workbooks("Classeur1").Sheets("Feuil1").[A1] = Workbooks("Classeur2").Sheets("Feuil2").[A2]

suffit.

Et les .Activate de feuilles c'est pareil, ne faire que ceux indispensables (donc tous, sauf ceux où tu te fais jeter ;-) ). Tout ça mis bout à bout c'est énormément de temps gagné sur les grosses manipulations.

Bonsoir,

Tout à fait d'accord sur les Select, Activate et tuti quanti, toujours les éviter, sauf dans cas rare où l'on a pas le choix …

Après avoir ouvert tes 2 classeurs … voilà ce que tu cherches pour garder les lien :
J'ai utilisé une formule de ce type (ici schématiquement) :

Code:

=[NomDuClasseur.xlsm]NomDeLaFeuille!DebCelluleVoulu

Ce qui donne :
Code:

1 2 Workbooks("BDD - Fiches KM.xlsm").Worksheets("Database").Range("A3").End(xlDown)(2).Resize(, 17).FormulaLocal = "=[" & Fichier & "_" & Format(Date, "dd-mm-yyyy", vbMonday) & ".xlsm" & "]" & "Fiche" & "!A123" 'Pourquoi un Rezize 17 sur les col : ' Debug.Print Columns("A:Q").Count => =17 => Cela permet d'étendre la formule jusqu'à la col Q sur la même ligne
Mais dans le cas ou tes données sont statiques en A123:Q123, autant faire ce que @joe.levrai ou @ eriiic t'on proposait (que je salut au passage ;))

PS : j'ai pas testé, mais tout est là est en une ligne; sur developpez, il y a @Eric KERGRESSE qui explique les formules sur 2 lien du sites => une petite recherche à faire :mrgreen: