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

Question

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

ThauTheme · Answer

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

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

1 réponse

Discussions similaires