Pas d'ouverture de page : FollowHyperlink
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 :
Code:
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 |
Seulement, quand je lance ma procédure j'ai d'abord ce message :
"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
