remplacer nom formulaire par une variable

Bonjour

Je cherche à ouvrir un formulaire avec une variable.
J'ai ceci

Code:

---

Mon formulaire.Show

---

et je voudrais remplacer "Mon Formulaire" par ma variable"Formulaire1"j'ai testé par msgbox je récupère bien cette variable juste avant "Mon formulaire.show"
J'ai essayé

Code:

---

VBA.UserForms.add(Formulaire1).show

---

mais cela ne fonctionne pas
merci

Bonjour

A mon avis un problème de déclaration de variable et d'affectation du nom dans celle-ci.

Un exemple : http://silkyroad.developpez.com/VBA/UserForm/#LIII-A-3

Philippe

Bonjour Philippe

Merci de ta réponse ,avec les idées un peu plus claires ce matin ,effectivement cela fonctionne bien .
Mais voila le problème j'ai

Code:

---

Formulaire1=Me.name

---

pour récupérer le nom du formulaire qui est Compte, le formulaire est caché par

Code:

---

Compte.hide

---

pour l'afficher si je fais

Code:

---

Compte.show

---

il reste chargé ,mais si je fais

Code:

---

VBA.UserForms.add(Formulaire1).show

---

il s'affiche mais il est vide
merci

avec VBA.UserForms.add.. tu charge et tu ouvre un nouveau formulaire... et donc les saisies dans le précédent ne sont pas reportées...


2 questions :
- pourquoi vouloir trouver le nom de ton formulaire dans une variable ?
- combien de formulaires identique désire tu ouvrir ?

Bonjour

En fait il n'y à qu'un seul formulaire d'ouvert à la fois mais se n'est jamais le même.
Je m'explique dans chaque formulaire il y a bouton avec une macro qui active la même feuille ,je précise que cette feuille ce trouve sur une clef USB, et qui cache le formulaire.Sur cette feuille il y a un bouton avec une macro qui devrait ouvrir le formulaire précédemment caché.
Si je précise le nom du formulaire caché comme cela il s'ouvre chargé

Code:

---

Compte.show

---

si je l'ouvre avec sa variable il s'ouvre mais vide

Code:

---

VBA.UserForms.add(Formulaire1).show

---

si tu n'as qu'un seul formulaire de chargé tu n'as pas besoin de son nom :

Code:

---

1 2 3

If VBA.UserForms.Count > 0 Then VBA.UserForms(0).Show End If

---

Bonjour bbil

Merci bbil j'avais bien essayé UserForms.show mais j'avais oublier(0)
cela fonctionne
encore merci bbil