Bonjour,
je dois me servir d'une formule qui est la suivante:
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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3ActiveCell.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]"
Les lignes en bleu me permettent de récupérer la position des feuilles que je dois utiliser ds la formule.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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]"
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.
Partager