cs_stailer
Messages postés507Date d'inscriptionjeudi 28 mars 2002StatutMembreDernière intervention13 mai 2009
-
17 sept. 2002 à 17:03
codorue
Messages postés1Date d'inscriptionmardi 9 mars 2004StatutMembreDernière intervention26 octobre 2004
-
26 oct. 2004 à 16:37
Salut tout le monde !
Je viens de faire une liaison entre VB et Word... Mais voila, lorsque je lance 2 fois le module de liaison, à la seconde fois, il me donne une erreur 462 : serveur indisponible. J'ai essayé de rajouter un DDETerminateAll à la fin de ma source, mais rien n'y fait. En fait c'est l'objet "Selection" dans ma source qui est tout le problème.
AndyChut
Messages postés1Date d'inscriptionjeudi 12 décembre 2002StatutMembreDernière intervention12 décembre 2002 12 déc. 2002 à 18:46
J'ai le même problème sous Excel et je cherche la solution!
Je crée un document word depuis Excel et autant je contrôle avantavant création si un instance existe ou pas et j'en crée un avec:
Set wrdApp = New Word.Application
puis
Set wrdDoc = wrdApp.Documents.Add
et à la fin je ferme autant le document que je quitte word avec:
wrdDoc.Close
wrdApp.Quit
Set wrdDoc=Nothing
Set wrdApp=Nothing
Désolé mais ça ne fonctionne pas !
La première fois c'est bon, mais la seconde fois que je fais tourner le macro, ça se plante avec:
Erreur d'exécution '462'
Le serveur distant n'existe pas ou n'est pas disponible:
pourtant l'application WinWord a bien été fermé quand je regarde dans les ressources utilisées !
cs_sellig
Messages postés2Date d'inscriptionsamedi 9 décembre 2000StatutMembreDernière intervention30 juin 2003 30 juin 2003 à 20:37
Bonjour,
je travaille actuellement sur une base simple access
cependant je doit utiliser Word pour la création ou l'ouverture
d'un document existant. bien l'erreur 462 provient de l'objet
word.application
je m'explique :
déclaration [ Public Word_Application as Word.Application ]
ok
maintenant je l'utilise :
Word_Application.ActiveDocument.bookmarks("ici").Select
Word_Application.Selection.EndOf Unit:= wdWord, Extend:=wdExtend
Selection.range.Text = "nouveau texte"
j'avais oublier mon objet [Word_Application] avant Selection
Voila apres la correction ça MARCHE plus Aucune ERREUR
ne pas oublier l'utilisation du Block WITH cela evite pas mal d'erreur(s)...
With Word_Application
.ActiveDocument.bookmarks("ici").Select
.Selection.EndOf Unit:=wdWord, Extend:=wdExtend
.Selection.range.Text = "nouveau texte"
End With
j'espere vous avoir donner la soluce A+ Sellig
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_sellig
Messages postés2Date d'inscriptionsamedi 9 décembre 2000StatutMembreDernière intervention30 juin 2003 30 juin 2003 à 20:38
-------------------------------
Réponse au message :
-------------------------------
> Bonjour,
>
> je travaille actuellement sur une base simple access
> cependant je doit utiliser Word pour la création ou l'ouverture
> d'un document existant. bien l'erreur 462 provient de l'objet
> word.application
> je m'explique :
>
> déclaration [ Public Word_Application as Word.Application ]
> ok
> maintenant je l'utilise :
> Word_Application.ActiveDocument.bookmarks("ici").Select
> Word_Application.Selection.EndOf Unit:= wdWord, Extend:=wdExtend
> Selection.range.Text = "nouveau texte"
>
> j'avais oublier mon objet [Word_Application] avant Selection
> Voila apres la correction ça MARCHE plus Aucune ERREUR
> ne pas oublier l'utilisation du Block WITH cela evite pas mal d'erreur(s)...
>
> With Word_Application
> .ActiveDocument.bookmarks("ici").Select
> .Selection.EndOf Unit:=wdWord, Extend:=wdExtend
> .Selection.range.Text = "nouveau texte"
> End With
>
> j'espere vous avoir donner la soluce A+ Sellig
>
>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > J'utilise aussi un lien entre vb et word et j'ai le même problème
> > Aidez moi s'il vous plait ?
> >
> > MERCI
> > mahher
> >
> >
> > -------------------------------
> > Réponse au message :
> > -------------------------------
> >
> > > J'ai le même problème sous Excel et je cherche la solution!
> > > Je crée un document word depuis Excel et autant je contrôle avantavant création si un instance existe ou pas et j'en crée un avec:
> > >
> > > Set wrdApp = New Word.Application
> > > puis
> > > Set wrdDoc = wrdApp.Documents.Add
> > >
> > > et à la fin je ferme autant le document que je quitte word avec:
> > > wrdDoc.Close
> > > wrdApp.Quit
> > > Set wrdDoc=Nothing
> > > Set wrdApp=Nothing
> > >
> > > Désolé mais ça ne fonctionne pas !
> > >
> > > La première fois c'est bon, mais la seconde fois que je fais tourner le macro, ça se plante avec:
> > > Erreur d'exécution '462'
> > > Le serveur distant n'existe pas ou n'est pas disponible:
> > >
> > >
> > > pourtant l'application WinWord a bien été fermé quand je regarde dans les ressources utilisées !
> > >
> > > Merci, si qqun arrive à trouver la solution !
> > >
> > > Andy
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > Si tu ferme l'appli word (WrdApp.Quit), fais Set WrdApp=Nothing pour supprimer totalement le processus.
> > >
> > >
> > >
> > > -------------------------------
> > > Réponse au message :
> > > -------------------------------
> > >
> > > Salut tout le monde !
> > >
> > > Je viens de faire une liaison entre VB et Word... Mais voila, lorsque je lance 2 fois le module de liaison, à la seconde fois, il me donne une erreur 462 : serveur indisponible. J'ai essayé de rajouter un DDETerminateAll à la fin de ma source, mais rien n'y fait. En fait c'est l'objet "Selection" dans ma source qui est tout le problème.
> > >
> > > Quelqu'un aurait il une idée ?
> > >
> > > Merci d'avance.
> > > Stailer
> > >
> > >
> >
>
En clair pour supprimer l'erreur, par exemple pour le code suivant :
With Word_Application
.ActiveDocument.bookmarks("ici").Select
.Selection.EndOf Unit:=wdWord, Extend:=wdExtend
.Selection.range.Text = "nouveau texte"
End With