[Résolu] ouverture d'un dossier situé sur le disque

[noosh]

bonjour,
je voudrais faire une macro que j'affecterai à un bouton dans calc Cette macro ouvrirait un dossier se trouvant sur mon DD dans le cas d'un dossier Open. Ou qui permetrait l'ouverture de l'arborescence del'explorateur sur le nom du dossier J'ai essayé avec "macro enregistrer" mais cela ne fonctionne pas
Est ce que Openoffice-man pourrait m'ecrire un exemple
merci
A+
Noosh

[MichelXld]

bonsoir

je ne suis pas sur d'avoir bien compris mais tu peux tester ce type de procedure

Code : Tout sélectionner

Sub choisir_Et_Ouvrir_Repertoire 
Dim Fichier As Object , Shell As Object 
Dim Valeur As Integer 
    
Fichier = CreateUnoService("com.sun.star.ui.dialogs.FolderPicker") 
Fichier.SetDisplayDirectory("C:\") 
Valeur = Fichier.Execute() 

If Valeur = 1 Then 
Shell = createUnoService("com.sun.star.system.SystemShellExecute") 
Shell.execute(Fichier.getDirectory(), "", 0) 
End If
End Sub

bonne soiree
michel

[noosh]

Bonjour et merci de ces premiers pas. C'est tout a fait la démarche que je souhaite continuer:
avec cette macro j'ouvre une fenetre "poste de travail".
si je veux aller plus loin dans l'arborescenCe, par exemple dans un dossier situé dans programes files appelé "maison"à quel endroit de la macro devrais je rajouter ce chemin
merci encore
A+
noosh

[MichelXld]

bonsoir

tu peux adapter cette ligne

Code : Tout sélectionner

Fichier.SetDisplayDirectory("C:\mon repertoire")

bonne soiree
michel

[noosh]

Bonjour Michel,
j'ai suivi tes conseils, j'ai tenté d'autre essais, mais sans résultat
. Je suis arrivé a ce que la commande

Code : Tout sélectionner

Sub choisir_Et_Ouvrir_Repertoire 
Dim Fichier As Object , Shell As Object 
Dim Valeur As Integer 
    
Fichier = CreateUnoService("com.sun.star.ui.dialogs.FolderPicker") 
Fichier.SetDisplayDirectory("C:\") 
Valeur = Fichier.Execute() 
end sub

soit suffisante pour ouvrir le poste de travail aurais tu d'autres suggestions
merci
A+Noosh

[MichelXld]

bonsoir

Excuses moi , je suis allé un peu vite

tu peux tester

Code : Tout sélectionner

Dim Fichier As Object , Shell As Object 

Fichier = CreateUnoService("com.sun.star.ui.dialogs.FilePicker") 
Fichier.SetDisplayDirectory("C:\Documents and Settings\michel\dossier\general") 
Fichier.Execute() 

bonne soiree
michel

[noosh]

bonjour, Michel
cette nouvelle macro m'envoie dans la gallery d'open. C'est un bon début. Cette semaine je suis absent mais je vais essayer de changer les parametres des repertoires pour comprendre comment cela fonctionne pour aller ou je veux.
Je te tiendrais au courant, merci
A+
Noosh

[noosh]

:Bonjour, Michel
ta macro fonctionne au poil, j'arrive dans le dossier que souhaite.
dans ce dossier j'ai des fichiers opencalc et PDF.
je voudrais ouvrir l'un de ces fichiers automatiquement.
en suivant le meme processus J'ai essayé d'ajouter le nom d'un de ces fichiers à la suite de ta macro mais sans succes
Que dois je ajouter à ta ligne de commande
Merci A+
cordialement
noosh

[MichelXld]

bonjour

pour ouvrir le fichier selectionné , tu peux tester

Code : Tout sélectionner

Sub selectionFichier_puisOuverture()
Dim Fichier As Object , ShExec As Object 
Dim X As Integer

Fichier = CreateUnoService("com.sun.star.ui.dialogs.FilePicker") 
Fichier.SetDisplayDirectory("C:\Documents and Settings\michel\dossier") 
X = Fichier.Execute() 

If X = 1 Then 
ShExec = createUnoService("com.sun.star.system.SystemShellExecute") 
ShExec.execute(Fichier.Files(0), "", 0) 
End If
End Sub

bon week end
michel

[noosh]

bonjour,
j'ai suivi ton conseil:
j'arrive dans mon répertoire, mais dès que j'ajoute le nom du fichier, c'est la fenetre affichant le repertoire "documents ":?:
j'ai essayé avec d'autres repertoires des l'instant ou j'ajoute le nom dun fichier je reviens sur mes documents
As tu une autre
merci A+ cordialement
Noosh

[MichelXld]

bonjour

je ne comprend pas ton message : cette macro sert à afficher une boite de dialogue dans un repertoire précis. Ensuite lorsque tu double cliques sur un nom de fichier , celui s'ouvre


que veux tu dire par :

dès que j'ajoute le nom du fichier...

bon dimanche
michel

[noosh]

bonjour,
j'esperais pouvoir ouvrir l'un des fichiers contenus dans ce repertoire par exemple a l suite de
Fichier.SetDisplayDirectory("C:\Documents and Settings\michel\dossier")

inscrire apres "dossier" le nom d'un fichier (maison.PDF)qui s'ouvrirait

dans mon repertoire j'ai plusieurs fichiers auxquels je voudrais attribuer à chacun un bouton affecté d'une macro!!! ais je été assez clair
merciA+ j'espere
cordialement
Noosh

[/code]

[MichelXld]

rebonsoir

as tu essayé directement

Code : Tout sélectionner

Sub ouvertureFichier() 
Dim ShExec As Object
Dim Fichier As String

Fichier = "C:\mon repertoire\ledocument.pdf"
ShExec = createUnoService("com.sun.star.system.SystemShellExecute") 
ShExec.execute(Fichier , "", 0) 
End Sub

bonne soiree
michel

[noosh]

Champion du Monde
merci Michel
ta macro fonctionne parfaitement, l'important a retenir c'est qu'il faut inclure dans la ligne de commande le nom du fichier et son extension

Merci encoreA+
noosh