Transfert automatique d'un caractère précis entre fichier Excel

Signaler
-
 Kizard -
Bonjour,

Alors voila, je cherche simplement a faire un programme permettant de faire passé/transmettre un nombre ou un caractère précis dans une colonne précise, c'est a dire par exemple:
Si dans le fichier ---.xlsx la case A1 contient le nombre 1 alors il sera dans la colonne B5 du fichier actuelle

Mon exemple tient de simple mot, je ne savais pas comment l'expliquer d'une autre maniere désolé.
Je suis sur Excel avec Microsoft VBA
Merci d'avance
Cordialement

1 réponse

Messages postés
1410
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
3 décembre 2020
147
Bonjour Kizard, bonjour le forum,

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

C'était rapide Merci
Je ne m'y connais pas beaucoup à ce sujet la désolé