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 :
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 : 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
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
Et ça me génère cette erreur lors de l'exécution : Le membre public 'SaveAs2' du type 'ApplicationClass' est introuvable.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Quel est le problème ? Quelle est la solution pour pouvoir spécifier un dossier d'enregistrement ?
Merci pour votre aide
Partager