Modérateur: Vilains modOOs
Sub SauveAutoODT
dim oDoc as object
dim sUrl as string, sNom as string
dim bMaj as boolean, bNom as boolean
dim PropFic(0) as new com.sun.star.beans.PropertyValue
oDoc = ThisComponent
bMaj = oDoc.isModified
bNom = oDoc.hasLocation
' On sauvegarde si le doc est nommé et a été modifié
if ( bMaj and bNom ) then
oDoc.store
sNom = Left ( oDoc.Title, Len(oDoc.Title) -4 )
nRevision = oDoc.documentInfo.EditingCycles
sURL = convertToUrl("c:\temp\"& sNom &"_"& nRevision &".odt")
PropFic(0).name="FilterName"
PropFic(0).value="writer: Writer8"
oDoc.storeToUrl(sURL, Propfic())
end if
End Sub
J'entends bien, mais ça je n'ai jamais fait.Il ne reste "plus qu" 'à créer l'extension.
papayes a écrit:Je te remercie pour tous ceux qui avec ton travail ne perdront plus le leur !
Ravioli a écrit:Avec un autre module {calc}, le fichier n'est pas incrémenté.
PropFic(0).value="writer: Writer8"
Ravioli a écrit:Avec Writer, si j'enregistre sous un document existant du Bureau vers Documents par exemple,
le répertoire est créé mais l'incrémenation ne se fait plus.
Donc si tu changes un fichier de place ou que tu l'enregistre dans un autre répertoire, l'incrémentation repart de 0.
Ravioli a écrit:Avec Writer, si j'enregistre sous un document existant du Bureau vers Documents par exemple,
le répertoire est créé mais l'incrémenation ne se fait plus.
Avec un autre module {calc}, le fichier n'est pas incrémenté.
LISTE DES FICHIERS MODIFIES DEPUIS LE 07/09/2009
*** /home/alain/Bureau ***
07/09/2009 16:20 .~lock.tstBuro.odt#
07/09/2009 16:27 tstOxtCalc1.ods
07/09/2009 16:16 tstBuro.odt
--> 3 fichiers / 9
*** /home/alain/Bureau/zzSauveIncr ***
07/09/2009 16:20 tstBuro_1.odt
07/09/2009 16:29 tstOxtCalc1_4.ods
07/09/2009 16:27 tstOxtCalc1_1.ods
07/09/2009 16:29 tstOxtCalc1_3.ods
07/09/2009 16:27 tstOxtCalc1_2.ods
07/09/2009 16:20 tstBuro_0.odt
07/09/2009 16:27 tstOxtCalc1_0.ods
--> 7 fichiers / 7
*** /home/alain/Bureau/tstOXT ***
07/09/2009 16:28 tstOxtCalc1.ods
07/09/2009 16:17 tstBuro.odt
--> 2 fichiers / 2
*** /home/alain/Bureau/tstOXT/zzSauveIncr ***
07/09/2009 16:18 tstBuro_1.odt
07/09/2009 16:28 tstOxtCalc1_1.ods
07/09/2009 16:28 tstOxtCalc1_3.ods
07/09/2009 16:28 tstOxtCalc1_2.ods
07/09/2009 16:17 tstBuro_0.odt
07/09/2009 16:18 tstBuro_2.odt
07/09/2009 16:28 tstOxtCalc1_0.ods
--> 7 fichiers / 7
public const bTRACER = true ' Si bTRACER est vrai, tracer infos
Ravioli a écrit:l'extension n'incrémente plus avec un nom de fichier comportant une espace
Dans les 3 logs (identiques), il y a écrit:repDoc: "file:///C:/Documents%20and%20Settings/Jeff/Mes%20documents/"
repSauv: "file:///C:/Documents%20and%20Settings/Jeff/Mes%20documents/zzSauveIncr"
Chercher numéro dernière sauvegarde parmi :
"file:///C:/Documents%20and%20Settings/Jeff/Mes%20documents/zzSauveIncr/MP%20de%20Papayes*.odt"
-> ""
Numéro dernière sauvegarde + 1 = 0
URL de la nouvelle sauvegarde :
file:///C:/Documents%20and%20Settings/Jeff/Mes%20documents/zzSauveIncr/MP%20de%20Papayes_0.odt
a = convertToUrl("C:\Documents and Settings\Pierre-Yves\Mes documents\poubelle\forum\Extraire2\forum\zzSauveIncr\a b é c_0*.odt")
c = dir(a)
a = "C:\Documents and Settings\Pierre-Yves\Mes documents\poubelle\forum\Extraire2\forum\zzSauveIncr\a b é c_0*.odt"
c = dir(a)
Issue ancienne a écrit:The Basic Dir command supports wildcards only in a limited way since file operations are based on the UCB framework.
a = convertToUrl("C:\Documents and Settings\Pierre-Yves\Mes documents\poubelle\forum\Extraire2\forum\zzSauveIncr\a b é c_0*.odt")
z= convertFromUrl(a)
print z
If Not GlobalScope.BasicLibraries.isLibraryLoaded("Tools") then
GlobalScope.BasicLibraries.LoadLibrary("Tools")
End If
DeleteStr(nomfic, " ")
b = ReplaceString(nomfic, "?" , " ")
Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 1 invité