Bonjour à tous,

Pas évident de donner un titre explicite à ce problème...mais la finalité est bien de faire de la gestion d'erreur, sauf si vous avez une autre alternative.

Mon code va ouvrir un fichier Word via ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Set wrd = CreateObject("Word.Application")
wrd.DisplayAlerts = wdAlertsNone
wrd.Documents.Open "http://igd.com/projects/quality/cte/igdumr.nsf/VueDev18/STDM_MT5_NTE_002/$File/mt5_nte_002.doc?OpenElement"
Application.DisplayAlerts = False
wrd.visible = True
wrd.ActiveDocument.SaveAs2 "C:\temp\EMT_cales.doc", AllowSubstitutions:=True
wrd.ActiveDocument.Close
wrd.DisplayAlerts = wdAlertsAll
wrd.Quit
Le lien http est un lien intranet. Or il se trouve que cette base intranet est très peu fiable et régulièrement en rade.
Quand mon code s'exécute alors que cette base est en rade, l'ouverture mouline, mouline...puis plante le PC sans aucun message d'erreur préalable.
Auriez-vous une idée pour tester auparavant le lien, ou bien au bout d'une certaine tempo abandonner l'ouverture ou quelque chose dans le genre...

D'avance merci pour votre aide !!!