XL 2010 copier coller une cellule de classeur a au classeur b

  • Initiateur de la discussion Initiateur de la discussion tototn
  • Date de début Date de début
  • Mots-clés Mots-clés
    copie

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

tototn

XLDnaute Nouveau
Bonjour tout le monde.
Voila mon probleme
J'ai 1 Classeur("SOURCE") son nom est AUDIT qui contient 5 onglets setup.recap.imprimer.annexe1.annexe2 et'un autre Classeur("CIBLE") son nom VALEUR est a le meme nombre d onglet.
je veux copier la cellule a l onglet B2 l onglet setup du classeur source vers le classeur cible a l onglet recap cellule a1

mon classeur source contient a l onglet recap au cellule b2
=setup!$B$2
lorsque je copie j ai ce qui suit a mon classeur cible
='C:\source.xls]setup'!$B$2
je veux que le classeur cible contient a l onglet recap au cellule b2
=setup!$B$2

merci de votre aide.
 
Bonsoir Tototn, bonsoir le forum,

Pas très clair tout ça... Peut-être une piste avec le code ci-dessous à placer dans un module standard du fichier source :

VB:
Sub Macro1()
Dim CS As Workbook 'déclare la variable CS (Classeur Source)
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim CD As Workbook 'déclare la variable CD (Classeur Destination)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)

Set CS = Workbooks("AUDIT.xlsm") 'définit le classeur source CS (extension à vérifier !)
Set OS = CS.Worksheets("setup") 'définit l'onglet source OS
Set CD = Workbooks("VALEUR.xlsx") 'définit le classeur destination CD (extension à vérifier !)
Set OD = CD.Worksheets("recap") 'définit l'onglet destination OD
OD.Range("A1").Value = OS.Range("B2").Value 'récupère la valeur de la cellule B2 de l'onglet source dans la cellule A1 de l'onglet destination
'OS.Range("B2").Copy OD.Range("A1") 'copie la valeur et les formats de la celllue B2 de l'onglet source dans la cellule A1 de l'onglet destination
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
385
  • Question Question
Microsoft 365 Classeur Disparu
Réponses
2
Affichages
467
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
79
Retour