Re,
J'ai un peu de mal à comprendre la difficulté, mais si tu écris cela :
appEndFilter("Fichiers XML", "*.xml")
CurrentFilter = "Fichiers XML"
Title = "Choisir un fichier XML"
isNoGood ?
isGood ! Parfais ! je laisse ma macro si jamais elle pourrait servir.
Merci François
Option Explicit
Sub Supprimer_Balises_Content
Dim f1 As Integer, f2 as integer
Dim uneLigne As String
dim identite as string, resultat as string
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 = identite
'.appEndFilter("Textes", "*.txt")
.appEndFilter("Fichiers XML", "*.xml")
.CurrentFilter = "Fichiers XML"
.Title = "Choisir un fichier XML"
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
identite = cheminNomFichier
f1 = FreeFile ' obtenir un numéro de fichier ouvert
Open identite For input As #f1
resultat = "C:\Formulaire\CarteIdentite\resultat.xml"
f2 = FreeFile ' obtenir un numéro de fichier ouvert
Open resultat For output As #f2
'*** rajouter les 5 premières lignes du fichier carte.xml dans resultat.xml
Line Input #f1, uneLigne '1
Print #f2, uneLigne
Line Input #f1, uneLigne'2
Print #f2, uneLigne
Line Input #f1, uneLigne'3
Print #f2, uneLigne
Line Input #f1, uneLigne'4
Print #f2, uneLigne
Line Input #f1, uneLigne'5
Print #f2, uneLigne
'***Ecrire directement les deux dernières balises dans le fichier resultat
xml
Print #f2, "</CardHolder>"
Print #f2, "</Card>"
MsgBox "Le fichier carte.xml est maintenant modifié, vous pouvez réaliser la
fusion."
Close #f1
close #f2
end sub
Françoise
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]