adresse de cellule

[osishame]

bonjour,

je m'en remets une nouvelle fois à l'aide en ligne n'ayant pas réussi à trouver ma solution complète sur le forum.

j'aurais souhaité savoir comment garder en lien l'adresse d'une cellule dans un calcul sachant :
- que j'ai deux fichier workbook(fichier1) et workbook(fichier2)
- que mon calcul est une soustraction ayant lieu dans le workbook(fichier1) de type :
workbook(fichier1).sheets(feuille1).cells(2,1) = workbook.(fichie2).sheets(feuille1).cells(1,1)-workbook(fichier1).sheets(feuille1).cells(1,1)

pour l'instant, je n'obtiens qu'un résultat alphanumérique.
je souhaiterais obtenir en cellule A2 du fichier1 le lien =[Classeur2]Feuil1!$A$1- A1

Mes différents essais restent en vain. Merci pour votre aide !

osi.

 

[gilbert_RGI]

Re : adresse de cellule

bonjour,

je m'en remets une nouvelle fois à l'aide en ligne n'ayant pas réussi à trouver ma solution complète sur le forum.

j'aurais souhaité savoir comment garder en lien l'adresse d'une cellule dans un calcul sachant :
- que j'ai deux fichier workbook(fichier1) et workbook(fichier2)
- que mon calcul est une soustraction ayant lieu dans le workbook(fichier1) de type :
workbook(fichier1).sheets(feuille1).cells(2,1) = workbook.(fichie2).sheets(feuille1).cells(1,1)-workbook(fichier1).sheets(feuille1).cells(1,1)

pour l'instant, je n'obtiens qu'un résultat alphanumérique.

je souhaiterais obtenir en cellule A2 du fichier1 le lien =[Classeur2]Feuil1!$A$1- A1

Mes différents essais restent en vain. Merci pour votre aide !

osi.

Bonjour,

le fichier1 et fichier2 étant ouverts

en formule en A2

=[fichier2.xlsm]Feuil1!$A$1-A1

en VBA

Sub test()
Workbooks("fichier1.xlsm").Sheets(1).Cells(2, 1).Value = Workbooks("fichier2.xlsm").Sheets(1).Cells(1, 1).Value - Workbooks("fichier1.xlsm").Sheets(1).Cells(1, 1).Value
End Sub

en formule VBA

Sub test2()
ActiveCell.FormulaR1C1 = "=[fichier2.xlsm]Feuil1!R1C1-R1C1"
End Sub