Menu

Copier des cellules vers un autre classeur [Résolu]

Messages postés
23
Date d'inscription
lundi 25 mai 2015
Dernière intervention
4 décembre 2018
- - Dernière réponse : kojko
Messages postés
23
Date d'inscription
lundi 25 mai 2015
Dernière intervention
4 décembre 2018
- 3 déc. 2018 à 16:20
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
Afficher la suite 

Votre réponse

2 réponses

Messages postés
256
Date d'inscription
mardi 5 juin 2018
Dernière intervention
4 décembre 2018
0
Merci
Bonjour,

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

Cordialement.

Daniel
kojko
Messages postés
23
Date d'inscription
lundi 25 mai 2015
Dernière intervention
4 décembre 2018
-
Bonjour,

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

Cordialement
Commenter la réponse de danielc0
Messages postés
256
Date d'inscription
mardi 5 juin 2018
Dernière intervention
4 décembre 2018
0
Merci
  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
kojko
Messages postés
23
Date d'inscription
lundi 25 mai 2015
Dernière intervention
4 décembre 2018
-
ça marche, je t'en remercie beaucoup :)
passe une bonne après midi
Commenter la réponse de danielc0