[vba-Excel]Boite de Dialogue et chemin

Version imprimable

13/07/2007, 19h12
EvaristeGaloisBis

[vba-Excel]Boite de Dialogue et chemin

Bonjour à tous,
j'ai réalisé une petit application sur VBA pour me permettre de me soulager dans mon travail, et j'aimerai améliorer mon code afin de pouvoir le faire migrer plus facilement a mes collègues.

J'ai créé une boite de dialogue que j'ai stocké en .frm. Mais j'aimerai savoir si je peux dans mon application pouvoir avoir l'équivalent du : "application.path" pour une userform ?
la question n'est pas très complexe a premiere vue, mais je n'ai pas trouvé de réponse depuis que je cherche (c'est a dire quelques jours).

@micalement
13/07/2007, 19h21
jfontaine

Tu peux utiliser

Code:

ActiveWorkbook.Path
14/07/2007, 11h45
EvaristeGaloisBis

bonjour,
en fait ça me prend le chemin du classeur ouvert mais pas du fichier .frm de ma boite de dialogue... c'est bien là le problème.
:(
14/07/2007, 14h41
zazaraignée

Code:

ActiveWorkbook.Path
14/07/2007, 16h43
jfontaine

Si tu as importé ton userform, il se trouve lié au classeur et par concéquent n'a plus de rapport avec le fichier frm.
15/07/2007, 11h26
EvaristeGaloisBis

a mince.
En fait dans mon idée, je voulais faire ceci : développer des boites de dialogues, les mettre quelque part en .frm, et après faire une macro qui les appelle.
Exemple :
J'ai créé une boite de dialogue sous le nom "toto.frm" qui est enregistrée sous :"c:\totoprojet\".
D'un autre coté j'ai un fichier ".xla" qui appellerait cette boite de dialogue depuis le code.
Du coup j'aimerai savoir si c'est possible ?
15/07/2007, 11h45
jfontaine

il est peut être possible d'importer un form et de le supprimer a la fin du traitement. mais je pense que lors de son exécution il fait partie du classeur
15/07/2007, 12h20
EvaristeGaloisBis
je ne comprends pas car j'essaie de le faire et a chaque fois j'ai une erreur.
Je mets le code suivant :
Code:

1 2 3 4 stNomFichier = "toto.frm" stUrl = stchemin & stNomFichier ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).CodeModule.AddFromFile (stUrl)
Il y a un truc que je fais de travers, mais quoi... :-/
15/07/2007, 12h29
EvaristeGaloisBis
Non en fait j'ai trouvé mon erreur.
il fallait mettre :
Code:

1 2 3 4 5 stNomFichier = "toto.frm" stUrl = stchemin & stNomFichier ThisWorkbook.VBProject.VBComponents.Import (stUrl)
Merci pour vos réponses ! :)