[Résolu][Calc] commande de dossier

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur : Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
25pinjo15
Fraîchement OOthentifié
Messages : 8
Inscription : 25 janv. 2018 00:07

[Résolu][Calc] commande de dossier

Message 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
LibreOffice Version: 5.4.4.2 (x64)
Windows 10 64 bit
Avatar de l’utilisateur
micmac
RespOOnsable forum
RespOOnsable forum
Messages : 9224
Inscription : 28 août 2010 10:45

Re: [Calc] commande de dossier

Message 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.
Touche Ctrl de Windows = touche cmd⌘ sur Mac
Outils > Options sur Windows = OpenOffice > Préférences sur Mac
Piaf
GourOOu
GourOOu
Messages : 5622
Inscription : 25 nov. 2011 19:07
Localisation : Guyane

Re: [Calc] commande de dossier

Message 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+
Libre Office Version: 6.1.6 et Apache OpenOffice 4.1.6 Sur Xubuntu 18.04 AMD64
25pinjo15
Fraîchement OOthentifié
Messages : 8
Inscription : 25 janv. 2018 00:07

Re: [Calc] commande de dossier

Message 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
LibreOffice Version: 5.4.4.2 (x64)
Windows 10 64 bit
Avatar de l’utilisateur
Dude
IdOOle de la suite
IdOOle de la suite
Messages : 25143
Inscription : 03 mars 2006 08:45
Localisation : 127.0.0.1
Contact :

Re: [Calc] commande de dossier

Message 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.
Verrouillé