Annonce
#1 Wed 14 April 2010 18:06
- jean94
- Participant assidu
- Date d'inscription: 13 Aug 2009
- Messages: 436
afficher le "path" dans un édit text
Bonjour à tous, j'essaie d'afficher le chemin d'un .xls dans un controle edittext. À partir du choix de l'utilisateur. J'ai un problème de routine/variable dans ma procédure et je ne suis pas programmeur.
Si quelqu'un pourrait m'aider voici un extrait de mon code assez facile :
declare mise_a_jour
declare sub path
sub mise_a_jour
Dialog
Title " Mise à jour "
Width 200
Height 100
Position 200, 250
control edittext
position 10, 50
value s_filename
width 140
control button
position 155, 50
width 45
height 15
title "Ouvrir"
calling path
Control StaticText
title "Ouvrir Excel"
position 10, 65
end sub
sub path
dim s_filename as string
s_filename_qc = FileOpenDlg("C:\sig\donnees","","xls","Ouvrir Excel QC FSA")
end sub
Toute documentation supplémentaire pour passe une variable d'une function à une autre (du simple basic_ est apprécié
Merci
Jf
Hors ligne
#2 Wed 14 April 2010 20:57
- jean94
- Participant assidu
- Date d'inscription: 13 Aug 2009
- Messages: 436
Re: afficher le "path" dans un édit text
J'ai pu trouver le hic. si jamais sa peut être utile à quelqu'un voici le code :
declare mise_a_jour
declare sub path
sub mise_a_jour
Dialog
Title " Mise à jour "
Width 200
Height 100
Position 200, 250
control edittext
position 10, 50
ID 1
value ""
width 140
control button
position 155, 50
width 45
height 15
title "Ouvrir"
calling path
Control StaticText
title "Ouvrir Excel"
position 10, 65
end sub
sub path
dim s_filename as string
dim s_specs as string
s_filename = FileOpenDlg("C:\sig\donnees","","xls","Ouvrir Excel QC FSA")
s_specs = PathToDirectory$(path_filename)
Alter Control 1 Value s_specs
end sub
Hors ligne
