Afficher un form

Question

Bonjour 

J'ai 2 projets: 
- Dev (qui comprend 2 Forms (Accueil et Sociétés)) 
- Facturation 
Lorsque je suis dans Facturation et que je clic sur un bouton, j'ouvre le projet Dev et le form Accueil s'affiche. 

Comment je dois faire pour afficher le form Sociétés du projet Dev 

Private Sub Command2_Click() 
    Dim RetVal 
    RetVal = Shell("C:\WINDOWS\Dev.EXE", 1) 
    MaSélection = "Sociétés" 
    AppActivate "Dev" 
    'afficher FrmSociétés du projet Dev 
End Sub 

Merci d'avance pour l'aide

cs_Megafan · Answer

Salut,
Si j'ai bien compris ton pb, tu peux utiliser la fonction command dans le démarrage de ton projet Dev.

dans ton projet Facturation, tu mets 2 boutons
bouton1 : -> Acceuil de dev
bouton2 : ->Société de dev

dans le code du bouton1
tu ajoutes

RetVal = Shell("C:\WINDOWS\Dev.EXE acceuil", 1) 

dans bouton2

RetVal = Shell("C:\WINDOWS\Dev.EXE facturation", 1) 

Dans ton projet dev et dans le load de ta feuille principale
tu ajoutes 
if command="acceuil" then 
FrmAcceuil.show
else
FrmFacturation.show
end if

Voila si cela peux t'aider (si bien sur j'ai compris ton pb)

@+

cs_philippe · Answer

Merci pour la réponse. Ca fonctionne bien.

J'ai une autre question.

Dans les 2 projets j'ai une variable Public Nom as string.

Si dans un des projet j'affecte Nom=Toto comment je peux récupérer Toto dans l'autre projet?

merci et à +

Afficher un form

2 réponses

Discussions similaires