Le portail francophone de la géomatique

Bonjour à tous,

Je suis en train de créer un mbx pour les besoins interne de notre compagnie.

En fait j'ai le code dont les 2 sub suivantes et j'aimerais que ma variables "path_tab" ait la même valeur que ma variable "path_excel" qui est égale à la valeur de mon control 1 sauf pour le .xls. Le but est d'ouvrir, de façons automatique, un excel et enregistre en .tab au même endroit.


Je vois 2 possibilités

1. Est-il possible de tronquer le .xls et le remplacer par le .tab.

du genre

path_tab = Replace(path_excel, ".xls", ".tab")

Ou

2. Prendre notre variable "path_tab"  de la deuxième sub et lui donne la valeur de la variable "exceldir" de la première sub (un peu comme ReadControlValue(1)....ReadvarValue(x)). Dans le cas échéan, la sub 1 est toujours appeler avant la sub 2 et pour démarer la sub 2 il faut absolument que "exceldir" <> ""

ensuite

dim a as string
a = path_tab + ".tab"

'*************************************Code

sub path

dim path_filedir as string
dim exceldir As String
dim excelname As String
dim filepathl As String

path_filedir = FileOpenDlg("C:\sig\intranet\Ventes\Ratio_vente_soum\par_produit","","xls","Ouvrir Excel")
exceldir = PathToDirectory$(path_filedir)
excelname = PathToFileName$(path_filedir)
filepath = exceldir + excelname

Alter Control 1 Value filepath

end sub

sub fusion_xls

dim path_excel as string
dim path_tab as string


path_excel = ReadControlValue(1)
path_tab =?

Register Table path_excel TYPE XLS Range "Feuil1!A16:F1000"  Interactive Into path_tab

....

end sub

'***************************************fin

Merci,
Jean-François Cyr

Dernière modification par jean94 (Mon 19 April 2010 19:55)