Comment : enregistrer des documents Visio

Mise à jour : novembre 2007

Il existe plusieurs méthodes d'enregistrement de documents Microsoft Office Visio :

• Enregistrer les modifications dans un document existant.

• Enregistrer un nouveau document ou un document existant sous un nouveau nom.

• Enregistrer un document avec des arguments spécifiés.

Pour plus d'informations, consultez la documentation de référence sur VBA pour les méthodes Microsoft.Office.Interop.Visio.Document.Save, Microsoft.Office.Interop.Visio.Document.SaveAs et Microsoft.Office.Interop.Visio.Document.SaveAsEx.

Enregistrement d'un document existant

Pour enregistrer un document

• Appelez la méthode Microsoft.Office.Interop.Visio.Document.Save de la classe Microsoft.Office.Tools.Visio.Document d'un document enregistré précédemment.

  Pour utiliser cet exemple de code, exécutez-le dans votre projet à partir de la classe ThisAddIn.

  Remarque :
  La méthode Microsoft.Office.Interop.Visio.Document.Save lève une exception si vous n'avez pas encore enregistré de nouveau document Visio.

  Me.Application.ActiveDocument.Save()
  

  this.Application.ActiveDocument.Save();
  

Enregistrement d'un document sous un nouveau nom

Utilisez la méthode Microsoft.Office.Interop.Visio.Document.SaveAs pour enregistrer un nouveau document ou un document existant sous un nouveau nom. Vous devez spécifier le nouveau nom de fichier.

Pour enregistrer le document Visio actif sous un nouveau nom

• Appelez la méthode Microsoft.Office.Interop.Visio.Document.SaveAs du Microsoft.Office.Tools.Visio.Document que vous souhaitez enregistrer, à l'aide d'un chemin qualifié complet incluant un nom de fichier. Si un fichier du même nom existe déjà dans ce dossier, il est automatiquement remplacé.

  Pour utiliser cet exemple de code, exécutez-le dans votre projet à partir de la classe ThisAddIn.

  Dim docPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + "\test\MyDrawing.vsd"
  Me.Application.ActiveDocument.SaveAs(docPath)
  

  string docPath = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + @"\test\MyDrawing.vsd";
  this.Application.ActiveDocument.SaveAs(docPath);
  

Enregistrement d'un document sous un nouveau nom avec des arguments spécifiés

Utilisez la méthode Microsoft.Office.Interop.Visio.Document.SaveAsEx pour enregistrer un document sous un nouveau nom et spécifier tous les arguments devant être appliqués au document.

Pour enregistrer un document sous un nouveau nom avec des arguments spécifiés

• Appelez la méthode Microsoft.Office.Interop.Visio.Document.SaveAsEx du Microsoft.Office.Tools.Visio.Document que vous souhaitez enregistrer, à l'aide d'un chemin qualifié complet incluant un nom de fichier. Si un fichier du même nom existe déjà dans ce dossier, une exception est levée.

  L'exemple de code suivant enregistre le document actif sous un nouveau nom, marque le document en lecture seule et affiche le document dans la liste de documents Derniers fichiers utilisés. Pour utiliser cet exemple de code, exécutez-le dans votre projet à partir de la classe ThisAddIn.

  Dim newDocPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + "\test\MyOtherDrawing.vsd"
  Me.Application.ActiveDocument.SaveAsEx(newDocPath, CShort(Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visSaveAsRO) + CShort(Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visSaveAsListInMRU))
  

  string newDocPath = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + @"\test\MyOtherDrawing.vsd";
  this.Application.ActiveDocument.SaveAsEx(newDocPath,
      ((short)Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visSaveAsRO +
       (short)Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visSaveAsListInMRU));
  

Compilation du code

Cet exemple de code nécessite ce qui suit :

• Pour enregistrer un document portant un nouveau nom, un répertoire nommé Test doit se trouver dans le dossier Mes documents (Windows XP ou version antérieure) ou Documents (Windows Vista).

Voir aussi

Tâches

Comment : créer des documents Visio

Comment : ouvrir des documents Visio

Comment : fermer des documents Visio

Comment : imprimer des documents Visio

Concepts

Solutions Visio

Vue d'ensemble du modèle objet Visio