Problème d'automatisation d'une formule

Bonjour,
je dois me servir d'une formule qui est la suivante:

Code:

---

1 2 3

ActiveCell.FormulaR1C1 = _ "='Récap_2ème trimestre 2008'!R[72]C[31]+'Récap_1er trimestre'!R[77]C[31]+'Récap_4ème trimestre'!R[85]C[28]+'Récap_1er et 2ème trimestre'!R[89]C[46]"

---

Comme vous pouvez constater elle fait appel à différentes feuilles et le problème c'est que au fil du temps ces feuilles changent de nom et de place mais les positions entre elles par rapport à la dernière feuille du fichier sont identique donc j'ai créé ce code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim FL1, FL2, FL3, FL4 As Sheets Sheets("Récap_graph_trimestre").Select FL1 = Sheets.Count - 5 FL2 = Sheets.Count - 8 FL3 = Sheets.Count - 11 FL5 = Sheets.Count - 14 Range("I14").Select ActiveCell.FormulaR1C1 = _ "='Activeworkbook.FL1.name'!R[72]C[31]+'Activeworkbook.FL2.name'!R[77]C[31]+'Activeworkbook.FL3.name'!R[85]C[28]+'Activeworkbook.FL5.name'!R[89]C[46]"

---

Les lignes en bleu me permettent de récupérer la position des feuilles que je dois utiliser ds la formule.
Le code ne marche pas il me met un message d'erreur : fichier non trouvé!
Est ce que quelqu'un peut m'aider?
Merci d'avance.

bonjour,


tu doit mettre des guillemets et des &

Code:

---

1 2	"=' " & Activeworkbook.FL1.name & "'!R[72]C[31]

---

Bonjour,

Tout d'abord lorsqu'on déclare des variables, chaque variable doit être typée sinon elle prend le type Variant par défaut.

Code:

---

Dim a, b, c As Byte

---

Ci-dessus seul c sera de type Byte, a et b seront de type Variant, la bonne syntaxe est :

Code:

---

Dim a As Byte, b As Byte, c As Byte

---

Ensuite, déclarer une variable de type "Feuille" s'écrit

Code:

---

Dim FL1 As Worksheet

---

Pour initialiser cette variable

Code:

---

Set FL1 = Sheets.Count - 5

---

Et pour intégrer cette variable dans une formule

Code:

---

Range("A14").FormulaR1C1 = "=" & FL1.Name & "!R[72]C[31]"

---

Ce qui devrait donner pour ton code

Code:

---

1 2 3 4 5 6 7

Dim FL1 As Worksheet, FL2 As Worksheet, FL3 As Worksheet, FL5 As Worksheet Set FL1 = Sheets(Sheets.Count - 5) Set FL2 = Sheets(Sheets.Count - 8) Set FL3 = Sheets(Sheets.Count - 11) Set FL5 = Sheets(Sheets.Count - 14) Sheets("Récap_graph_trimestre").Range("I14").FormulaR1C1 = _ "=" & FL1.Name & "!R[72]C[31]+" & FL2.Name & "!R[77]C[31]+" & FL3.Name & "!R[85]C[28]+" & FL5.Name & "!R[89]C[46]"

---

Alors j'ai fait un copié collé de ce que tu m'as donné.
La même ligne pose toujours problème mais cette fois-ci c'est pas la même erreur: 1004: erreur définie par l'application ou par l'objet.

Pourtant cette fois ci...j'ai testé le code et il fonctionne. Je ne peux pas te dire comme ça d'où provient l'erreur sans avoir le fichier sous les yeux.

Malheureusement je peux pas te passer le fichier car je travaille sur des données confidentielles alors......c'est bizarre quand même cette erreur alors si chez toi ça marche.

Voilà un fichier avec la même procédure

Pièce jointe 35614

.

Merci fring. J'ai réglé le souci.
Merci beaucoup.

Quel était le problème ? Ca pourrait servir à d'autres de savoir que ceci ou cela provoque cette erreur.

En fait il manquait les apostrophes qui doivent encadrer la feuille. Je les mets en bleu:

Code:

---

1 2 3 4

Sheets("Récap_graph_trimestre").Range("I14").Select ActiveCell.FormulaR1C1 = "='" & FL1.Name & "'!R[72]C[31]+'" & FL2.Name & "'!R[77]C[31]+'" & FL3.Name & "'!R[85]C[28]+'" & FL5.Name & "'!R[89]C[46]"

---

Et là comme ça ça marche chez moi. Mais encore merci fring car tu m'as bien aidé.
Merci.