Soucis de codage vba de lien hypertexte

Bonjour à tous,

J'ai un petit problème de codage en vba de lien hypertexte et de liaison entre feuille. Dans un dossier j'ai une feuille RECAPITULATIF qui me créer au fur et à mesure des saisies d'autres feuilles.
Cela fonctionne très bien. Par contre, j'aimerais quand une nouvelle feuille se créée mettre un lien hypertexte, hors le code bloque sur la cellule de la feuille RECAPITULATIF.

VAR1 et VAR2 sont deux variable composant le nom de la nouvelle feuille.

Le code est le suivant :

Code:

---

1 2 3 4 5 6

'CREATION DU LIEN HYPERTEXTE   CELLULECIBLE.Offset(-2, 7).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "'" & VAR1 & " - " & VAR2 & "'!G6", TextToDisplay:="'12 - 12'!A1"

---

J'ai également un deuxième soucis, qui consiste à créer des liaisons entre certaines cellule de la nouvelle feuille vers la feuille RECAPITULATIF. Pour le moment j'ai fait cette formulation.

Code:

---

1 2 3 4

'INSERTIONS DE FORMULES DE CALCUL   CELLULECIBLE.Offset(-2, 11).FormulaR1C1 = "='" & VAR1 & " - " & VAR2 & "'!" & "D17"

---

En attente de vous lire, je vous souhaite une bonne fin de journée.

Cordialement.

Bonjour à tous,

J'ai réussi à résoudre le problème du lien hypertexte. Il m'a fallu déclaré une variable pour palier à ce problème.

Par contre j'ai le problème d'injecter dans les cellules de la feuille RECAPITULATIF les formule de calcul faisant référence à une cellule d'une autre feuille.

J'ai bien inscrit ma formule avec le code suivant :

Code:

---

1 2	CELLULECIBLE.Offset(-2, 11).FormulaR1C1 = "='" & VAR1 & " - " & VAR2 & "'!D17"

---

sauf que dans la cellule visée il me l'écrit ='28-28'!'D17'. Il ajoute les apostrophes autour du D17.

Pourriez-vous m'aidez, s'il vous plait ?

Dans l'attente de vous relire je vous souhaite une bonne journée.