Annonce
#1 Tue 16 March 2004 11:04
- Sebastien GOFFETTRE
- Invité
imprimer le nom du fichier
bonjour a tous,
Je voudrais savoir s'il existe une solution pour inserer de maniere
automatique sur un document imprime le nom du fichier WOR dont il est
issu, un peu comme on peut le faire avec la commande CurDate pour
afficher la date.
Merci d'avance.
#2 Tue 16 March 2004 15:21
- Jacques Paris
- Invité
Re: imprimer le nom du fichier
Le nom du fichier WOR n'est pas garde en memoire par MI si bien qu'il ne
peut pas etre recupere automatiquement pour insertion dans la mise-en-page
resultant.
Une solution consisterait a ouvrir le wor par une commande speciale qui
permettrait de conserver le nom pour l'inserer le moment voulu. Ce bout de
code le fait directement dans la fenetre mapbasic
dim strwor as string
dim worname as object
strwor=fileopendlg( , , WOR , Choisir le WOR a ouvrir )
run command run application +chr(34)+ strwor + chr(34)
set coordsys layout units cm
create text into window frontwindow() strwor (2,20)(20,21)
Il suffirait de le mettre dans un WOR a lancer chaque fois que vous voulez
une telle addition dans une de vos mises en page.
Jacques Paris
