Voilà mon code où j'ai traité certaines erreurs par programmation faute de mieux
function save_Fichier()
Dim FichierSortie as string
Dim RepSortie as string
Dim NomURL as string
dim mFileType(0)
on error goto TraiterErreur
' simple sauvegarde du document principal
mondocument.storeAsURL(mondocument.url,array())
RepSortie =
Feuilles.getByName("parametres").getCellRangeByName("Fichier_resultat").string
FichierSortie= RepSortie & "resultat "
NomURL = convertToURL(FichierSortie)
if DocumentOuvert(NomURL) then
MsgBox ("Le fichier " & FichierSortie & " est déjà ouvert " _
& chr(10)& "fermez-le et relancez la procédure" & chr(10) & "ou fermez le
et sauvegardez manuellement", 16, "Attention")
exit function
endif
'si le répertoire existe alors le fichier . de ce répertoire existe
if not FileExists(RepSortie & "\.") then
if MsgBox ("Le dossier " & RepSortie & " est inexistant, voulez-vous le créer
?", 36, "Attention") = 7 then
' réponse non
MsgBox ("La procédure est abandonnée", 16, "Attention")
exit function
endif
endif
' si le répertoire n'existe pas il sera crée
if FileExists(FichierSortie) then
If MsgBox ("le fichier " & FichierSortie & " existe déjà, voulez-vous le
remplacer?", 36, "Attention") = 6 Then
'réponse non
MsgBox ("La procédure est abandonnée", 16, "Attention")
End IF
endif
mondocument.storeAsURL(NomURL,array())
exit function
TraiterErreur:
MsgBox ("Une erreur est survenue lors de l'écriture du fichier " &
FichierSortie & chr(10) _
& " vérifiez vos droits d'écriture", 16, "Attention")
print "Erreur " & err
on error resume next
End function
> Date: Mon, 9 Nov 2009 08:23:51 +0100
> From: [email protected]
> To: [email protected]
> Subject: Re: [prog] StoreAsUrl
>
> Bonjour,
>
> Comment pourrait-on émettre un avis sans voir ton codage ?
>
> Bernard
>
> Message de c c date 2009-11-09 06:54 :
> >
> > Bonjour,
> >
> >
> >
> > N'ayant pas eu de réponse, je me permets de poster ma question de nouveau.
> >
> >
> >
> > Merci
> >
> >
> >
> > Claude
> >
> >
> >> Bonjour,
> >>
> >> Je viens d'écrire une macro qui sauvegarde le fichier en cours
> >> d'utilisation dans un autre répertoire sous un autre nom. Elle fonctionne
> >> correctement, mais lorsque je teste les cas possibles d'erreur à signaler
> >> à l'utilisateur :
> >>
> >> le fichier de destination existe déjà
> >> le fichier de destination existe et est déjà ouvert
> >> le répertoire d'arrivée n'existe pas
> >> ....
> >
> >> le code erreur renvoyé par oo est toujours 1. Existe-t-il un moyen
> >> d'affiner la cause de l'erreur ou dois-je programmer moi-même les
> >> différents cas ?
> >
> >> Version oo 3.1.1 et windows xp
> >>
> >> Merci
> >
> >> Claude
> >
> > _________________________________________________________________
> > Nouveau ! Tout Windows débarque dans votre téléphone. Voir les Windows phone
> > http://clk.atdmt.com/FRM/go/175819071/direct/01/
>
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [email protected]
> For additional commands, e-mail: [email protected]
>
_________________________________________________________________
Nouveau ! Tout Windows débarque dans votre téléphone. Voir les Windows phone
http://clk.atdmt.com/FRM/go/175819071/direct/01/
