Enregistrer document word dans un dossier spécifique avec SaveAs
Bonjour à tous,
J'ai crée une Sub pour générer automatiquement un document Word à partir un modèle type et qui ensuite enregistre automatiquement le document créé avec un nouveau nom avant de s'ouvrir dans Word. Voilà mon code :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
Private Sub LettretypeClientToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LettretypeClientToolStripMenuItem.Click
'Chargement Document
OpenFileDialog_GestionClients.InitialDirectory = DossierDéfaut & "\Modèles Word\Lettres Type"
OpenFileDialog_GestionClients.Filter = "Word Documents|*.doc;*.docx"
OpenFileDialog_GestionClients.Title = "OUVRIR une lettre-type"
OpenFileDialog_GestionClients.FileName = ""
If OpenFileDialog_GestionClients.ShowDialog() = DialogResult.OK Then 'si l'utilisateur a bien cliqué sur ok
'Initialisation Export vers Word
Dim WordApp As Microsoft.Office.Interop.Word.Application = New Microsoft.Office.Interop.Word.Application
WordApp.Visible = False
Dim WordDoc As Microsoft.Office.Interop.Word.Document = WordApp.Documents.Open(OpenFileDialog_GestionClients.FileName)
'Enregistrement document et affichage du document dans Word
WordDoc.SaveAs2("Lettre Client1")
WordApp.Visible = True
WordDoc = Nothing
End if
End Sub |
Ce code fonctionne parfaitement mais le problème c'est que l'enregistrement du document est effectué dans le dossier racine "Mes documents", or moi je voudrais pouvoir spécifier le chemin de l'enregistrement. Et c'est là que je coince ! J'ai essayé ceci sans succès :
Code:
1 2 3 4 5 6 7
|
Dim Dossier as String
Dossier ="D:\Clients\Client1\"
'Enregistrement document et affichage du document dans Word
WordDoc.SaveAs2(Dossier & "Lettre Client1")
WordApp.Visible = True
WordDoc = Nothing |
Et ça me génère cette erreur lors de l'exécution : Le membre public 'SaveAs2' du type 'ApplicationClass' est introuvable.
Quel est le problème ? Quelle est la solution pour pouvoir spécifier un dossier d'enregistrement ?
Merci pour votre aide :D