Le portail francophone de la géomatique

Bonjour à tous et bonne année 2007!
voici mes problèmes:
1) je ne connais quasimment rien en visual basic...mais...
2) j'ai créé un script dans lequel je demande l'ouverture d'une table dans un répertoire donné, puis de l'enregister sous un autre répertoire dans une autre projection. Je voudrais répéter cette demande un certain nombre de fois, mais au bout de la quatrième, il m'affiche un message d'erreur:
"(C:\SIG\.....\nom fichier.tab:10)le résultat de l'expression n'est pas un nom de table ou de colonne"

Voici un extrait de mon script:

dim matable as string
matable=fileopendlg("C:\SIG_CRPF\","","TAB","choisir la table HAB_LIN)
open table matable interactive
Map from Hab_lin
dim nom as string
dim nomfinal as string
nomfinal = filesaveasdlg("C:\SIG_CRPF\",nom+"hablin_","TAB","enregistrer le fichier HAB_LIN")
commit table Hab_lin as nomfinal TYPE NATIVE Charset "WindowsLatin1" CoordSys Earth Projection 3, 1002, "m", 0, 46.8, 45.898918964419, 47.696014502038, 600000, 2200000 Bounds (30000, 1600000) (1230000, 2700000)
drop table Hab_lin

matable=fileopendlg("C:\SIG_CRPF\","","TAB","choisir la table BATI ")
open table matable interactive
Map from Bati
nomfinal = filesaveasdlg("C:\SIG_CRPF\",nom+"bati_","TAB","enregistrer le fichier BATI  dans le dossier MAPINFO de la commune")
commit table Bati as nomfinal TYPE NATIVE Charset "WindowsLatin1" CoordSys Earth Projection 3, 1002, "m", 0, 46.8, 45.898918964419, 47.696014502038, 600000, 2200000 Bounds (30000, 1600000) (1230000, 2700000)
drop table Bati

matable=fileopendlg("C:\SIG_CRPF\","","TAB","choisir la table BATI_PT")
open table matable interactive
Map from Bati_pt
nomfinal = filesaveasdlg("C:\SIG_CRPF\",nom+"bati_pt_","TAB","enregistrer le fichier BATI_PT")
commit table Bati_pt as nomfinal TYPE NATIVE Charset "WindowsLatin1" CoordSys Earth Projection 3, 1002, "m", 0, 46.8, 45.898918964419, 47.696014502038, 600000, 2200000 Bounds (30000, 1600000) (1230000, 2700000)
drop table Bati_pt

matable=fileopendlg("C:\SIG_CRPF\","","TAB","choisir la table HAB_PT")
open table matable interactive
Map from Hab_pt
nomfinal = filesaveasdlg("C:\SIG_CRPF\",nom+"hab_pt_","TAB","enregistrer le fichier HAB_PT")
commit table Hab_pt as nomfinal TYPE NATIVE Charset "WindowsLatin1" CoordSys Earth Projection 3, 1002, "m", 0, 46.8, 45.898918964419, 47.696014502038, 600000, 2200000 Bounds (30000, 1600000) (1230000, 2700000)
drop table Hab_pt

Merci beaucoup à tous ceux qui voudront bien un peu de temps pour déchiffrer tout cela.