[XL-2003] Ouvrir document word depuis excel avec boite de dialogue [Résolu]

[gtkill]

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

[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()

[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

[corona]

Bonjour,
Un petit coup d’œil sur ce document

[Sclarckone]

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!

[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

[Sclarckone]

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 :

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.