PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2024 → détecter si un document ord est déjà ouvert
détecter si un document ord est déjà ouvert
Débuté par Lallau Olivier, 30 juin 2005 12:11 - 2 réponses
Posté le 30 juin 2005 - 12:11
bonjour

on réalise des fusions de documents avec word et notre base hyperfile
ça fonctionne très bien : on ouvre le doc, on fusionne et on l'enregistre dans un document que l'on appelle docfusion.doc

problème si on ne ferme pas le document word en question ou même word on obtient ce message d'erreur lorsque l'on veut déclarer l'objet OLE WORD :

Erreur à la ligne 49 du traitement Clic sur BT_VALID1.
Vous avez appelé la méthode Automation 'saveas'.
En tentant d'invoquer la méthode <saveas> ou de lire la propriété <saveas>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 800A1421 : Impossible d'enregistrer un document sous le nom d'un document ouvert.
Veuillez taper un nom différent pour le document que vous souhaitez enregistrer.
(C:\...\Mes documents\DocFusion.doc)'
En tentant d'invoquer la méthode <saveas>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 800A1421 : Impossible d'enregistrer un document sous le nom d'un document ouvert.
Veuillez taper un nom différent pour le document que vous souhaitez enregistrer.
(C:\...\Mes documents\DocFusion.doc)'
En tentant de lire la propriété <saveas>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 800A16E6 : 'SaveAs' n'est pas une propriété.'

En tentant d'écrire la propriété <saveas>, l'objet Automation/ActiveX a renvoyé l'erreur suivante :
'Erreur 800A16E6 : 'SaveAs' n'est pas une propriété.'

donc comment vérifier si word n'est pas ouvert ou au moins un document précis : docfusion.doc

merci
cordialement
olivier
Posté le 01 juillet 2005 - 14:08
Bonjour,

Votre méssage a retenu toute mon attention car je travaille actuellement sur le même probleme.


Par contre , je me plante au niveau de la fusion

Mon modele s'ouvre bien et les instruction suivantes à éxecuter sont :

// on prépare le publipostage vers un nouveau document
:m_xWord>>ActiveDocument>>MailMerge>>Destination=0
Multitâche(-30)

// on fusionne vers un nouveau document
:m_xWord>>ActiveDocument>>MailMerge>>Execute(Faux)
Multitâche(-30)

et le message

" erreur 800A16DC " L'objet demandé n'est pas disponible"

Je n'en suis pas encore à la sauvegarde du Docfusion.doc, mais je me propose alors de vous communiquer mon avancement.


Cordialement
R.girard
Posté le 04 juillet 2005 - 11:45
Bonjour,

Essaye de tester pour tous les documentsd ouverts.

i = classeWord>>Documents>>count

POUR y = 1 A I
nomdudocument = classeWord>>Documents>>[Item, y]>>Name
FIN

Cordialement

C.AUBRY