Demande d'ouverture fichier VBA

**Rob's** · 25/06/2013, 13h37

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

Invité · 25/06/2013, 13h50

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Rob's** · 25/06/2013, 14h54

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

Invité · 25/06/2013, 15h03

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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