Copier des cellules vers un autre classeur

Résolu
kojko Messages postés 29 Date d'inscription   Statut Membre Dernière intervention   -  
kojko Messages postés 29 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

2 réponses

danielc0 Messages postés 1859 Date d'inscription   Statut Membre Dernière intervention   231
 
Bonjour,

Précise ce qui permettrait de sélectionner le classeur.

Cordialement.

Daniel
0
kojko Messages postés 29 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

le faite qu'il est ouvert et il contient une feuille surnommé base,

Cordialement
0
danielc0 Messages postés 1859 Date d'inscription   Statut Membre Dernière intervention   231
 
  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
0
kojko Messages postés 29 Date d'inscription   Statut Membre Dernière intervention  
 
ça marche, je t'en remercie beaucoup :)
passe une bonne après midi
0