Page 1 sur 1
[Résolu][Calc] commande de dossier
Publié : 22 avr. 2018 15:12
par 25pinjo15
Bon matin les copain !!!
Question rapide ! J'ai une belle macro pour archiver un document et tout fonctionne bien . Quand je clique sur mon bouton ça sauvegarde dans le dossier entre dans la case un tel et c'est parfait . Mon problème est que j'aimerais utiliser ce document sur plusieur pc et donc la lettre du lecteur va changer et les dossier d'avant pareil mais les dossier et sous dossier dans le dossier du document vont rester les même . Je voudrais savoir ce que je pourrait mettre au lieu de d:\dossier1\travail\backup ? J'aimerais que ma macros sauvegarde dans le répertoire backup ou ce trouve le document.
Merci encore et bonne journée a vous
Re: [Calc] commande de dossier
Publié : 22 avr. 2018 16:04
par micmac
Bonjour,
[b][color=#404080]25pinjo15[/color][/b] a écrit :J'ai une belle macro
Pour faciliter le travail des personnes qui voudront vous aider, la moindre des choses est de fournir la macro et éventuellement un fichier qui la contient.
Re: [Calc] commande de dossier
Publié : 22 avr. 2018 20:56
par Piaf
Bonjour
Tu peux tester
Code : Tout sélectionner
Sub Main
Dim Emplacement() as String, Chemin as String, sRep as String
sRep = "backup"
Emplacement = Split(thisComponent.URL,"/")
Emplacement(UBound(Emplacement)) = ""
Chemin = Join(Emplacement,"/") & sRep & "/"
print chemin
End Sub
A+
Re: [Calc] commande de dossier
Publié : 23 avr. 2018 21:48
par 25pinjo15
voici le code. Donc en ce moment je rentre le dossier dans la case indiquer dans mon code mais jaimerais savoir ce que je dois metre dans la case pour que ca sauvegarde dans le sous dossier archive document
Code : Tout sélectionner
Sub Archiver
Dim sFileName As String
Dim sPath As String
Dim sSaveToURL as string
sPath = thisComponent.getSheets.getByName("Feuille1").getCellRangeByName("A52").getString
sFileName = thisComponent.getSheets.getByName("Feuille1").getCellRangeByName("G1").getString
sSaveToURL = ConvertToURL(sPath & sFileName & ".ods")
thisComponent.storeAsUrl(sSaveToURL, Array)
msgbox sSaveToURL
End Sub
Function MakePropertyValue(Optional sName As String, Optional sValue) As com.sun.star.beans.PropertyValue
'-------------------------------------------------------------------
' Create and return a new com.sun.star.beans.PropertyValue
'-------------------------------------------------------------------
Dim oPropertyValue As New com.sun.star.beans.PropertyValue
If Not IsMissing(sName) Then
oPropertyValue.Name = sName
EndIf
If Not IsMissing(sValue) Then
oPropertyValue.Value = sValue
EndIf
MakePropertyValue() = oPropertyValue
End Function
Re: [Calc] commande de dossier
Publié : 24 avr. 2018 08:39
par Dude
Pourquoi veux-tu insérer l'information dans une cellule ?
Reprends le code que te fournis Piaf, le chemin est repris directement sans saisie.
NB : je ne vois pas le rapport entre le titre de ta question et ta problématique qui est de récupérer un lecteur de disque.