IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

Enregistrer document word dans un dossier spécifique avec SaveAs


Sujet :

VB.NET

  1. #1
    Membre régulier
    Homme Profil pro
    Enseignant
    Inscrit en
    Mars 2017
    Messages
    138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Enseignement

    Informations forums :
    Inscription : Mars 2017
    Messages : 138
    Points : 77
    Points
    77
    Par défaut 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 : 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
    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
     
    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

  2. #2
    Membre régulier
    Homme Profil pro
    Enseignant
    Inscrit en
    Mars 2017
    Messages
    138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Enseignement

    Informations forums :
    Inscription : Mars 2017
    Messages : 138
    Points : 77
    Points
    77
    Par défaut
    Bon finalement j'avais commis une erreur de saisie du chemin Dossier ="D:\Clients\Client1\" et du coup ça fonctionne désormais

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [AC-2016] Problème avec l'enregistrement d'un état en PDF dans un dossier spécifique
    Par planetesud dans le forum VBA Access
    Réponses: 2
    Dernier message: 08/03/2021, 16h03
  2. Enregistrer une feuille dans un dossier avec un nom spécifique
    Par Nikoba79 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 08/03/2019, 23h15
  3. Réponses: 9
    Dernier message: 29/10/2015, 10h37
  4. Réponses: 10
    Dernier message: 31/01/2010, 00h08
  5. Sauvegarder un fichier Word dans un dossier spécifique
    Par vash641 dans le forum VBA Word
    Réponses: 2
    Dernier message: 27/05/2009, 20h09

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo