Bienvenue! Inscrivez-vous et rejoignez notre communauté :)
  • Login:

Bienvenue sur Forum SIG - Systèmes d'Information Géographique et Géomatique.

Bienvenue sur le forumSIG. S'il s'agit de votre première visite, assurez vous de faire une recherche préalable dans les FAQ SIG. Vous devez vous inscrire avant de pouvoir poster.

Affichage des résultats 1 à 6 sur 6
  1. #1

    Date d'inscription
    février 2012
    Messages
    38

    Par défaut Ouvrir un fichier excel par un menu

    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.

    Code:
     '---------------------------------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é
    Code:
    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

  2. #2
    Chasseur de Bots
    Date d'inscription
    août 2011
    Localisation
    Paris > Strasbourg
    Emploi
    Chargé de mission SIG
    Âge
    34
    Messages
    1 490

    Par défaut Re : Ouvrir un fichier excel par un menu

    Bonjour,

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

    Code:
    path = "C:\test.xls"
    
    chemin_tab = "C:\test.tab"

  3. #3

    Date d'inscription
    février 2012
    Messages
    38

    Par défaut Re : Ouvrir un fichier excel par un menu

    Mais s'ils sont amenés a changer ce n'est pas grave ?
    parce que le nom du fichier change aussi
    Dernière modification par pounette78 ; 26/08/2013 à 13h18.

  4. #4

    Date d'inscription
    mars 2008
    Localisation
    Nancy
    Emploi
    Sans
    Messages
    4 464

    Par défaut Re : Ouvrir un fichier excel par un menu

    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
    Dernière modification par Spacejo ; 26/08/2013 à 14h22.

  5. #5

    Date d'inscription
    février 2012
    Messages
    38

    Par défaut Re : Ouvrir un fichier excel par un menu

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

    Code:
    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

  6. #6

    Par défaut Re : Ouvrir un fichier excel par un menu

    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

 

 

Discussions similaires

  1. [MapBasic 8.x] Ouvrir la fenêtre fichier ouvrir
    Par jeremy_SIG dans le forum Programmation
    Réponses: 4
    Dernier message: 17/06/2010, 10h49
  2. [MapInfo 9.x] Ouvrir un doc Excel
    Par Leelou dans le forum Assistance Technique
    Réponses: 5
    Dernier message: 23/07/2008, 10h40
  3. [ArcGIS 9.x] Impossible d'ouvrir un projet avec la barre d'outil/menu
    Par mimic dans le forum Assistance Technique
    Réponses: 4
    Dernier message: 11/04/2008, 10h37
  4. [MapBasic 7.x] Ouvrir un fichier Excel
    Par m'hamed lasram dans le forum Programmation
    Réponses: 15
    Dernier message: 10/04/2008, 10h59
  5. [QGIS 0.8] Ouvrir un fichier Excel ou CSV
    Par abel.ludba dans le forum Assistance et Programmation
    Réponses: 6
    Dernier message: 14/06/2007, 10h00

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •