Discussion :

[GTBouli]

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 :

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

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 ...

[AlainTech]

Un petit exemple testé:

Code :

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

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

[GTBouli]

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

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.

[AlainTech]

Tu veux un nom proposé mais pas imposé?

[GTBouli]

exactement

[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é.
J'en reviens donc au GetSaveAsFilename.

Code :

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

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

[GTBouli]

Merci beaucoup.

Fonctionne nickel

[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 :

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

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