Menu

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

Messages postés
27
Date d'inscription
lundi 25 mai 2015
Statut
Membre
Dernière intervention
6 avril 2019
- - Dernière réponse : kojko
Messages postés
27
Date d'inscription
lundi 25 mai 2015
Statut
Membre
Dernière intervention
6 avril 2019
- 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
489
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
28 mars 2019
36
0
Merci
Bonjour,

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

Cordialement.

Daniel
kojko
Messages postés
27
Date d'inscription
lundi 25 mai 2015
Statut
Membre
Dernière intervention
6 avril 2019
-
Bonjour,

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

Cordialement
Commenter la réponse de danielc0
Messages postés
489
Date d'inscription
mardi 5 juin 2018
Statut
Membre
Dernière intervention
28 mars 2019
36
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
27
Date d'inscription
lundi 25 mai 2015
Statut
Membre
Dernière intervention
6 avril 2019
-
ça marche, je t'en remercie beaucoup :)
passe une bonne après midi
Commenter la réponse de danielc0