Re: [prog] Ouvrir un fichier

Wed, 01 Feb 2006 00:47:00 -0800

Merci Nojid,
 
juste un détail : je n'arrive pas à définir un répertoire autre que celui dans lequel se trouve la macro.
Comment puis-je faire?
Merci
 
Cathy
----- Original Message -----
From: Nojid
Sent: Tuesday, January 31, 2006 9:12 PM
Subject: RE: [prog] Ouvrir un fichier

Bonjour
Voilà qui pourra peut-être te convenir
 
Sub ChoisirFichier
Dim monDocument As Object
Dim FP As Object
Dim mesFichiers() As String
Dim maFeuille As Object
Dim RepertoireDoc As String
Dim NomFichier As String
Dim CheminNomFichier As String
monDocument = thisComponent
FP = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
 
With FP
  '.initialize(FPtype())
  .DisplayDirectory = ConvertToURL(RepertoireDoc)
  .DefaultName = NomFichier
  '.appEndFilter("Textes", "*.txt")
  .appEndFilter("Docs OpenOffice", "*.sxw;*.sxc;*.sxd,*.sxi")
  .appEndFilter("Docs MS-Office", "*.doc;*.xls;*.ppt")
  .CurrentFilter = "Docs OpenOffice"
  .Title = "Choisir un fichier cible"  
  if .Execute = _
      com.sun.star.ui.dialogs.ExecutableDialogResults.OK then
    mesFichiers() = .Files ' tableau de 1 élément String
    CheminNomFichier = mesFichiers(0)
  msgBox(ConvertFromURL(CheminNomFichier),,"Sélection fichier")
 
  Else
    Exit Sub  
  End if
  .dispose
End With

De : Catherine Bancillon [mailto:[EMAIL PROTECTED]
Envoyé : mardi 31 janvier 2006 19:32
À : prog@fr.openoffice.org
Objet : [prog] Ouvrir un fichier

Bonjour,
 
je cherche à ouvrir un fichier par le biais de la boîte de dialogue d'ouverture de fichier,
 
Je suis en V2.0
 
j'ai le code suivant :
 
Sub 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")
'AddFiltersToDialog(FilterNames(),oFileDialog) ******************** ça, ça marche pas ERREUR ***********************
InitPath = "C:\Documents and Settings\cbancillon-adc\Mes Documents\OOo\"
 
oFileDialog.AppendFilter("OOo Writer (*.sxw)", "*.sxw")
oFileDialog.AppendFilter("OOo Calc (*.sxc)", "*.sxc")
oFileDialog.AppendFilter("OOo Writer (*.odt)", "*.odt")
If oUcb.Exists(InitPath) Then
   oFileDialog.SetDisplayDirectory(InitPath)
End if
iAccept = oFileDialog.execute()
If iAccept = 1 then
   sPath = oFileDialog(0) '********************************** ICI ERREUR
   GetAFileName = sPath
End If
oFileDialog.dispose()
end sub
 
La boîte de dialogue s'affiche bien, mais je n'arrive pas à ouvrir le fichier, pourriez-vous m'aider dans le code SVP?
 
Merci.
 
Cathy

Répondre à