Bonjour,

J'édite des rapports Word depuis Excel (grâce à des signets présents dans des rapports types).

L'erreur 462 apparait à la troisième des lignes suivantes :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
wordDoc.Bookmarks("GrosOeuvre").Range.PasteExcelTable False, False, False
DoEvents
wordDoc.Tables(6).Columns(1).Width = CentimetersToPoints(0.5)
Je ne parviens pas à régler cette erreur (malgré ma tentative avec DoEvents) et encore moins à la comprendre. En effet :
  • "Erreur d'exécution '462' : le serveur distant n'existe pas ou n'est pas disponible" --> je travaille justement sur mon propre disque dur pour ne pas avoir de soucis avec les accès aux serveurs en ligne.
  • l'erreur se produit la première fois que j'édite un rapport. Si je laisse ensuite ce rapport ouvert dans word et que j'en édite un deuxième, l'erreur n'apparait plus...


Pour info, j'enregistre mon fichier type (bien avant ces lignes) de la manière suivante :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
wordApp.ActiveDocument.SaveAs (NveauNom)
Auriez-vous des pistes ou des recommandations pour isoler et résoudre mon problème ?

En espérant avoir été clair, merci d'avance pour votre aide.