Titof06
XLDnaute Junior
Bonjour,
J'utilise le code ci-dessous qui fonctionne parfaitement mais me génère une erreur lorsque je quitte Excel.
Voici le code :
rep = "N:\Ecall_RDG\Supervision\Sup Centralisée\portail_supervision"
Application.Wait (Now + TimeValue("00:00:01"))
Range("A1:F40").Select
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, rep & "\Z_Nbr_Agents_Pauses_data.htm", _
"Stats", "$A$1:$F$40", xlHtmlStatic, "TEST_Nbr_Agents_Pauses_v3_32408", "")
.Publish (True)
.AutoRepublish = False
End With
Lorsque je quitte Excel j'ai ce message d'erreur ci-dessous.
Que je coche la case entourée en rouge ou pas, cela ne change rien.
Je ne comprends pas d'où cela provient.
Par avance, Merci.
Bonne Journée,
Titof06![Smile :) :)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
J'utilise le code ci-dessous qui fonctionne parfaitement mais me génère une erreur lorsque je quitte Excel.
Voici le code :
rep = "N:\Ecall_RDG\Supervision\Sup Centralisée\portail_supervision"
Application.Wait (Now + TimeValue("00:00:01"))
Range("A1:F40").Select
With ActiveWorkbook.PublishObjects.Add(xlSourceRange, rep & "\Z_Nbr_Agents_Pauses_data.htm", _
"Stats", "$A$1:$F$40", xlHtmlStatic, "TEST_Nbr_Agents_Pauses_v3_32408", "")
.Publish (True)
.AutoRepublish = False
End With
Lorsque je quitte Excel j'ai ce message d'erreur ci-dessous.
Que je coche la case entourée en rouge ou pas, cela ne change rien.
Je ne comprends pas d'où cela provient.
Par avance, Merci.
Bonne Journée,
Titof06