[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 !

[Résolu][Calc] commande de dossier

Messagepar 25pinjo15 » 22 Avr 2018 14:12

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
25pinjo15
Fraîchement OOthentifié
 
Message(s) : 8
Inscrit le : 25 Jan 2018 00:07

Re: [Calc] commande de dossier

Messagepar micmac » 22 Avr 2018 15:04

Bonjour,
25pinjo15 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.
Avatar de l’utilisateur
micmac
RespOOnsable forum
RespOOnsable forum
 
Message(s) : 4981
Inscrit le : 28 Août 2010 09:45

Re: [Calc] commande de dossier

Messagepar Piaf » 22 Avr 2018 19:56

Bonjour
Tu peux tester
Code : Tout sélectionner   AgrandirRéduire
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: 5.4.7 et Apache OpenOffice 4.1.5 Sur Xubuntu 18.04 AMD64
Piaf
GourOOu
GourOOu
 
Message(s) : 5357
Inscrit le : 25 Nov 2011 19:07
Localisation : Guyane

Re: [Calc] commande de dossier

Messagepar 25pinjo15 » 23 Avr 2018 20:48

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   AgrandirRéduire
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
25pinjo15
Fraîchement OOthentifié
 
Message(s) : 8
Inscrit le : 25 Jan 2018 00:07

Re: [Calc] commande de dossier

Messagepar Dude » 24 Avr 2018 07:39

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.
Avatar de l’utilisateur
Dude
Grand Maître de l'OOffice
Grand Maître de l'OOffice
 
Message(s) : 20142
Inscrit le : 03 Mars 2006 08:45
Localisation : 127.0.0.1


Retour vers Macros et API

Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Aucun utilisateur inscrit et 4 invité(s)