vali25
Messages postés5Date d'inscriptionmardi 13 octobre 2009StatutMembreDernière intervention 6 mai 2011
-
5 mai 2011 à 19:20
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 2015
-
6 mai 2011 à 15:30
Bonjour
pouvez vous m'aider, j'ai l'erreur "incompatibilité de type" qui apparait sur la ligne de la fonction sumifs.
pourtant ce code marche parfaitement lorsque je ne fais pas appel à ce classeur externe...
Sub stk()
Dim xlapp As New Excel.Application
Dim xlbook As New Excel.Workbook
Dim xlsheet As New Excel.Worksheet
Set xlbook = xlapp.Workbooks.Open("C:\Users\Valérie\Desktop\bddstk.xlsx")
Set xlsheet = xlbook.Sheets("Feuil1")
xlsheet.Select
poids = WorksheetFunction.SumIfs(xlsheet.Range("k10:k100"), xlsheet.Range("d10:d100"), _
"52320", xlsheet.Range("f10:f100"), "4110000004")
xlbook.Close
xlapp.Quit
Set xlsheet = Nothing
Set xlbook = Nothing
Set xlapp = Nothing
End Sub
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 5 mai 2011 à 20:24
En regardant l'aide de cette fonction, dans l'exemple, je vois que les conditions (3ème paramètre) sont du genre
"<>Bananes"
Le tien est "52320".
As-tu essayé "=52320" ?
vali25
Messages postés5Date d'inscriptionmardi 13 octobre 2009StatutMembreDernière intervention 6 mai 2011 6 mai 2011 à 07:31
je ne pense pas que cela vienne de là, car comme je disais j'ai testé le même code sans faire référence à ce classeur externe.
le "=" est par défaut en fait.
J'ai l'impression d'avoir un problème sur l'appel de la fonction vers des cellules de cette feuille déclarée juste au dessus.
J'ai remedié au problème en copiant collant la feuille dans mon classeur actif afin de lancer la fonction sumifs... mais bon là je suis en train de détourner le problème !!
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 6 mai 2011 à 11:41
Ce serait étonant : ton classeur est ouvert dans les règles.
Peut-être faudrait-il désigner l'application associée au classeur, du genre :
poids = xlbook.Application.WorksheetFunction.SumIfs(...
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 6 mai 2011 à 15:30
Ah mais je reviens sur l'erreur "incompatibilité de type".
As-tu vérifié si les données de tes colonnes sont bien toutes numériques ?
C'est peut-être ça qui coince, tout simplement.