Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Titof06

XLDnaute Nouveau
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
 

Pièces jointes

  • 1603449090730.png
    99.1 KB · Affichages: 9

Titof06

XLDnaute Nouveau
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
 

Pièces jointes

  • TEST.xlsm
    190.5 KB · Affichages: 2

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

XLDnaute Nouveau
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…