Discussion :

[licpegpon]

Bonjour,

Je cherche à écrire la procédure toto() qui me permettrait d'effectuer des copîer / coller entre classeurs :

Ci-dessous les étapes suivies :

J'ouvre le fichier STEP.xlsm situé dans le dossier "P:\ENG\status"
Je vais dans l'onglet "Feuil1"
J exécute la procédure toto()

Celle-ci :

Ouvre le fichier "extract.xlsx" situé dans le dossier "P:\ENG\Status"
Va dans l'onglet "owssvr"
Mets en mémoire la plage de cellules "C2:C1350" (copier)
Reviens dans le fichier "STEP.xlsm", onglet "Feuil1".
Je me positionne dans la cellule E6
Je colle ce que j'avais en mémoire (coller)

Merci par avance.

Cdlt.
Jérôme.

[Philippe Tulliez]

Bonjour,
Pour copier/coller des cellules la syntaxe est la même que ce soit des cellules d'une même feuille, de feuilles différentes ou de classeurs différents, à condition bien entendu que les classeurs "source" et "cible" soient ouverts soit PlageSource.Copy Destination:=PlageCible

Il faut juste préciser la parentalité complète des plages source et cible.

Une plage de cellules a comme parent la feuille où elle se trouve qui a elle même le classeur comme parent.

Exemple

Code :

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

1
2
3
4
5
6
7
8
Sub T()
  Dim rngSource As Range
  Dim rngTarget As Range
  Set rngSource = Workbooks("Magic - TimeSheet.xlsb").Worksheets("Dossier").Range("A1").CurrentRegion
  Set rngTarget = ThisWorkbook.Worksheets("Feuil1").Range("A1")
  rngSource.Copy Destination:=rngTarget
  Set rngSource = Nothing: Set rngTarget = Nothing
End Sub