Enregistrement d'un fichier Word à partir d'une macro excel

Version imprimable

Contexte :
Le fichier word à enregistrer est modèle de document qui a été ouvert et modifié par une macro dans un fichier excel.

Problème :
Mes recherches restent infructueuses pour la ligne de code permettant d'enregistrer le doc crée en .doc en passant par une boite de dialogue afin de préciser la destination du fichier avec un nom proposé ...(ici PPGD)

J'ai essayé ceci sans succès :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub PPGD() Dim oWdDoc As Object Dim oWdApp As Object '[...le reste de la macro (qui fonctionne)...] 'Rendre le document Word visible oWdApp.Visible = True 'Enregistrer le fichier en PPGD.doc dans un dossier à préciser oWdDoc.Dialogs.Item(wdDialogFileSaveAs).Show "PPGD" & ".doc" 'Fermer Word oWdApp.Quit
NB : Je suis débutant, il s'agit de ma première question, soyez indulgent ... ;)

Un petit exemple testé:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
  Dim oWdDoc As Object
  Dim oWdApp As Object
  Dim fdFolder As FileDialog
  Dim strPath As String
 
  Set oWdApp = New Word.Application
  Set oWdDoc = oWdApp.Documents.Add
  oWdApp.Visible = True
 
  Set fdFolder = Application.FileDialog(msoFileDialogFolderPicker)
  fdFolder.Show
  strPath = fdFolder.SelectedItems(1)
  oWdDoc.SaveAs strPath & "\" & "PPGD.DOC"
  oWdApp.Quit
  Set oWdDoc = Nothing
  Set oWdApp = Nothing

23/04/2008, 08h30
GTBouli

Merci, un grand pas a été réalisé ... :king:

Mais si les lignes demande le dossier de destination, elles ne demandes pas le nom du fichier ... :?

J'ai modifié afin que ce dernier soit fonction d'une valeur de cellule de mon tableau excel ...

Mais bon je reste preneur d'info supplémentaire.
23/04/2008, 08h39
AlainTech

Tu veux un nom proposé mais pas imposé?
23/04/2008, 08h43
GTBouli

exactement

Je viens de me battre avec les FileDialogs et je me rends compte qu'ils sont nettement moins souples que je ne l'avais imaginé.
J'en reviens donc au GetSaveAsFilename.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  Dim oWdDoc As Object
  Dim oWdApp As Object
  Dim strPath As Variant
 
  Set oWdApp = New Word.Application
  Set oWdDoc = oWdApp.Documents.Add
  oWdApp.Visible = True
 
  strPath = Application.GetSaveAsFilename("PPGD", "*.doc,*.doc")
  If Not strPath = False Then
    oWdDoc.SaveAs strPath
  End If
  oWdApp.Quit
  Set oWdDoc = Nothing
  Set oWdApp = Nothing

23/04/2008, 10h50
GTBouli

Merci beaucoup.

Fonctionne nickel :yaisse2:

Citation:

Envoyé par AlainTech

Je viens de me battre avec les FileDialogs et je me rends compte qu'ils sont nettement moins souples que je ne l'avais imaginé.

Petite explication:
En utilisant le FileDialog msoFileDialogSaveAs, il n'est pas possible de modifier les filtres. Ils sont prédéfinis en fonction de l'application.

J'ai donc contourné le problème en appelant le FileDialog de l'application Word (comme l'avait, initialement, fait GTBouli) et en récupérant son SelectedItem.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Dim oWdDoc As Object Dim oWdApp As Object Dim fdFolder As FileDialog Dim strPath As String Set oWdApp = New Word.Application Set oWdDoc = oWdApp.Documents.Add oWdApp.Visible = True strPath = ThisWorkbook.Path & Application.PathSeparator & "PPGD" Set fdFolder = oWdApp.FileDialog(msoFileDialogSaveAs) fdFolder.InitialFileName = strPath If fdFolder.Show Then strPath = fdFolder.SelectedItems(1) oWdDoc.SaveAs strPath Else oWdDoc.Close False End If oWdApp.Quit Set oWdDoc = Nothing Set oWdApp = Nothing