formule avec nom de la feuille variable

Version imprimable

07/04/2008, 09h54
DIDIDIDA

formule avec nom de la feuille variable
bonjour à tous:yaisse2:
je finalise mon travail, et pour celà il faut que je fasse attention aus petit detail..bref, dans mon code j'utilise des fois le nom de la feuille initial Feuil8 et des fois le nom que je lui attribuer en renommant la Feuil8 qui est :GRILLEAGRICULTURE. mon sousci est si un utilisateur renomme la Feuil8 alors mon progarme ve se planter parceque moi j'utilise le nom GRILLEAGRICULTURE dans mon code

pour ce genre de code

Code:

[Feuil11].Range("D32").CopyFromRecordset rsT

comme j'utilise le nom Feuil1, ça ne pose pas de probleme
mais pour ce type de code _ça me pose probleme

Code:

[Feuil11].Range("B5").FormulaLocal = "=SOMME(GRILLEAGRICULTURE!D2:D65536)"

alors j'ai essayer ça mais ça fonctionne pas; probleme de syntaxe
Code:

1 2 Dim GRILLEAGRICULTURE As String GRILLEAGRICULTURE = [Feuil8].Name[Feuil11].Range("B5").FormulaLocal = "=SOMME("&GRILLEAGRICULTURE&"!D2:D65536)"
merci par avance
07/04/2008, 10h10
DIDIDIDA

rectification

c'est ça mon code:

Code:

[Feuil11].Range("B5").FormulaLocal = "=SOMME('&GRILLEAGRICULTURE&'!D2:D65536)"

mais n'emeche ça marche pas! et ce que je coprend pas des fois il me sort une fenetre en me disant si je veux metre à jour la feuille AGRICULTURE? EST CE QUE VOUS VOYEZ POUR QUOI, ? MERCI
07/04/2008, 10h14
ouskel'n'or

As-tu essayé

Code:

[Feuil11].Range("B5").FormulaLocal = "=SOMME(" & sheets(8).name & "!D2:D65536)"

A tout hasard, il me semble avoir déjà vu quelque chose "comme ça" :mouarf:
Pas testé (!)

MERIC

MERCI OUSKEL'N'OR 9A MARCHE BIEN POUR LE CODE QUE TU M4AVAIS DONNé ? MAIS COMME J4AI UN AUTRE PROBLEME çA N EMARCHE PAS ENCORE POUR CE TYPE? MAIS COMME TU M'AS DONNé L'IDEE ALORS JE VAIS ESSAYE DE VOIR POURQUOI?

Code:

1
2
3
4
5
6
7
8
9
10
11
rSQL = "SELECT  Sum(G.NONCONFORMESR)" & _
       "From [AGRICULTURE$] C , [" & Sheets(8).Name & "$] G " & _
       "Where  C.NOPRET = G.NOPRET " & _
       " and C.NOTEB2 IN( '" & RJ & "', '" & RK & "', '" & RL & "')"
'Exécution de la Requete SQL
Set rsT = New ADODB.Recordset
        With rsT
            .ActiveConnection = Conn
            .Open rSQL, , adOpenKeyset, adLockOptimistic, adCmdTableDirect
        End With
[Feuil11].Range("E22").CopyFromRecordset rsT

MERCI ENCORE:lol:

07/04/2008, 11h01
DIDIDIDA

pas tout à fait

tu sais il ya un petit probleme avec ça

Code:

[Feuil11].Range("B5").FormulaLocal = "=SOMME(" & Sheets(8).Name & "!D2:D65536)"

il m'affiche sur la barre de s formule ça

Code:

SOMME(AGRICULTURE!.Name & "!D2:D65536)

or qu'il doit afficher

Code:

SOMME(GRIILEAGRICULTURE!.Name & "!D2:D65536)

car AGRICULTURE correspond à Feuil3
et GRIILEAGRICULTURE correspond à Feuil8
je pense en faisant Sheets(8) ça correspond pas à Feuil 8?
07/04/2008, 11h10
ouskel'n'or
Alors passe par une boucle intermédiaire
Code:

1 2 3 4 For i = 1 to ActiveWorkbook.sheets.count if Workbooks(i).name = "GRIILEAGRICULTURE" then Exit for Next [Feuil11].Range("B5").FormulaLocal = "=SOMME(" & Sheets(i).Name & "!D2:D65536)"
Et si tu as toujours ".name dans ta formule, supprime-le dans ta ligne, mais j'ai testé (ce coup-ci) et avec .name, ça fonctionne ;)
Il y a sans doute plus sioux mais j'avais rencontré ce pb (yatrélontan) et je l'avais réglé ainsi.
S'il y a mieux, je ne demande qu'à apprendre.
A+
07/04/2008, 13h59
DIDIDIDA

c bon

tu sais j'utilise ta formule mais sans faire de boucle (c trop pour moi car je fais appel plusieur fois..) alors avant j'aisser d'avoir à quelle feuille correspond chaque numéro en suite je le met directement, et c parfait pour moi, alors tu m'a vraiment reglé un sacré probleme. merci encore une fois et bonne apres midi:P:P:king: