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
[Résolu][Calc] commande de dossier
Modérateur : Vilains modOOs
Règles du forum
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 !
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
LibreOffice Version: 5.4.4.2 (x64)
Windows 10 64 bit
Windows 10 64 bit
Re: [Calc] commande de dossier
Bonjour,
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.[b][color=#404080]25pinjo15[/color][/b] a écrit :J'ai une belle macro
Touche Ctrl de Windows = touche cmd⌘ sur Mac
Outils > Options sur Windows = OpenOffice > Préférences sur Mac
Outils > Options sur Windows = OpenOffice > Préférences sur Mac
Re: [Calc] commande de dossier
Bonjour
Tu peux testerA+
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
Libre Office Version: 6.1.6 et Apache OpenOffice 4.1.6 Sur Xubuntu 18.04 AMD64
Re: [Calc] commande de dossier
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
Windows 10 64 bit
- Dude
- IdOOle de la suite
- Messages : 25143
- Inscription : 03 mars 2006 08:45
- Localisation : 127.0.0.1
- Contact :
Re: [Calc] commande de dossier
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.
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.