Discussion :

[EvaristeGaloisBis]

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

[jfontaine]

Tu peux utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Path

[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.

[zazaraignée]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Path

[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.

[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 ?

[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

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

Sélectionner tout - Visualiser dans une fenêtre à part

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... :-/

[EvaristeGaloisBis]

Non en fait j'ai trouvé mon erreur.
il fallait mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
stNomFichier = "toto.frm"
 
stUrl = stchemin & stNomFichier
 
ThisWorkbook.VBProject.VBComponents.Import (stUrl)

Merci pour vos réponses !