Ouvrir document Word depuis Excel

[Robert]

Bonjour les amis

Tout dabord un grand merci à Gérard qui m'a été d'un grand secours lors de mes précédentes questions.
Merci à tous les bénévols qui nous viennent en aide.

Mon nouveau problême:
Depuis un fichier Excel, j'ai créé un bouton dont je voudrais le déroulement suivant:
Ouverture d'un fichier Word qui vient reprendre des données par publipostage dans le document Excel d'origine.

Merci de votre aide et longue vie à votre merveilleux Forum

A bientôt
Robert

 

[Robert]

Bonjour à tous

J'ai essayé la macro suivante:

Sub OpenWord()

Dim Wrd As Object

Application.ScreenUpdating = False

Set Wrd = CreateObject("word.Application")
Wrd.Visible = True
Wrd.documents.Open ("C:\Documents and Settings\michel\dossier\general\excel\test.doc")
End Sub

Malheureusement elle est trés longue à s'éxecuter

Merci de votre aide

 

[Silver Groover]

oui et par extension :

- ouvrir Word
- y copier des valeur d'excel
- imprimer Word

je relance cette question plutot que de recrée un sujet.

Utilisateur débutant en macro
Window XP, Office 97

Merci a tous

 

[Silver Groover]

et en prime :

- doc Word demande un password à l'ouverture : comment lui donner le password dans la macro ?

;o)

 

[michel]

bonjour Silver Groover

dans l'exemple joint , les donnees Excel ( plage A1:A9) sont copiees vers un document Word
le document Word est protegé par un mot de passe
le document Word est imprimé avant la fermeture et la sauvegarde des modifications

ce n'est qu'un exemple et tu auras certainement des adaptations à apporter pour ton projet


bonne journee
michel

 

[Silver Groover]

Bonjour Michel,

Merci bcp à toi (et aux autres qui contribut à ce forum)

;o)

 

[Silver Groover]

Bonsoir Michel,

Alors comme tu l'as précisé (testé sous XP), ya pas de problème.
Mais au boulot ya Office 97 et ca veut pas :

le doc word ne veut pas s'ouvrir : mot de passe dans langue inconnue (il n'y a meme pas la possibilité de le lui donner)

et donc la macro plante sur : Dim DocWord As Word.Document

As-tu la solution pour que cela fonctionne sous 97 ?

Petite question subsidaire : est-ce que l'environnement Window influence aussi (XP,2000, 98 etc...) sur la bonne marche d'une macro ?

Merci d'avance

 

[michel]

bonjour Silver Groover

ci joint une nouvelle version modifiée pour Excel97
( necessite d'activer la reference Microsoft Word 8.0 Object Library )


bonne journee
michel

 

[Silver Groover]

Yessssssssss

oups, bonjour Michel

Réponse dès le saut du jour !! Je suis au boulot et ca fonctionne à merveille.
Bon café, bonne journée

Marci ;o)