XL 2010 Macro rechercher le lecteur + mettre formule

[PACKYMAITRE]

Bonsoir,

Je voulais faire une macro suivante et cela ne fonctionne pas du tout. C'est-à-dire, dans la cellule A, le lecteur (par exemple H), et dans la cellule A2 (H +intégration de la Formule)

Sub LECTEUR1()

Dim chemin As String, formule As String
VALEUR = Range("a1").Text
formule = "\DEPENSES -2020-'!R[5]C[6]"
chemin = VALEUR

Range("A2").Select
RESULTAT = chemin & formule

ActiveCell.FormulaR1C1 = RESULTAT

End Sub

Bien à vous pour votre aide,
Merci d'avance,
PACKYMAITRE

 

[sylvanu]

Bonjour Packymaitre,
Si vous appelez lecteur un disque dans lequel il y a le fichier alors votre syntaxe est erronée.
Faites l'excercice sur deux fichiers ouverts, vous obtenez quelque chose du genre :

='[exemple (7).xlsm]Feuil1'!$D$5

soit

='[NomFichier.xlsm]NomFeuille'!RéferenceCellule

à noter que le fichier source doit être ouvert.
S'il est fermé alors l'accès est plus complexe. L'intégralité du chemin doit être précisé :

='C:\Users\PC_PAPA\Desktop\[exemple (7).xlsm]Feuil1'!$D$5