Discussion :

[flav_cm]

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.

[SfJ5Rpw8]

Bonjour,

que tu travaille sur un fichier placé sur un serveur de fichier où pas n'as pas d'importance :

.....[*] "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.
...

il s'agit du serveur d'automation qui te permet d'utiliser dans ton cas Word depuis excel ... tout se passe sur ta machine


comme dans ton présent post tu devrais continuer à préfixer les objets word ..

essai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
wordDoc.Tables(6).Columns(1).Width = WordApp.CentimetersToPoints(0.5)

[flav_cm]

Bonjour et merci pour vos réponses rapides !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
wordDoc.Tables(6).Columns(1).Width = WordApp.CentimetersToPoints(0.5)

Niquel cette solution, j'ai du mal à savoir quels objets je dois préfixer justement...
par contre du coup ça me décale l'erreur quelques lignes plus loin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
wordDoc.Bookmarks("GrosOeuvre").Range.PasteExcelTable False, False, False
DoEvents
wordDoc.Tables(6).Columns(1).Width = wordApp.CentimetersToPoints(0.5)
For Each cell In Range(Cells(6, 3), Cells(5 + m, 3)).Cells
   If IsEmpty(cell) Then wordDoc.Tables(6).cell(Row:=i, Column:=1).Merge mergeTo:=wordDoc.Tables(6).cell(Row:=i, Column:=2)
Next cell

Comment pourrais-je préfixer correctement ma fusion ?

aziz1015, j'ai bien vu cette discussion mais sans y trouver mon bonheur...

Merci d'avance!


EDIT : mon erreur n'était pas la même et n'avait rien à voir avec ça, autant pour moi...

[SfJ5Rpw8]

Prefixe les tous ...

tu utilise des objets range et Cells ... non prefixé .... s'il s'agit d'objet excel préfixe les avec quelque-chose du genre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkBook.Sheets("Mafeuille").Range(

[aziz1015]

Bonjour,

http://www.developpez.net/forums/d15...ation-d-macro/

Cordialement