Ouvrir un fichier excel par un menu

[pounette78]

Bonjour,

je voudrais écrire un programme MapBasic qui ouvre un fichier xls dans mapinfo.

J'ai lu les différentes solutions proposées ici mais j'ai toujours un soucis. C'est mon premier programme que j'écris seule.

 '---------------------------------COMMENTAIRES SUR LE MODULE-----------------------------------
'Ouvrir un fichier xls
'----------------------------------------------------------------------------------------------
Sub Ouvrir_xls
Register Table path TYPE XLS Titles Range "Donnees!A2:I473" Interactive Into chemin_tab
open Table chemin_tab Interactive as Nom_de_Table
end sub

Dans Mapinfo, un message d'erreur me dit : (prgm.mb:43) Variable ou champ path non défini.

j'ai rajouté

Dim path as string

et après il me dit la même chose pour chemin_tab. Alors j'ai rajouté la même chose...
Mais après il me dis qu'un nom de table vide n'est pas valide.

Pouvez-vous m'aider svp ?

Merci de vos réponses

[SkåL]

Bonjour,

Il faut définir tes variables path et chemin_tab comme par exemple :

path = "C:\test.xls"

chemin_tab = "C:\test.tab"

[pounette78]

Mais s'ils sont amenés a changer ce n'est pas grave ?
parce que le nom du fichier change aussi

[Spacejo]

Salut,

Faire passer "Test" comme une variable et construire ta ligne de commande en te servant de ça --> http://georezo.net/forum/viewtopic.php?id=86512
-->

Dim Test as string

path = "C:\" & Test & ".xls"

A+
Joël

[pounette78]

Merci de vos réponses, j'ai réussi finalement en faisant comme ça :

Sub Ouvrir_xls
		Dim path as String
			path = FileOpenDlg ("","","XLS","Ouvrir la Table")
		Dim chemin_tab As string 
		chemin_tab = FileSaveAsDlg ("","tableau1","TAB","Enregistrer la Table")

	Register Table path TYPE XLS Titles  Range "Donnees!A2:I473" Interactive Into chemin_tab
	open Table chemin_tab Interactive as tableau1

[96925801]

S'il vous plait j'ai besoins de votre aide,
j'ai essayé de calculer la distance entre 2 station de bases(2 points) en utilisant la longitude et la latitude, j'ai essayé avec un code sur mapbasic mais de manière simple c'est à dire j'ai mi la formule [ Dist=ACOS(SIN(lat1)*SIN(lat2)+COS(lat1)*COS(lat2)* COS(lon2-lon1))*6371 ] et j'ai donné un exemple de valeurs de la longitude et la latitude de deux points. le programme ça marche et j'ai réussi le calcule de la distance .
C'est le code :
Declare Sub Main
Declare Sub saisie_nombre


Declare function Dist ( ByVal pi,lon1,lat1,lat2,lon2 As float) As float
Function Dist ( ByVal pi,lon1,lat1,lat2,lon2 As float) As float
Dist=ACOS(SIN(lat1)*SIN(lat2)+COS(lat1)*COS(lat2)* COS(lon2-lon1))*6371
end Function


saisie_nombre
Sub saisie_nombre
Dim pi,lon1,lat1,lon2,lat2 As float
pi=3.14
lat1=(36.75306*pi)/180
lon1=(10.21869*pi)/180
lat2=(36.8080300*pi)/180
lon2=(10.0972100*pi)/180
Note "La distance intersite est : " + Dist(pi,lon1,lat1,lat2,lon2)
end sub


Sub Main
Create Menu "Menu_hiérarchique" As
"sous_menu_hierarchique"
Create Menu "handover" As
"Calcule de distance intersite"
calling saisie_nombre
Alter Menu Bar Add "handover"
end sub

Maintenant j'ai un workspace sur mapinfo, ce workspace est réalisé à l'aide d'un tableau excel qui contient des données géographiques tel que(longitude, latitude, azimut...) mon problème est que je veut utilisé ses données(longitude, latitude) pour calculer la distance entre 2 points(chaque point a une longitude et un latitude) en utilisant un code dans mapbasic qui accède aux données(longitude, latitude) et calcule la distance .
Merci d'avance