Demande d'ouverture fichier VBA

Bonjour,

J'aimerai savoir comment faire pour que mon porgramme vba me demande, après appui sur le bouton "Valider",si je veux ouvrir ou non un doc word.

C'est à dire, je veux que quand j'appui sur "Valider", un message box s'ouvre et me demande :" Voulez vous ouvrir une FA?" Si oui, il m'ouvre le doc si non l'userform se ferme.

Quelqu'un pourrait-il m'aider svp.

Merci beaucoup

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub test()   Dim W Dim d Dim MonFichier As String MonFichier = "C:\test\test.doc" If MsgBox("Voulez vous ouvrir une FA?", vbYesNo) = vbYes Then Set W = CreateObject("word.application") W.Visible = True Set d = W.Documents.Open(MonFichier)   End If End Sub

---

Bonjour rdurupt,

Merci pour ton aide mais, j'ai un probléme quand mon s'ouvre!
En fait, quand mon fichier excel doit s'ouvrir, une feuille vierge s'affiche et j'ai un message d'erreur du type:

"Propriété ou méthode non géré par cet objet". Et c'est la dernière ligne du programme qui est surligné en jaune.

Peux tu m'aider?

Voici le programme:

Code:

---

1 2 3 4 5 6 7 8

Dim W Dim d Dim MonFichier As String MonFichier = "V:\30_QUALITE\300_Doc_Permanents\3004_Doc_Enregistrement\Fiche_anomalie.xls" If MsgBox("Voulez vous ouvrir une FA?", vbYesNo) = vbYes Then Set W = CreateObject("excel.application") W.Visible = True Set d = W.Documents.Open(MonFichier)

---

dans ta question tu parles de Doc Word!!
j'ai implémenté mon code pour WORD!

Code:

---

1 2 3 4 5 6

If MsgBox("Voulez vous ouvrir une FA?", vbYesNo) = vbYes Then ' Set W = CreateObject("word.application") ' W.Visible = True ' Set d = W.Documents.Open(MonFichier) Set d = Workbooks.Open(MonFichier) End If

---

Oups! Désolé...

Merci et pour un fichier pdf se serai quoi le code?

Code:

---

ThisWorkbook.FollowHyperlink Fichierpdf

---

Ca ne fonctionne pas, il marque :"Erreur de compilation. Attendu fin d'instruction"

j'ai trouvé ça sur le forum, j'ai fait un test concluent ??

Bonjour,

pour ouvrier un fichier avec l'application qui lui est rattachée, on peut utiliser
ShellExecute ou ShellExecuteEx.

Il y a je pense des exemples dans le forum. :D:D