Copier des cellules vers un autre classeur
Résolu
Bonjour,
Je souhaite copier le contenu d'une feuille dans une autre feuille (base) qui se trouve dans un autre classeur et que le nom de ce dernier n'est pas precis,
J'utilise le code suivant:
Range("A1:Q2000").Select
Selection.Copy
Windows("RM Tool .xlsm").Activate
Sheets("base").Select
Range("A1").Select
ActiveSheet.Paste
Cordialement
Je souhaite copier le contenu d'une feuille dans une autre feuille (base) qui se trouve dans un autre classeur et que le nom de ce dernier n'est pas precis,
J'utilise le code suivant:
Range("A1:Q2000").Select
Selection.Copy
Windows("RM Tool .xlsm").Activate
Sheets("base").Select
Range("A1").Select
ActiveSheet.Paste
Cordialement
2 réponses
-
Bonjour,
Précise ce qui permettrait de sélectionner le classeur.
Cordialement.
Daniel -
Dim Wbk As Workbook, Sh As Worksheet, Teste As Boolean Range("A1:Q2000").Select Selection.Copy Teste = False For Each Wbk In Workbooks For Each Sh In Wbk.Sheets If Sh.Name = "Base" Then Wbk.Activate Teste = True Exit For End If Next Sh If Teste = True Then Exit For Next Wbk Sheets("base").Select Range("A1").Select ActiveSheet.Paste
Daniel
