Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2071 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  {resolu}[vba-access] problème avec "word.application"

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

{resolu}[vba-access] problème avec "word.application"

n°1430100
ippat
Posté le 23-08-2006 à 17:38:25  profilanswer
 

bonjour tout le monde
 
Je suis entrain de faire un programme qui me génère des factures à partir des informations d'une base de données et voici un bout de mon code :
 
 
-------------------------------------------------------------
'je declare ma variable
Dim wdapp As Word.Application
.
.
.
 
'creation de la copie du model de facture
Set demande = CreateObject("scripting.filesystemobject" )
Set demande2 = demande.getfile("C:\facture.doc" )
.
.
.
'creation d'un document word avec le model precedent
chemin_fichier = "C:\" & nom & "_" & prenom & "_facture.doc"
demande2.Copy (chemin_fichier)
.
.
.
'traitement du document
Set wdapp = CreateObject("Word.application" )
Documents.Open chemin_fichier      <-
Documents(chemin_fichier).Activate
.
.
.
'fermeture du word.application
wdapp.Application.Quit               <-
--------------------------------------------------------------
 
 
Voila, mon problème est que si jamais je laisse mon code tel qu'il est, si jamais je fais une boucle sur le bout de code précedent, le programme plante et me dis :
 
" Erreur d'exécution '462': Le serveur distant n'éxiste pas ou  n'est pas disponible "
 
et le debugger m'envoie sur la ligne "Documents.Open chemin_fichier"
 
 
Et sinon deuxième solution si j'enlève la dernière ligne "wdapp.Application.Quit" le programme marche, il peut boucler plusieurs fois le bout de code précedent mais je me retrouve à la fin avec plusieurs application word qui tourne en arrière plan et c'est embetant surtout quand je dois générer plusieurs centaines de factures.
 
 
Voila est ce quelqu'un a déja été confronter à ce genre de problème et a pu le resoudre ?
 
 
Merci


Message édité par ippat le 23-08-2006 à 19:07:08
mood
Publicité
Posté le 23-08-2006 à 17:38:25  profilanswer
 

n°1430181
ippat
Posté le 23-08-2006 à 19:06:42  profilanswer
 

On m'a donné la solution : il suffisait de mettre wdapp devant Document
comme cela
 
---------------------------------------
'traitement du document  
Set wdapp = CreateObject("Word.application" )  
wdapp.Documents.Open chemin_fichier        
wdapp.Documents(chemin_fichier).Activate
----------------------------------------
 
cela permet apparemment de distinguer le documents de word de celui d'access.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  {resolu}[vba-access] problème avec "word.application"

 

Sujets relatifs
SQL Access Regrouper tous les champsprobleme avec site web et nom de domaine
probleme avec la fonction socket_sendproblème de bordure
[Delphi] Question sur ADOQuery et INSERT INTO [Résolu]Problème de fenêtre
Problème avec un lien repertoireEasyPHP 1.8 - MySQL s'est arrêté d'une façon innatendue ! [RÉSOLU]
[VBA] [Résolu] Appel foireux d'une classe d'arbre binaireprobleme de php dans javascript.... help!!!
Plus de sujets relatifs à : {resolu}[vba-access] problème avec "word.application"


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR