Discussion :

[ced0802]

Bonjour à tous,

J'aurais besoin d'un petit coup de main concernant la macro suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Stock_cbdd()
 
mycbd = [S3]
Mypartial = [S5]
 
Dim wkb As Workbook
Set wkb = Workbooks.Open("C:\stocks.xlsx")
 
Stock = Application.WorksheetFunction.SumIfs(wkb.Worksheets("wms_browse").Range("G2:G2056"), _
wkb.Worksheets("wms_browse").Range("D2:D2056"), mycbd, wkb.Worksheets("wms_browse").Range("N2:N2056"), "=" & Mypartial)
 
[T3] = Stock
 
End Sub

MESSAGE ERREUR :

Erreur d'execution 1004.
C:\stocks.xlsx introuvable. Verifiez l'orthographe du nom du classeur et la validité de l'emplacement.

Merci à vous par avance !

[Pierre Fauconnier]

Bonjour,

A priori, le message d'erreur signale que le fichier n'a pas été trouvé à l'emplacement... C'est tellement explicite que je suis perplexe par rapport à la question posée.

Le fichier est-il présent sur la racine du disque C Son extension est-elle valide?

Je ne vois pas d'autre piste que celle-là face à un message d'erreur aussi clair que celui-là