A voir également:
- Transfert automatique d'un caractère précis entre fichier Excel
- Fichier rar - Guide
- Caractère ascii - Guide
- Liste déroulante excel - Guide
- Fichier host - Guide
- Fichier iso - Guide
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
18 nov. 2020 à 15:09
18 nov. 2020 à 15:09
Bonjour Kizard, bonjour le forum,
Pas très précis tout ça... Tu adapteras :
Pas très précis tout ça... Tu adapteras :
Sub Macro1() Dim CD As Workbook 'déclare la variable CD (Classeur Destination) Dim OD As Worksheet 'déclare la variable OD (OngletDestination) Dim CC As Workbook 'déclare la variable CC (Classeur Cible) Dim OC As Worksheet 'déclare la variable OC (Onglet Cible) Set CD = ThisWorkbook 'définit la classeur destination CD Set OD = CD.Worksheets("Feuil1") 'définit l'onglet destination OD (à adapter à ton cas) Set CC = Workbooks("---.xlsx") 'définit la classeur coble CC (à adapter et il faut qu'il soit ouvert) Set OC = CC.Worksheets("Feuil1") 'définit l'onglet cible OD (à adapter à ton cas) OD.Range("B5").Value = OC.Range("A1").Value 'récupère dans B5 de l'onglet destination la valeur de A1 de l'onglet cible End Sub
Modifié le 18 nov. 2020 à 16:19
Je ne m'y connais pas beaucoup à ce sujet la désolé