Merci de désactiver l'accusé de réception sur cette liste !
Catherine Bancillon a écrit :
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 <mailto:[EMAIL PROTECTED]>
*To:* prog@fr.openoffice.org <mailto:prog@fr.openoffice.org>
*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
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]