Erreur sur un Set nom=Activedocument.content

[phoque.r]

En fait j'ai un comportement que je ne comprends pas:

Je clique sur un bouton et ma macro marche bien le premier coup. Je recommence la macro, et là,

erreur 462
le serveur distant n'existe pas ou n'est pas disponible

et le débogage va sur ma ligne

Set nom=ActiveDocument.Content

Je précise que ma macro fait:
-ouvrir un fichier word
-le modifier
-l'imprimer
-le quitter sans enregistrer
-fermer word


Et donc la ligne qui plante au second lancement est placée juste après celle qui m'ouvre le document (aucun problème de ce côté là).
Je n'ai aucune idée de ce qui ne fonctionne pas, quelqu'un en a-t-il une?

Merci
phoque.r

 

[Catrice]

Re : Erreur sur un Set nom=Activedocument.content

Bonjour,

Tu ouvres Word en OLEautomation et Word est refermé quand tu réexecutes le code...
Mais je dis ça un peu au Pif, sans le code pas facile ....

 

[phoque.r]

Re : Erreur sur un Set nom=Activedocument.content

Je vais mettre ma macro simplifiée dans 5min
Je travaille sur un autre poste

 

[phoque.r]

Re : Erreur sur un Set nom=Activedocument.content

ThisWorkbook.Activate
n = Range("encours!a3")
chemin = ThisWorkbook.Path & "\Words\Etiquettes.doc"
Dim wordApp As Word.Application
Dim wordDoc As Word.Document
Set wordApp = CreateObject("Word.Application")
wordApp.Visible = True
M = Range("recherche!a1000").End(xlUp).Row
n = Round(M / 16)
If (n * 16) < M Then n = n + 1      [COLOR="Lime"]'Pour ma mise en page[/COLOR]
For i = 1 To n
an = ""
Set wordDoc = wordApp.Documents.Open(chemin)
Set MyRange = ActiveDocument.Content [COLOR="Red"]'Plantage ici[/COLOR]
   
   [COLOR="Lime"]  'Ici des instructions qui fonctionnent (testées suffisamment)[/COLOR]
 
 
 
wordApp.PrintOut
Application.Wait (Now + TimeValue("0:00:05")) 'Pour attendre que l'impression soit chargée
wordDoc.Close (wdDoNotSaveChanges)
Next i
wordApp.Quit

EDIT:
Précision:
il y a bien plusieurs passages dans ma boucle for, et donc plusieurs utilisations du Set MyRange... et ça ne plante pas. Ca plante uniquement quand je la relance

 

[phoque.r]

Re : Erreur sur un Set nom=Activedocument.content

Dans cette période disgestive, quelqu'un a-t-il une idée?

 

[MichelXld]

Re : Erreur sur un Set nom=Activedocument.content

bonjour

Set wordDoc = wordApp.Documents.Open(chemin)
Set MyRange = wordDoc.Content

Bonne soirée
MichelXld

 

[phoque.r]

Re : Erreur sur un Set nom=Activedocument.content

C'était bien ça
merci