Copier des cellules vers un autre classeur

Résolu/Fermé

kojko Messages postés 29 Date d'inscription lundi 25 mai 2015 Statut Membre Dernière intervention 29 mars 2023 - 3 déc. 2018 à 11:10
kojko Messages postés 29 Date d'inscription lundi 25 mai 2015 Statut Membre Dernière intervention 29 mars 2023 - 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

A voir également:

Copier des cellules vers un autre classeur
Formule excel pour additionner plusieurs cellules - Guide
Comment copier une vidéo youtube - Guide
Verrouiller des cellules excel - Guide
Super copier - Télécharger - Gestion de fichiers
Retrouver un copier-coller android - Guide

2 réponses

Réponse 1 / 2

danielc0 Messages postés 1696 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 25 mars 2025 199
3 déc. 2018 à 11:55

Bonjour,

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

Cordialement.

Daniel

kojko Messages postés 29 Date d'inscription lundi 25 mai 2015 Statut Membre Dernière intervention 29 mars 2023
3 déc. 2018 à 13:29

Bonjour,

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

Cordialement

Réponse 2 / 2

danielc0 Messages postés 1696 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 25 mars 2025 199
3 déc. 2018 à 15:02

  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 29 Date d'inscription lundi 25 mai 2015 Statut Membre Dernière intervention 29 mars 2023
3 déc. 2018 à 16:20

ça marche, je t'en remercie beaucoup :)
passe une bonne après midi

Discussions similaires

Colis en cours de transport vers votre site de livraison ?

Arobase (@)