Aller de excel vers WORD par une macro ??

[essonne91200]

Bonjour à tous, je voudrais aller d'un tableau excel via une macro aller ouvrir un fichier WORD cela est-il possible ? et si OUI Comment faire !
Par avance merci à tous pour vos nombreuses réponses. A bientôt😉

 

[Evelynetfrancois]

Re : Aller de excel vers WORD par une macro ??

bonjour essonne91200

Sub wordd()
Shell "WINWORD ", vbMaximizedFocus
End Sub

a tester

E et F

 

[pierrejean]

Re : Aller de excel vers WORD par une macro ??

bonjour essonne91200

Salut Evelynetfrancois

une version qui suppose etre allé en Outils > references
et avoir coché Microsoft Word xxx

Dim appWD As Word.Application
Set appWD = CreateObject("Word.Application")
appWD.Documents.Open Filename:="C:\AB001.doc"
appWD.Visible = True

 

[essonne91200]

Re : Aller de excel vers WORD par une macro ??

Merci pour ta reponse, je pensais arriver tout seul a ouvrir ensuite un fichier du style Workbooks.Open filename:="c:mes doc\ tyty.doc mais je bloque

 

[essonne91200]

Re : Aller de excel vers WORD par une macro ??

Bonjour peirrejean, la syntaxe de evelynetfrancois fonctionne mais apres je suis bloquer pour ouvrir un fichier Word bien determiner du style
Workbooks.Open filename:="c:\mes doc\tyty.doc"
Merci a tous de vous préoccupper de ma petite histoire
Salutations

 

[pierrejean]

Re : Aller de excel vers WORD par une macro ??

re essonne

j'ai aussi testé la syntaxe d'evelynetfrancois mais comme toi je ne peux aller plus loin
c'est pourquoi je t'ai proposé l'autre solution
l'as-tu testée ?
(avec adaptation evidemment)

 

[Evelynetfrancois]

Re : Aller de excel vers WORD par une macro ??

bonjour pierrejean et re essonne
je pensais à un fichier Word vierge !!!
voila pour ouvrir un fichier défini : ici popopo.doc

definir le chemin

Sub wordd()
Shell "WINWORD " & Chr(34) & "C:\documents and settings\user\mes documents\popopo.doc" & Chr(34), vbMaximizedFoc
End Sub

ou bien (meme resultat)

Sub worddd()
MyAppID = Shell("Winword.EXE ""C:\documents and settings\user\mes documents\popopo.doc""", 1)
AppActivate MyAppID
End Sub

E et F

 

[essonne91200]

Re : Aller de excel vers WORD par une macro ??

Je n'avais pas vu que vous m'aviez envoyer toutes ces solutions donc je cherchais de mon coté et j'ai réussi a trouver ceci
Sub ENV_LYON()
ThisWorkbook.FollowHyperlink "C:\Documents and Settings\ERICK\Mes documents\MES ENVELOPPES\ENV SOFT-ADS RILLEUX LA PAPE.doc"
End Sub

Et ca fonctionne encore 1000 mercis a vous trois
Bon dimanche a bientot sur le forum
salutations