Bonjour,
Je travaille sur Mac. J'utilise Excel 2011. Je souhaite que mon code ouvre dans une page internet un examen de stock.
Mon code est le suivant :
Seulement, quand je lance ma procédure j'ai d'abord ce message :
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
23 Sub Exam() init Open Chem + "alerte.htm" For Output As #1 Print #1, "<html><body><pre>" + vbCr; Print #1, "<h2>Warning Inventory as of " + Format(Date, "dd/mm/yyyy") + "</h2>" + vbCr; For LStock = 8 To 32000 If IsEmpty(ShStock.Cells(LStock, KMat)) Then Exit For PrenDon If Stock <= (1.1 * Stal) Then If Stock <= Stal Then Mess = "Inventory warning reaches for " + Mat + " " + Ref Datc = CStr(ShStock.Cells(LStock, Kdcec).Value) If Datc <> "" Then Mess = Mess + vbCrLf + "Order the " + Datc Else Mess = "Inventory warning near reached for " + Mat + " " + Ref End If Print #1, Mess + vbCr; End If Next LStock Print #1, "</pre></body></html>" + vbCr Close #1 WkProg.FollowHyperlink Address:=Chem + "alerte.htm", NewWindow:=True End Sub
"Ouverture de :... Certains fichiers peuvent contenir des virus... Voulez-vous ouvrir ce fichier?"
Je clique sur OK.
Une page web s'ouvre mais avec le message suivant : "Cette page Web est introuvable". L'adresse de la page est : file:///.file/id=6571367.23639124
Cependant, sur le bureau, j'ai le fichier "alerte.htm" tel que je voudrais l'avoir dans la page internet.
Savez-vous ce qui se passe? Comment régler le problème?
Merci d'avance
Partager