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.