Collez le lien dans vba

Je veux coller un lien à partir d'une feuille à l'autre

Range("A1:D1").Select
Range("D1").Activate
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste Link:=True

Cependant, le code devrait faire la feuille de passer à Feuil2 partir de la feuille Sheet1. Est-il de toute façon que je pouvais coller le lien sans commutation de la feuille?

Grâce.

InformationsquelleAutor Steveng | 2012-04-04

Cela fonctionne:

ThisWorkbook.Worksheets("Sheet2").Range("D1").Formula = "=Sheet1!D1"

InformationsquelleAutor Tahbaza

Je suppose que c'est ce que vous essayez?

Sub Sample()
    Dim i As Long
    For i = 1 To 4
        Sheets("Sheet2").Cells(1, i).Formula = "=Sheet1!" & _
                Split(Cells(, i).Address, "$")(1) & "1"
    Next i
End Sub

InformationsquelleAutor Siddharth Rout

0

Ce code fera la même chose que votre extrait de code sans changer la feuille active.
```
Range("A1:D1").Copy
Worksheets("Sheet2").Paste Link:=True
```
Remarque que cela (et du code) copie de la feuille active. Si vous souhaitez copier à partir d'une feuille à l'autre de la feuille active, utilisez quelque chose comme
```
Worksheets("Sheet1").Range("A1:D1").Copy
Worksheets("Sheet2").Paste Link:=True
```
InformationsquelleAutor chris neilsen
0

J'ai eu le même problème tout à l'heure. Je viens de m'apercevoir ensuite que TightVNC a été connecté à une autre machine quand j'ai essayé d'exécuter mon code. Quand je l'ai fermé, le code exécuté comme d'habitude.

Éventuellement cela se produit parce que certains logiciels peut être prendre le contrôle de votre presse-papiers. Il suffit de fermer quelque chose que vous n'avez pas besoin, comme l'Inc ou des Machines Virtuelles.

InformationsquelleAutor Victor Braga
-1

Votre LIEN désir ne peut être fait sans la sélection de la feuille. Mais vous pouvez faire le fait qu'elle est invisible à l'œil.
```
Option Explicit

Sub test()
    Application.ScreenUpdating = False

    Sheets("Sheet1").Range("A1:D1").Copy
    With Sheets("Sheet2")
        .Activate
        .Range("A1").Select
        ActiveSheet.Paste Link:=True
    End With
    Sheets("Sheet1").Activate

    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub
```
- Il n'y a absolument aucune raison pour sélectionner la feuille de première, il suffit d'utiliser Sheet2.paste ou Sheets("Sheet2").paste. Ne jamais sélectionner une feuille ou de la plage avant de travailler avec, il suffit de référence et de travailler avec elle.
- Prière de vérifier avant de vous commenter la réponse de quelqu'un
InformationsquelleAutor Jerry Beaucaire

-1

Vous pouvez utiliser Application.ScreenUpdating = False et puis retour à la vraie après que la pâte a terminé.

Exemple:

Application.ScreenUpdating = False
Worksheets("Sheet1").Range("D1").Copy    
Worksheets("Sheet2").Activate   
Range("Range You Want To Paste").Select    
ActiveSheet.PasteSpecial Link:=True  
Worksheets("Sheet1").Activate
Range("A Range You Want Active").Activate   
Application.ScreenUpdating =true

InformationsquelleAutor Hotwire20

Vous devez vous connecter pour publier un commentaire.