Discussion :

[DIDIDIDA]

bonjour à tous
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 :

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

[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 :

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

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

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

Code :

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

1
2
Dim GRILLEAGRICULTURE As String
 GRILLEAGRICULTURE = [Feuil8].Name[Feuil11].Range("B5").FormulaLocal = "=SOMME("&GRILLEAGRICULTURE&"!D2:D65536)"

merci par avance

[DIDIDIDA]

c'est ça mon code:

Code :

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

[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

[ouskel'n'or]

As-tu essayé

Code :

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

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

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

[DIDIDIDA]

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 :

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

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

[DIDIDIDA]

tu sais il ya un petit probleme avec ça

Code :

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

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

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

Code :

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

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

or qu'il doit afficher

Code :

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

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

car AGRICULTURE correspond à Feuil3
et GRIILEAGRICULTURE correspond à Feuil8
je pense en faisant Sheets(8) ça correspond pas à Feuil 8?

[ouskel'n'or]

Alors passe par une boucle intermédiaire

Code :

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

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+

[DIDIDIDA]

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