Ouvrir document word depuis excel avec boite de dialogue

Version imprimable

Bonjour,

Je souhaite ouvrir un document word depuis une macro excel.
J'ai réussi en pointant un fichier directement, mais je n'y arrive pas en voulant ouvrir une boite de dialogue pour choisir le fichier à ouvrir.

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim waza As Object Set waza = CreateObject("Word.Application") Sheets("Feuil1").ChartObjects("Graphique 6").Activate ActiveChart.Parent.Height = 220 ActiveChart.Parent.Width = 500 ActiveChart.ChartArea.Copy waza.ChangeFileOpenDirectory ThisWorkbook.Path waza.FileDialog (msoFileDialogFilePicker) waza.Visible = True waza.Selection.Goto , , , "graphique" waza.Selection.PasteAndFormat (wdChartLinked) waza.Visible = True
la ligne en gras ne marche bien entendu pas

merci à tous

22/08/2011, 13h58
Sclarckone
Je pense qu'il faut instancier un objet FileDialog pour que cela fonctionne:
Code:

1 2 3 Dim fldTest As Word.Application.FileDialog Set fldtest = waza.FileDialog (msoFileDialogFilePicker)
Mais si tu veux juste récupérer le nom du fichier à ouvrir, il y a une méthode pour cela:
Code:

1 2 waza.GetOpenFileName()
22/08/2011, 15h46
gtkill

Merci de ta réponse,

cependant, la première ligne me met une erreur de compilation,

et le getopenfilename me renvoie une erreur 438 :
"propriété ou méthode non gérée par cet objet" car il me semble que word ne le gère pas
22/08/2011, 16h09
Philippe Tulliez

Bonjour,
Un petit coup d’œil sur ce document
22/08/2011, 17h11
Sclarckone
Citation:

Envoyé par gtkill

Merci de ta réponse,

cependant, la première ligne me met une erreur de compilation,

et le getopenfilename me renvoie une erreur 438 :
"propriété ou méthode non gérée par cet objet" car il me semble que word ne le gère pas

Et ce n'est pas étonnant...VBA permet d'utiliser des objets/variables faiblement typés mais c'est dangereux. Pour ton problème voilà quelque chose de plus propre:
Code:

1 2 3 4 5 Dim wdApp As Word.Application, wdDoc As Word.Document Set wdApp = New Word.Application Set wdDoc = wdApp.Documents.Open(FileName:=strPath, Visible:=True)
Où est strPath est une variable de type string contenant le chemin du fichier à ouvrir.

Pour récupérer ce chemin, cf. le lien que t'as donné corona!

merci, j'ai trouvé grâce à ton lien,

au final voici le code pour juste ouvrir le document word depuis excel :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim waza As Object
    Set waza = CreateObject("Word.Application")
    waza.Visible = True
    Dim dlg As FileDialog
    Dim strPath As String
    Set dlg = waza.FileDialog(msoFileDialogFilePicker)
    With dlg
    .InitialFileName = "C:\temp\"
    .AllowMultiSelect = False
    .Title = "www.developpez.com"
    .Show
    End With
    strPath = dlg.SelectedItems(1)
    waza.Documents.Open strPath

Citation:
Envoyé par gtkill
merci, j'ai trouvé grâce à ton lien,

au final voici le code pour juste ouvrir le document word depuis excel :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim waza As Object Set waza = CreateObject("Word.Application") waza.Visible = True Dim dlg As FileDialog Dim strPath As String Set dlg = waza.FileDialog(msoFileDialogFilePicker) With dlg .InitialFileName = "C:\temp\" .AllowMultiSelect = False .Title = "www.developpez.com" .Show End With strPath = dlg.SelectedItems(1) waza.Documents.Open strPath
Oui ça permet d'ouvrir ton document. Fais tout de même attention que ton objet waza est l'application Word et pas le document que tu as ouvert au sein de l'application.

Donc si tu veux après accéder à ton document tu sera obligé de passer par la collection Documents de ton objet waza.

Pour accéder directement au document, cf. mon post précédent.