XL 2021 Récupérer la valeur d’une cellule dans un classeur fermé

patricktoulon à dit:

bonjour
si Dir te dis que non c'est que tu fais erreur sur le chemin ou le nom
en l’occurrence tu donne deux classeurs en exemple (classeur1 et Classeur2) et dans la macro tu a mis "Fichier2"
ça risque pas de marcher

VB:

Option Explicit

Sub Bouton1_Cliquer()
   
    'Variable nom de mon fichier
    Dim monfichier As String
    monfichier = ThisWorkbook.Name
   
    'Position de la valeur à récupérer (fichier source)
    Dim information As String
    information = Sheets("feuil1").Range("B1").Value
   
    'Variable nom du fichier destination
    Dim fichier_destination As String
    fichier_destination = "Classeur2.xlsm"   'c'est "Classeur2""pas "Fichier2"
   
    'Variable chemin ou se trouve fichier de destination et variable classeur
    Dim chemin As String, WbK As Workbook
   
   
    chemin = ThisWorkbook.Path & "\" & fichier_destination
    'test d'existence du fichier
    If Dir(chemin) = "" Then MsgBox "Le chemin du classeur de destination n'existe pas", vbInformation: Exit Sub
   
    'ouverture du fichier de destination et renseigner la valeur récupérée
    Set WbK = Workbooks.Open(chemin)
   
    WbK.Worksheets("feuil1").Range("B1").Value = information
   
    'fermer le fichier de destination
    Workbooks(fichier_destination).Close SaveChanges:=True
   
   
    'réactiver mon fichier source
    Workbooks(monfichier).Activate
   
    MsgBox "Info transmise"
   
   
End Sub

Cliquez pour agrandir...

Ce n’est pas en coupant les oreilles d’un âne, qu’on en fera un cheval de course....​