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 :
la ligne en gras ne marche bien entendu pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
merci à tous
Partager