Bonjour,
Pour une raison que j'ignore il n'est pas possible de copier un tableau entier avec des liens vers un autre classeur. Ainsi le code suivant me renvoie une erreur 1004 «*La méthode Paste de la classe Worksheet a échoué. »*:
Auriez-vous une idée de comment résoudre ce problème*?
Edit : Ajout d'un fichier exemple.
Pour une raison que j'ignore il n'est pas possible de copier un tableau entier avec des liens vers un autre classeur. Ainsi le code suivant me renvoie une erreur 1004 «*La méthode Paste de la classe Worksheet a échoué. »*:
Code:
Sub CopieAvecLien()
Dim TempWb As Workbook
Set TempWb = Workbooks.Add(1)
ThisWorkbook.Activate
Range("TableauSource[#All]").Select
Selection.Copy
TempWb.Activate
Worksheets(1).Cells(1, 1).Select
ActiveSheet.Paste Link:=True
End Sub
Auriez-vous une idée de comment résoudre ce problème*?
Edit : Ajout d'un fichier exemple.
Pièces jointes
Dernière édition: