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

FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

Nombre d'auteurs : 10, nombre de questions : 359, dernière mise à jour : 15 juillet 2017  Ajouter une question

 

Bienvenue sur la FAQ, elle a été réalisée pour répondre aux questions concernant les suites bureautiques Apache OpenOffice (AOO) et LibreOffice (LibO).

Si vous souhaitez participer pour l'améliorer, pour proposer vos contributions ou si vous constatez des erreurs dans cette page, n'hésitez-pas !!! Participez.

SommaireProgrammation OBasicLes sauvegardes (6)
précédent sommaire suivant
 

Cet exemple montre comment sauvegarder un classeur.

Code vb : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub EnregistrerSous 
Dim Fichier As String 
Dim Args(0) As New com.sun.star.beans.PropertyValue 
  
Fichier = ConvertToURL("C:\Documents and Settings\michel\dossier\monClasseur.ods") 
  
'**************************************** 
'Propriété pour ajouter un mot de passe lors de l'enregistrement : 
  'Args(0).Name = "Password" 
  'Args(0).Value = "123456" 
  
'La liste des propriétés: 
'http://api.openoffice.org/docs/common/ref/com/sun/star/document/MediaDescriptor.html 
'***************************************** 
  
ThisComponent.storeAsURL(Fichier, Args()) 
  
End Sub

Mis à jour le 26 août 2013 SilkyRoad

Code vb : Sélectionner tout
ThisComponent.Store

Mis à jour le 2 août 2013 SilkyRoad

Les copies de sauvegarde permettent l'enregistrement sans modifier le fichier ouvert en mémoire.

Code vb : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
Sub Creer_CopieDeSauvegarde 
Dim Fichier As String 
Dim Args(0) As New com.sun.star.beans.PropertyValue  
  
'--- Ajoute la date du jour dans le nom de la sauvegarde : YYYYMMDD   
Fichier = _ 
ConvertToURL("C:\Documents and Settings\michel\Sauvegarde " & CDateToIso(Date) & ".ods" 
  
ThisComponent.storeToURL(Fichier,Args())  
End Sub

Mis à jour le 26 août 2013 SilkyRoad

Code vb : Sélectionner tout
1
2
3
4
5
6
7
8
Sub boiteDialogueEnregistrerSous 
  Dim oFrame As Object ,oDisp As Object 
  Dim Array() 
  
  oFrame = ThisComponent.CurrentController.getFrame() 
  oDisp = createUnoService("com.sun.star.frame.DispatchHelper") 
  oDisp.executeDispatch(oFrame , ".uno:SaveAs", "", 0 , Array()) 
end Sub

Mis à jour le 2 août 2013 SilkyRoad

Code vb : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub informations_Sauvegardes 
  
'--- Retrouve le chemin de stockage du fichier ---	 
  
'Nota: Renvoie une chaîne vide si le fichier n'est pas enregistré 
MsgBox ConvertFromURL( ThisComponent.getURL() ) 
'Renvoie chemin complet du fichier 
'(Renvoie une chaîne vide s'il s'agit d'un document non sauvegardé) 
MsgBox ConvertFromUrl(ThisComponent.GetLocation) 
'-------------------------------------------------- 
  
  
'--- Vérifie si le fichier est enregistré sur le disque --- 
  
MsgBox ThisComponent.HasLocation 
'Renvoie False si le document n'a jamais été sauvegardé  
'---------------------------------------------------------- 
  
  
'Vérifie si le document contient des modifications non enregistrées 
MsgBox ThisComponent.isModified 
'False : pas de modification 
'True : modifications non enregistrées 
  
End Sub

Mis à jour le 2 août 2013 SilkyRoad

Cette procédure permet de spécifier qu'il n'y a pas de modifications non enregistrées dans le fichier.

Code vb : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
Sub Annule_IndicationModifications 
  
'Vérifie le statut de l'indicateur de modification 
MsgBox ThisComponent.IsModified 
  
'Annule l'indication de modification 
ThisComponent.setModified(False) 
  
'Vérifie le statut de l'indicateur de modification 
MsgBox ThisComponent.IsModified 
  
End Sub

Mis à jour le 26 août 2013 SilkyRoad

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2024 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.