Re: [prog] [calc]récupérer le chemin d'un fich ier

Thu, 12 Jan 2006 00:46:33 -0800

vas voir par ici
 
 
Cathy
----- Original Message -----
From: Nojid
Sent: Thursday, January 12, 2006 9:22 AM
Subject: RE: [prog] [calc]récupérer le chemin d'un fichier

De : Catherine Bancillon [mailto:[EMAIL PROTECTED]
Envoyé : jeudi 12 janvier 2006 08:44
À : prog@fr.openoffice.org
Objet : Re: [prog] [calc]récupérer le chemin d'un fichier

Bonjour Nojid,
 
pas compris la question, le chemin de quel fichier? 
>>>Je m'explique un peu mieux. Je veux, en appuyant sur mon bouton de macro, ouvrir une boite de dialogue me permettant de choisir un fichier situé n'importe où sur mon disque dur, voire même sur un réseau, >>>et afficher le chemin et le nom de ce fichier  dans la cellule d'une feuille de calcul, de telle façon qu'une autre macro viennent ensuite ouvrir le fichier en question. Votre macro me satisfait en partie. Il me
>>>manque juste le renvoi du chemin et le nom du fichier sélectionné.
>>>Merci pour votre aide précieuse
 
Pour le classeur actif : 

MsgBox ConvertFromUrl(ThisComponent.GetLocation)

 

sinon, peut-être que tu te casses trop la tête avec l'adresse de ton fichier à ouvrir dans une cellule, pourquoi tu n'afficherais pas la boîte de dialogue qui permet de choisir le fichier à ouvrir?

 

Sub ExampleGetAFileName
  Dim filterNames(1) As String
  filterNames(0) = "*.txt"
  filterNames(1) = "*.sxw"
  Print GetAFileName(filterNames())
End Sub

Function GetAFileName(Filternames()) As String
  Dim oFileDialog as Object
  Dim iAccept as Integer
  Dim sPath as String
  Dim InitPath as String
  Dim RefControlName as String
  Dim oUcb as object 
  oFileDialog = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
  oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")
 
 InitPath = "C:\" 'ou le répertoire que tu souhaites
  If InitPath = "" Then
    InitPath = GetPathSettings("Work")
  End If
  If oUcb.Exists(InitPath) Then
    oFileDialog.SetDisplayDirectory(InitPath)
  End If
  iAccept = oFileDialog.Execute()
  If iAccept = 1 Then
    sPath = oFileDialog.Files(0)
    GetAFileName = sPath
    'If oUcb.Exists(sPath) Then
    '  oRefModel.Text = ConvertFromUrl(sPath)
    'End If
  End If
  oFileDialog.Dispose()
End Function

 

Cathy

 
 
----- Original Message -----
From: Nojid
Sent: Wednesday, January 11, 2006 10:17 PM
Subject: [prog] [calc]récupérer le chemin d'un fichier

Bonsoir
Je souhaiterais, à partir d'une macro, récupérer le chemin d'un fichier pour qu'il s'affiche par exemple dans la cellule F15 d'une feuille de calcul
Merci pour votre aide

Répondre à