Macro ouvrir word depuis excel
Résolu
fafs
Messages postés
17
Date d'inscription
Statut
Membre
Dernière intervention
-
AlX -
AlX -
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
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
- Word et excel gratuit - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Word 2013 - Télécharger - Traitement de texte
- Comment ouvrir un fichier epub ? - Guide
- Tableau word - Guide
11 réponses
Bonjour,
Tu crées une macro qui va chercher le fichier word en question et tu copie cette macro dans ton bouton.
@+
Tu crées une macro qui va chercher le fichier word en question et tu copie cette macro dans ton bouton.
@+
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
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
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
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
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
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
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
(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
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.
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.
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\
le mettre dans un autre répertoire comme par exemple
c:\fichiers\doc\
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
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
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
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