Bonjour mouspi,
Attache bien tes bottines ....!
A ) Ta macro complémentaire, Tu lui donnes un nom
Pour ce faire, tu déverrouilles au besoin ton xla et tu cliques
sur le composant ThisWorkbook de ton fichier xla.
Tu affiches la fenêtre des propriétés si ce n'est déjà fait, et tu
baptises ton fichier xla d'un nom en renseignant
la propriété "Name"
B ) Dans la fenêtre VBE (visual basic editor), à partir de la barre des
menus / outils / référence / tu coches dans la liste,
la référence ayant le nom de ton fichier xla (celui que tu viens de
baptiser)
C ) Dans un module standard de ton fichier Xla, tu définis des variables
publics dans le haut du module :
Public FrmCaption As String
Public FrmTxtContenu As String
Et comme tu l'as dit, tu définis une procédure d'ouverture de ton
formulaire
'------------------
Sub Lanceur()
frmLanceur.Show
End Sub
'------------------
D ) Dans le code de ton formulaire du fichier .xla, tu insères ceci en
prenant soin d'utiliser les bons noms de tes objets.
'-------------------------------
Private Sub UserForm_Initialize()
Me.Caption = Module1.FrmCaption
Me.TextBox1.Text = Module1.FrmTxtContenu
End Sub
'-------------------------------
Maintenant, dans le module standard du classeur où tu veux interpeller le
formulaire de ton classeur xla.
tu insères ceci :
Toto est la valeur de la propriété Name du classeur .xla (pour les besoins
de l'exemple)
Dans les lignes de code, il n'est pas nécessaire d'utiliser l'expression
toto devant l'appel des lignes de code, mais cela
peut aider à lire le code plus facilement.
'---------------------
Sub Formulaire()
Toto.FrmCaption = "ça marche"
Toto.FrmTxtContenu = "Wow ça marche"
Toto.Lanceur
End Sub
'---------------------
Attention, dans tout le processus, assure toi que tu utilises les bons
noms des objets appartenant à ton application.
Salutations!
"mouspi" a écrit dans le message de
news:
Bonsoir,
Les applications mises à disposition de chaque utilisateur, utilisent de
nombreux modules identiques, dont une même boîte de dialogue qui s'affiche
pour demander un choix du type : à partir de quel serveur souhaite-t-il
travailler (ServerA ou ServerB).
Seul, l'intitulé de la boîte de dialogue change selon l'application.
Pour éviter d'intégrer tous ces modules communs et le frmLanceur (mon
UserForm) dans chacune des applications, j'ai créé un classeur nommé
communs.xla auquel se réfère chacun des applicatifs.
Mon problème :
Depuis le module appelant, la commande frmLanceur.Show n'est pas acceptée;
je contourne le pb en :
- créant une procédure Lanceur dans communs.xla :
Sub Lanceur()
frmLanceur.Show
End Sub
Comment faire pour que la commande frmLanceur.Show soit acceptée
directement
depuis le module appelant?
Comment transmettre l'intitulé, pourque frmLanceur.Caption titreUserForm
soit accepté ?
En retour, comment récupérer les paramètres retour ServerA ou ServerB ?
Merci de toutes vos bonnes idées
MOUSPI
Bonjour mouspi,
Attache bien tes bottines ....!
A ) Ta macro complémentaire, Tu lui donnes un nom
Pour ce faire, tu déverrouilles au besoin ton xla et tu cliques
sur le composant ThisWorkbook de ton fichier xla.
Tu affiches la fenêtre des propriétés si ce n'est déjà fait, et tu
baptises ton fichier xla d'un nom en renseignant
la propriété "Name"
B ) Dans la fenêtre VBE (visual basic editor), à partir de la barre des
menus / outils / référence / tu coches dans la liste,
la référence ayant le nom de ton fichier xla (celui que tu viens de
baptiser)
C ) Dans un module standard de ton fichier Xla, tu définis des variables
publics dans le haut du module :
Public FrmCaption As String
Public FrmTxtContenu As String
Et comme tu l'as dit, tu définis une procédure d'ouverture de ton
formulaire
'------------------
Sub Lanceur()
frmLanceur.Show
End Sub
'------------------
D ) Dans le code de ton formulaire du fichier .xla, tu insères ceci en
prenant soin d'utiliser les bons noms de tes objets.
'-------------------------------
Private Sub UserForm_Initialize()
Me.Caption = Module1.FrmCaption
Me.TextBox1.Text = Module1.FrmTxtContenu
End Sub
'-------------------------------
Maintenant, dans le module standard du classeur où tu veux interpeller le
formulaire de ton classeur xla.
tu insères ceci :
Toto est la valeur de la propriété Name du classeur .xla (pour les besoins
de l'exemple)
Dans les lignes de code, il n'est pas nécessaire d'utiliser l'expression
toto devant l'appel des lignes de code, mais cela
peut aider à lire le code plus facilement.
'---------------------
Sub Formulaire()
Toto.FrmCaption = "ça marche"
Toto.FrmTxtContenu = "Wow ça marche"
Toto.Lanceur
End Sub
'---------------------
Attention, dans tout le processus, assure toi que tu utilises les bons
noms des objets appartenant à ton application.
Salutations!
"mouspi" <mouspi@kichette.com> a écrit dans le message de
news:OpmYGZypEHA.1160@tk2msftngp13.phx.gbl...
Bonsoir,
Les applications mises à disposition de chaque utilisateur, utilisent de
nombreux modules identiques, dont une même boîte de dialogue qui s'affiche
pour demander un choix du type : à partir de quel serveur souhaite-t-il
travailler (ServerA ou ServerB).
Seul, l'intitulé de la boîte de dialogue change selon l'application.
Pour éviter d'intégrer tous ces modules communs et le frmLanceur (mon
UserForm) dans chacune des applications, j'ai créé un classeur nommé
communs.xla auquel se réfère chacun des applicatifs.
Mon problème :
Depuis le module appelant, la commande frmLanceur.Show n'est pas acceptée;
je contourne le pb en :
- créant une procédure Lanceur dans communs.xla :
Sub Lanceur()
frmLanceur.Show
End Sub
Comment faire pour que la commande frmLanceur.Show soit acceptée
directement
depuis le module appelant?
Comment transmettre l'intitulé, pourque frmLanceur.Caption titreUserForm
soit accepté ?
En retour, comment récupérer les paramètres retour ServerA ou ServerB ?
Merci de toutes vos bonnes idées
MOUSPI
Bonjour mouspi,
Attache bien tes bottines ....!
A ) Ta macro complémentaire, Tu lui donnes un nom
Pour ce faire, tu déverrouilles au besoin ton xla et tu cliques
sur le composant ThisWorkbook de ton fichier xla.
Tu affiches la fenêtre des propriétés si ce n'est déjà fait, et tu
baptises ton fichier xla d'un nom en renseignant
la propriété "Name"
B ) Dans la fenêtre VBE (visual basic editor), à partir de la barre des
menus / outils / référence / tu coches dans la liste,
la référence ayant le nom de ton fichier xla (celui que tu viens de
baptiser)
C ) Dans un module standard de ton fichier Xla, tu définis des variables
publics dans le haut du module :
Public FrmCaption As String
Public FrmTxtContenu As String
Et comme tu l'as dit, tu définis une procédure d'ouverture de ton
formulaire
'------------------
Sub Lanceur()
frmLanceur.Show
End Sub
'------------------
D ) Dans le code de ton formulaire du fichier .xla, tu insères ceci en
prenant soin d'utiliser les bons noms de tes objets.
'-------------------------------
Private Sub UserForm_Initialize()
Me.Caption = Module1.FrmCaption
Me.TextBox1.Text = Module1.FrmTxtContenu
End Sub
'-------------------------------
Maintenant, dans le module standard du classeur où tu veux interpeller le
formulaire de ton classeur xla.
tu insères ceci :
Toto est la valeur de la propriété Name du classeur .xla (pour les besoins
de l'exemple)
Dans les lignes de code, il n'est pas nécessaire d'utiliser l'expression
toto devant l'appel des lignes de code, mais cela
peut aider à lire le code plus facilement.
'---------------------
Sub Formulaire()
Toto.FrmCaption = "ça marche"
Toto.FrmTxtContenu = "Wow ça marche"
Toto.Lanceur
End Sub
'---------------------
Attention, dans tout le processus, assure toi que tu utilises les bons
noms des objets appartenant à ton application.
Salutations!
"mouspi" a écrit dans le message de
news:
Bonsoir,
Les applications mises à disposition de chaque utilisateur, utilisent de
nombreux modules identiques, dont une même boîte de dialogue qui s'affiche
pour demander un choix du type : à partir de quel serveur souhaite-t-il
travailler (ServerA ou ServerB).
Seul, l'intitulé de la boîte de dialogue change selon l'application.
Pour éviter d'intégrer tous ces modules communs et le frmLanceur (mon
UserForm) dans chacune des applications, j'ai créé un classeur nommé
communs.xla auquel se réfère chacun des applicatifs.
Mon problème :
Depuis le module appelant, la commande frmLanceur.Show n'est pas acceptée;
je contourne le pb en :
- créant une procédure Lanceur dans communs.xla :
Sub Lanceur()
frmLanceur.Show
End Sub
Comment faire pour que la commande frmLanceur.Show soit acceptée
directement
depuis le module appelant?
Comment transmettre l'intitulé, pourque frmLanceur.Caption titreUserForm
soit accepté ?
En retour, comment récupérer les paramètres retour ServerA ou ServerB ?
Merci de toutes vos bonnes idées
MOUSPI
Bonjour mouspi,
Attache bien tes bottines ....!
A ) Ta macro complémentaire, Tu lui donnes un nom
Pour ce faire, tu déverrouilles au besoin ton xla et tu cliques
sur le composant ThisWorkbook de ton fichier xla.
Tu affiches la fenêtre des propriétés si ce n'est déjà fait, et tu
baptises ton fichier xla d'un nom en renseignant
la propriété "Name"
B ) Dans la fenêtre VBE (visual basic editor), à partir de la barre des
menus / outils / référence / tu coches dans la liste,
la référence ayant le nom de ton fichier xla (celui que tu viens de
baptiser)
C ) Dans un module standard de ton fichier Xla, tu définis des variables
publics dans le haut du module :
Public FrmCaption As String
Public FrmTxtContenu As String
Et comme tu l'as dit, tu définis une procédure d'ouverture de ton
formulaire
'------------------
Sub Lanceur()
frmLanceur.Show
End Sub
'------------------
D ) Dans le code de ton formulaire du fichier .xla, tu insères ceci en
prenant soin d'utiliser les bons noms de tes objets.
'-------------------------------
Private Sub UserForm_Initialize()
Me.Caption = Module1.FrmCaption
Me.TextBox1.Text = Module1.FrmTxtContenu
End Sub
'-------------------------------
Maintenant, dans le module standard du classeur où tu veux interpeller le
formulaire de ton classeur xla.
tu insères ceci :
Toto est la valeur de la propriété Name du classeur .xla (pour les besoins
de l'exemple)
Dans les lignes de code, il n'est pas nécessaire d'utiliser l'expression
toto devant l'appel des lignes de code, mais cela
peut aider à lire le code plus facilement.
'---------------------
Sub Formulaire()
Toto.FrmCaption = "ça marche"
Toto.FrmTxtContenu = "Wow ça marche"
Toto.Lanceur
End Sub
'---------------------
Attention, dans tout le processus, assure toi que tu utilises les bons
noms des objets appartenant à ton application.
Salutations!
"mouspi" a écrit dans le message de
news:
Bonsoir,
Les applications mises à disposition de chaque utilisateur, utilisent de
nombreux modules identiques, dont une même boîte de dialogue qui s'affiche
pour demander un choix du type : à partir de quel serveur souhaite-t-il
travailler (ServerA ou ServerB).
Seul, l'intitulé de la boîte de dialogue change selon l'application.
Pour éviter d'intégrer tous ces modules communs et le frmLanceur (mon
UserForm) dans chacune des applications, j'ai créé un classeur nommé
communs.xla auquel se réfère chacun des applicatifs.
Mon problème :
Depuis le module appelant, la commande frmLanceur.Show n'est pas acceptée;
je contourne le pb en :
- créant une procédure Lanceur dans communs.xla :
Sub Lanceur()
frmLanceur.Show
End Sub
Comment faire pour que la commande frmLanceur.Show soit acceptée
directement
depuis le module appelant?
Comment transmettre l'intitulé, pourque frmLanceur.Caption titreUserForm
soit accepté ?
En retour, comment récupérer les paramètres retour ServerA ou ServerB ?
Merci de toutes vos bonnes idées
MOUSPI
Bonjour mouspi,
Attache bien tes bottines ....!
A ) Ta macro complémentaire, Tu lui donnes un nom
Pour ce faire, tu déverrouilles au besoin ton xla et tu cliques
sur le composant ThisWorkbook de ton fichier xla.
Tu affiches la fenêtre des propriétés si ce n'est déjà fait, et tu
baptises ton fichier xla d'un nom en renseignant
la propriété "Name"
B ) Dans la fenêtre VBE (visual basic editor), à partir de la barre des
menus / outils / référence / tu coches dans la liste,
la référence ayant le nom de ton fichier xla (celui que tu viens de
baptiser)
C ) Dans un module standard de ton fichier Xla, tu définis des variables
publics dans le haut du module :
Public FrmCaption As String
Public FrmTxtContenu As String
Et comme tu l'as dit, tu définis une procédure d'ouverture de ton
formulaire
'------------------
Sub Lanceur()
frmLanceur.Show
End Sub
'------------------
D ) Dans le code de ton formulaire du fichier .xla, tu insères ceci en
prenant soin d'utiliser les bons noms de tes objets.
'-------------------------------
Private Sub UserForm_Initialize()
Me.Caption = Module1.FrmCaption
Me.TextBox1.Text = Module1.FrmTxtContenu
End Sub
'-------------------------------
Maintenant, dans le module standard du classeur où tu veux interpeller le
formulaire de ton classeur xla.
tu insères ceci :
Toto est la valeur de la propriété Name du classeur .xla (pour les besoins
de l'exemple)
Dans les lignes de code, il n'est pas nécessaire d'utiliser l'expression
toto devant l'appel des lignes de code, mais cela
peut aider à lire le code plus facilement.
'---------------------
Sub Formulaire()
Toto.FrmCaption = "ça marche"
Toto.FrmTxtContenu = "Wow ça marche"
Toto.Lanceur
End Sub
'---------------------
Attention, dans tout le processus, assure toi que tu utilises les bons
noms des objets appartenant à ton application.
Salutations!
"mouspi" <mouspi@kichette.com> a écrit dans le message de
news:OpmYGZypEHA.1160@tk2msftngp13.phx.gbl...
Bonsoir,
Les applications mises à disposition de chaque utilisateur, utilisent de
nombreux modules identiques, dont une même boîte de dialogue qui s'affiche
pour demander un choix du type : à partir de quel serveur souhaite-t-il
travailler (ServerA ou ServerB).
Seul, l'intitulé de la boîte de dialogue change selon l'application.
Pour éviter d'intégrer tous ces modules communs et le frmLanceur (mon
UserForm) dans chacune des applications, j'ai créé un classeur nommé
communs.xla auquel se réfère chacun des applicatifs.
Mon problème :
Depuis le module appelant, la commande frmLanceur.Show n'est pas acceptée;
je contourne le pb en :
- créant une procédure Lanceur dans communs.xla :
Sub Lanceur()
frmLanceur.Show
End Sub
Comment faire pour que la commande frmLanceur.Show soit acceptée
directement
depuis le module appelant?
Comment transmettre l'intitulé, pourque frmLanceur.Caption titreUserForm
soit accepté ?
En retour, comment récupérer les paramètres retour ServerA ou ServerB ?
Merci de toutes vos bonnes idées
MOUSPI
Bonjour mouspi,
Attache bien tes bottines ....!
A ) Ta macro complémentaire, Tu lui donnes un nom
Pour ce faire, tu déverrouilles au besoin ton xla et tu cliques
sur le composant ThisWorkbook de ton fichier xla.
Tu affiches la fenêtre des propriétés si ce n'est déjà fait, et tu
baptises ton fichier xla d'un nom en renseignant
la propriété "Name"
B ) Dans la fenêtre VBE (visual basic editor), à partir de la barre des
menus / outils / référence / tu coches dans la liste,
la référence ayant le nom de ton fichier xla (celui que tu viens de
baptiser)
C ) Dans un module standard de ton fichier Xla, tu définis des variables
publics dans le haut du module :
Public FrmCaption As String
Public FrmTxtContenu As String
Et comme tu l'as dit, tu définis une procédure d'ouverture de ton
formulaire
'------------------
Sub Lanceur()
frmLanceur.Show
End Sub
'------------------
D ) Dans le code de ton formulaire du fichier .xla, tu insères ceci en
prenant soin d'utiliser les bons noms de tes objets.
'-------------------------------
Private Sub UserForm_Initialize()
Me.Caption = Module1.FrmCaption
Me.TextBox1.Text = Module1.FrmTxtContenu
End Sub
'-------------------------------
Maintenant, dans le module standard du classeur où tu veux interpeller le
formulaire de ton classeur xla.
tu insères ceci :
Toto est la valeur de la propriété Name du classeur .xla (pour les besoins
de l'exemple)
Dans les lignes de code, il n'est pas nécessaire d'utiliser l'expression
toto devant l'appel des lignes de code, mais cela
peut aider à lire le code plus facilement.
'---------------------
Sub Formulaire()
Toto.FrmCaption = "ça marche"
Toto.FrmTxtContenu = "Wow ça marche"
Toto.Lanceur
End Sub
'---------------------
Attention, dans tout le processus, assure toi que tu utilises les bons
noms des objets appartenant à ton application.
Salutations!
"mouspi" a écrit dans le message de
news:
Bonsoir,
Les applications mises à disposition de chaque utilisateur, utilisent de
nombreux modules identiques, dont une même boîte de dialogue qui s'affiche
pour demander un choix du type : à partir de quel serveur souhaite-t-il
travailler (ServerA ou ServerB).
Seul, l'intitulé de la boîte de dialogue change selon l'application.
Pour éviter d'intégrer tous ces modules communs et le frmLanceur (mon
UserForm) dans chacune des applications, j'ai créé un classeur nommé
communs.xla auquel se réfère chacun des applicatifs.
Mon problème :
Depuis le module appelant, la commande frmLanceur.Show n'est pas acceptée;
je contourne le pb en :
- créant une procédure Lanceur dans communs.xla :
Sub Lanceur()
frmLanceur.Show
End Sub
Comment faire pour que la commande frmLanceur.Show soit acceptée
directement
depuis le module appelant?
Comment transmettre l'intitulé, pourque frmLanceur.Caption titreUserForm
soit accepté ?
En retour, comment récupérer les paramètres retour ServerA ou ServerB ?
Merci de toutes vos bonnes idées
MOUSPI
