Formule de calcul

Bonjour,

Ca fait quelques heures que je tourne en rond..

Je souhaite intégrer une formule de calcul par un code VBA, cependant cette formule comprend une variable.

Voici la formule qui fonctionne :

Sheets("Feuil1").Range("A1") = "=""Page ""&'Feuil2'!AB3]"

Sauf que Feuil2 doit devenir une variable ActiveSheet.Name

J'ai donc essayé diverses écritures de ce type, mais qui ne fonctionnent pas.

Sheets("Feuil1").Range("A1") = "=""Page "" & "'" & ActiveSheet.Name & " '!AB3"

Mais ce code partiel fonctionne

Sheets("Feuil1").Range("A1") = "='" & ActiveSheet.Name & "'!AB3" 

Ci-joint un classeur pour exemple

8classeur1.xlsm (16.74 Ko)

Merci pour votre aide,

bonjour,

si j'ai bien compris

Sheets("Feuil1").Range("A1").Formula = "=""Page  "" & ""'" & ActiveSheet.Name & "'!C3"""

par contre j'ai pas compris à quoi cela pouvait servir

edit : je ferais bien de prendre un bon café , merci gyrus.

Bonjour,

Ou alors ...

Sheets("Feuil1").Range("A3").Formula = "=""Page ""&'" & ActiveSheet.CodeName & "'!C3"

Cordialement.

Merci pour vos réponses.

La formule de Gyrus fonctionne parfaitement mais pas celle de H2so4.

Pour te répondre H2so4, je transcris un Excel en pdf, dans lequel j'ai un sommaire.

Ce code me permet simplement de récupérer le bon numéro de page.

Rechercher des sujets similaires à "formule calcul"