Discussion :

[frisou65]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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]"

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.

[youn1096]

bonjour,


tu doit mettre des guillemets et des &

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim FL1 As Worksheet

Pour initialiser cette variable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set FL1 = Sheets.Count - 5

Et pour intégrer cette variable dans une formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ce qui devrait donner pour ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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]"

[frisou65]

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.

[fring]

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.

[frisou65]

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.

[fring]

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

Pièce jointe 35614

.

[frisou65]

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

[fring]

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

[frisou65]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.