XL 2013 Erreur de "Republication Automatique" à la fermeture du fichier.

[Titof06]

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

 

[sylvanu]

Bonjour Titof,
Pourrait on avoir un petit fichier test ... avec l'ensemble des macros ?
Les causes peuvent être nombreuses, et vont dépendre de votre fichier.

 

[Titof06]

Bonjour Sylvanu,

Merci pour cette rapide réponse.
Voici le fichier TEST.xlsm
La procédure se trouve dans le Module 2.

Par avance, Merci.

Bonne Journée,

Titof06

 

[sylvanu]

Bien complexe comme macros.

Une piste : L'erreur fait état d'un fichier TEST_Nbr_Agents_Pause_v3.htm or dans vos macros vous faites appel à TEST_Nbr_Agents_Pauses_v3.htm" ( "pauses" au pluriel )
En remplaçant tous les "Pauses" par "Pause" cela semble améliorer la situation.

Autre pointe : J'ai l'impression que dans Workbook_BeforeClose
Application.OnTime bddtime, "MAJ_BDD_Vigie", Schedule:=false est en commentaires.
Cette macro continue de tourner XL fermé, par contre cela doit générer une erreur puisque le contexte XL est fermé. ( mais cela n'a pas l'air d'être à l'origine du problème présent )

 

[Titof06]

Bonjour Sylvanu,

J'ai corrigé le "S" de "Pauses" et enlevé le commentaire de Application.OnTime.....hélas, idem, j'ai toujours cette erreur qui survient lorsque je quitte Excel.

Par contre, j'ai testé ce fichier sur un autre PC avec le même Excel, et là surprise, pas d'erreur lorsque je quitte Excel.

Est-ce qu'il y aurait un paramétrage dans Excel qui d'un côté me génère l'erreur et pas de l'autre côté ?

Là, je ne sais pas où aller chercher.

Par avance, Merci.

Bon Week-End,

Titof06