Macro ouvrir word depuis excel

Résolu/Fermé

fafs Messages postés 17 Date d'inscription vendredi 30 novembre 2007 Statut Membre Dernière intervention 12 décembre 2007 - 12 déc. 2007 à 12:08
AlX - 27 juil. 2009 à 11:26

Bonjour,

je viens de parcourir le forum, et je n'arrive pas à trouver la réponse.

J'ai créé un userform sur lequel j'ai ajouté un bouton. Je voudrais que ce bouton ouvre un fichier WORD.

J'ai essayé :Shell "Winword.exe C:\Program Files\Microsoft Office\Office\Essai.doc",vbMaximizedFocus celà ouvre word mais pas mon fichier

merci

Marine

A voir également:

Macro ouvrir word depuis excel
Supprimer une page word - Guide
Liste déroulante excel - Guide
Word excel gratuit - Guide
Espace insécable word - Guide
Ouvrir fichier .bin - Guide

11 réponses

Réponse 1 / 11

rescue Messages postés 1039 Date d'inscription vendredi 16 novembre 2007 Statut Contributeur Dernière intervention 27 mars 2019 136
12 déc. 2007 à 12:15

Bonjour,

Tu crées une macro qui va chercher le fichier word en question et tu copie cette macro dans ton bouton.

@+

Réponse 2 / 11

néné
12 déc. 2007 à 12:25

BJR

ESSAIE CE CODE

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub ShellOuvre()
Dim fich
fich = "Lecteur\Chemin\Complet\Et\Fichier.doc"
ShellExecute 0, "open", fich, "", "", 0
End Sub

Réponse 3 / 11

fafs Messages postés 17 Date d'inscription vendredi 30 novembre 2007 Statut Membre Dernière intervention 12 décembre 2007
12 déc. 2007 à 12:37

bonjour néné,

j'ai mis exactement ce que tu m'a donné
Private Sub essai_Click()
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub ShellOuvre()
Dim fich
fich = "C:\Documents and Settings\poste\Bureau_essai.doc"
ShellExecute 0, "open", fich, "", "", 0

End Sub

mais j'ai un message d'erreur :
erreur de complitation : seuls les compilations peuvent apparaître après end sub, end fonction ou end property

et comme je suis débutante, je ne sais ce que cela veut dire

Marine

Réponse 4 / 11

néné
12 déc. 2007 à 12:42

il faut que

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

soit tout en haut du module

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 11

néné
12 déc. 2007 à 12:50

Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub ShellOuvre()
Dim fich
fich = "C:\Documents and Settings\poste\Bureau_essai.doc"
ShellExecute 0, "open", fich, "", "", 0
End Sub

copie le code ci-dessus dans un module et non sur ton bouton

voici le code qu'il faut sur ton bouton

Private Sub essai_Click()
ShellOuvre
End Sub

Réponse 6 / 11

fafs Messages postés 17 Date d'inscription vendredi 30 novembre 2007 Statut Membre Dernière intervention 12 décembre 2007
12 déc. 2007 à 13:45

rien ne se passe,

j'ai refait plusieures fois la mnip et au final j'ai ouvert un autre fichier excel

inséré dans le module le texte que tu m'as donné.

puis crée un bouton dans mon fichier et insrit le 2ème texte.

je n'ai pas de message d'erreur mais rien ne se passe.

Réponse 7 / 11

néné
12 déc. 2007 à 14:36

Je viens de faire des essais et cela fonctionne mais il ne faut pas que le fichier DOC soit dans le répertoire Documents and setting

le mettre dans un autre répertoire comme par exemple

c:\fichiers\doc\

Réponse 8 / 11

fafs Messages postés 17 Date d'inscription vendredi 30 novembre 2007 Statut Membre Dernière intervention 12 décembre 2007
12 déc. 2007 à 15:43

effectivement, j'ai déplacé mon fichier essai sur C: et ça marche merci beaucoup .....super génial

maintenant il faut que j'arrive à trouver comme aller chercher mon vrai fichier et non plus mon fichier "essai" mais au moins je sais que cela fonctionne!!!

merci beaucoup pour ton aide

je fais mes essais

Réponse 9 / 11

fafs Messages postés 17 Date d'inscription vendredi 30 novembre 2007 Statut Membre Dernière intervention 12 décembre 2007
12 déc. 2007 à 16:01

ça marche

c'est super

bonnes fêtes de fin d'année

au plaisir

Réponse 10 / 11

AlX
27 juil. 2009 à 11:23

Bonjour,

Débutant en VBA, j'aimerais pousser la manip précédente...

Une fois le .doc ouvert, j'aimerais pouvoir couper la valeur de la première ligne et l'insérer dans excel....

Ce pour laisser la ligne suivante pour la prochaine utilisation de la macro...

Ex:

222 <---------- Copier ça dans Excel puis l'effacer pour que la prochaine fois que j'active la macro ça copie "223"
223 au lieu de "222"
224

Merci d'avance pour votre aide.

Al-X

Réponse 11 / 11

AlX
27 juil. 2009 à 11:26

Mon graph n'est pas clair

222 <---------
223
224
.........

Prochaine ouverture:

223
224
..........

Merci

Newsletters