Bonjour à Toutes et Tous,
Je souhaite [simplement] copier une valeur depuis un fichier source dans une autre instance d'Excel et la coller dans le classeur actif.
J'ai 2 instances d'Excel parce que j'ai 2 écrans avec des fenêtre Excel de taille différente et je ne peux pas tout avoir la même instance, désolé...
Je ne trouve pas le moyen d'assigner l'autre instance. J'ai vu des usages de getObject, mais je n'arrive pas à me l'approprier.
Voici mon code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Sub copierDailleurs()
'
Dim NomFic As String
' le fichier destination est variable
NomFic = ActiveWorkbook.Name
Application.WindowState = xlNormal
' le fichier source a toujours le même nom:
Windows("source.xlxs").Activate
Application.CutCopyMode = False
' il faut copier la cellule qui est 3 colonnes plus à droite que la cellule active
ActiveCell.Offset(0, 3).Select
Selection.Copy
Windows(NomFic).Activate
' on colle toujours dans la cellule B3 du fichier destination
Range("B3").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub |
A la place de Windows("source.xlxs") je pensais mettre
GetObject("source.xlxs").ActiveCell.Offset(0, 3).Copy
mais ça ne fonctionne pas.
Pouvez-vous me donner un coup de main?
Merci d'avance
Olivier
Partager