Copier avec liaison méthode sans activate

**nonesofar** · 13/10/2016, 14h44

Bonjour,

Je copie des données dans un tableau récap avec liaison.

La macro fonctionne, juste que je suis perfectionniste

, je souhaite eviter de faire un activate avant de coller.

Le code utilisé.

Code :

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

1
2
3
4
5
        Cells(i, lastcolton).Copy
        With ws
            .Cells(k, 66).Activate
            ActiveSheet.Paste Link:=True
       End With

J'ai cherché de partout sur le web et pas vu de truc plus rapide.

Je comprends pas pourquoi on utilise un With.

Puis faire un cells.activate qui prend tu temps.

Voila si vous avez une méthode plus élégante.

@ bientôt

Merci !!

**Menhir** · 13/10/2016, 16h27

Effectivement, le With est inutile

Code :

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

1
2
3
        Cells(i, lastcolton).Copy
        ws.Cells(k, 66).Activate
        ActiveSheet.Paste Link:=True

En revanche, tu auras du mal à te passer de l'Activate.

Le problème, c'est que l'option Link n'est disponible dans dans le Paste de l'objet Worksheet. Il n'est pas disponible dans le PasteSpecial de Range.
Or, pour indiquer quelle cellule est concernée dans cette feuille, je ne vois pas d'autre méthode qu'un Activate.

**joe.levrai** · 13/10/2016, 20h36

Bonjour,

pour appuyer Menhir, je te renvoie à l'aide Microsoft sur Worksheet.Paste : https://msdn.microsoft.com/fr-fr/lib.../ff821951.aspx

lis bien la description des deux arguments Destination et Link, et l'impossibilité d'utiliser les deux en même temps

du coup, tu es obligé d'activer la destination :

Si vous ne spécifiez pas l’argument Destination, vous devez sélectionner la plage de destination avant d’utiliser cette méthode.

Cette méthode peut modifier la sélection de la feuille ; cela dépend du contenu du Presse-papiers.

toi tu veux la destination ET le Link ... malheureusement cette méthode ne te permet pas d'avoir le beurre ET l'argent du beurre.