Discussion :

[vali25]

Bonjour à tous

Je ne comprends pas d'où vient mon erreur.
J'ai l'erreur incompatibilité de type sur la ligne SumIfs

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub stk()
 
    Dim xlapp As New Excel.Application
    Dim xlbook As New Excel.Workbook
    Dim xlsheet As New Excel.Worksheet
    Dim poids as single
 
    Set xlbook = xlapp.Workbooks.Open("C:\Users\val\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

lorsque je teste ce code sans faire appel à ce classeur externe, tout marche très bien... Comme si la fonction sumifs ne pouvait pas être utilisé pour un classeur externe ??!!!

Merci de votre aide

[Theze]

Bonsoir,

As tu testé de cette façon ? Chez moi, ça me renvoi bien la somme en k10:k100 quand les conditions des autres plages sont réunies. Je pense que le problème viens de l'initialisation d'une des variables xlapp et xlbook mais difficile à dire quand ça fonctionne chez soi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub stk()
 
    Dim xlapp As Excel.Application
    Dim xlbook As New Excel.Workbook
    Dim xlsheet As New Excel.Worksheet
    Dim poids As Single
 
    Set xlapp = New Excel.Application
    Set xlbook = Application.Workbooks.Open("D:\Classeur1.xls")
    Set xlsheet = xlbook.Sheets("Feuil1")
    xlsheet.Select
 
    poids = WorksheetFunction.SumIfs(xlsheet.Range("k10:k100"), xlsheet.Range("d10:d100"), "52320", xlsheet.Range("f10:f100"), "4110000004")
    MsgBox poids
 
    Set xlsheet = Nothing
    Set xlbook = Nothing
    Set xlapp = Nothing
 
End Sub

Hervé.

[vali25]

je vais tester ton code.

je pense également qu'il y a un soucis avec ces variables car j'ai remédié au problème en copiant collant la feuille dans mon classeur actif et la fonction marche parfaitement.

ya donc bien un soucis avec ces variables. mais pourtant j'arrive à lire une cellule de cette feuille "xlsheet", c'est juste la fonction sumifs qui plante.

[Philippe Tulliez]

Bonjour,
Je n'ai pas testé le code VBA mais comme tu utilises WorksheetFunction.SumIfs, tu devrais avoir les mêmes erreurs qu'en utilisant simplement les fonctions Excel sans VBA.
Je suis en train de tester un paquet de fonctions Excel entre des classeurs qui sont liés.
La fonction SUMIF ou SOMME.SI renvoie une erreur si le classeur source est fermé.