Bonjour,

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

@+

Le droit de savoir appartient à tous le monde
Portable Acer TravelMate 4020 triple boot : Ubuntu, OpenSuse, XP Pro

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

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

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

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.

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\

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

ça marche

c'est super

bonnes fêtes de fin d'année

au plaisir

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

Mon graph n'est pas clair

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

Prochaine ouverture:

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


Merci