Discussion :

[touche_a_tout]

Bonsoir,
J'ai créé un bouton associé à une macro qui devrait ouvrir un classeur (Des_Mots.xls) et afficher une userform (tablodebor). J'ai tout essayé, comme dit l'autre, mais j'y arrive pas
Pour le moment j'en suis là:

Code :

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

1
2
3
4
5
Sub OuvrirDesMots()
    Windows("des_mots.xls").Activate
        Dim mafeuille As UserForm
        Set mafeuille = ActiveWorkbook.UserForms.Add("tablodebor")
End Sub

J'obtiens: propriété non gérée par cet objet. Pourtant dans l'aide VBA l'un des exemples pour Userforms est justement Userforms.Add. Comprends pas.
Que faire ?
Merci de votre aide
Cordialement
Pierre

[Oh!Tofocus]

Bonsoir...
essaye donc

Code :

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

1
2
 
tablodebor.show

pour lancer l'UserForm

[touche_a_tout]

Bonsoir Oh!Tofocus et merci,
Je garde en note (j'avais déjà testé) mais pour l'instant ça bloque à la ligne précédente, sur .Add
Le mystère
Bonne soirée
Pierre

[spileo]

Bonsoir,

je sais pas quelle version de Excel tu as mais moi j'ai la 2000, je viens de regarder dans l'aide et Add n'est pas une méthode de la collections UserForms donc l'erreur que te renvoie le compilateur est plutôt logique.
Si tu veux créer des UserForms par le code, il faut que tu cherches du côté de la création dynamique de UserForm, de contrôles, etc.

[tirex28]

Bonsoir,

La collection UserForms est l'ensemble des objets UserForm chargés dans une application. La collection UserForms possède une propriété Count et Item, ainsi qu'une méthode Add.

De ce que j'en sais cette méthode n'est utile que lorsque on importe un userform dans le projet.

Code :

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

1
2
3
4
5
6
7
8
Sub Test1() 'Ceci ne fonctionne pas
    'Avec Option Explicit erreur de compilation
    'Sans Option Explicit erreur d'execution Objet requis
    MsgBox UserForms.Count '0
    ActiveWorkbook.VBProject.VBComponents.Import ("C:\...\MonFormulaire.frm")
    MsgBox UserForms.Count '0
    MonFormulaire.Show
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
Sub Test2() 'Ceci fonctionne
    Dim Formulaire As Object
    MsgBox UserForms.Count '0
    ActiveWorkbook.VBProject.VBComponents.Import ("C:\...\MonFormulaire.frm")
    MsgBox UserForms.Count '0
    Set Formulaire = UserForms.Add("MonFormulaire")
    MsgBox UserForms.Count '>>>>>> 1
    Formulaire.Show
End Sub

Alors que dans les deux cas le formulaire est bien visible dans l'explorateur de projet.

Code :

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

1
2
3
4
5
Sub OuvrirDesMots()
    Windows("des_mots.xls").Activate
        Dim mafeuille As UserForm
        Set mafeuille = ActiveWorkbook.UserForms.Add("tablodebor")
End Sub

J'obtiens: propriété non gérée par cet objet. Pourtant dans l'aide VBA l'un des exemples pour Userforms est justement Userforms.Add. Comprends pas.

L'objet auquel le message fait référence est ActiveWorkbook qui n'a effectivement pas de propriété Userforms.

Que faire ?

Si tu veux lancer un formulaire nommé tablodebor existant dans le classeur Des_Mots.xls depuis un autre classeur il te suffit d'inclure dans le classeur Des_Mots.xls une procédure qui affiche ce formulaire:

Code :

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

1
2
3
Public Sub AfficheTablodebor()
    tablodebor.Show
End Sub

Puis d'appeler cette procédure:

Code :

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

1
2
3
4
5
Sub OuvrirDesMots()
    Windows("des_mots.xls").Activate
    'Le fichier des_mots.xls doit etre ouvert
    Application.Run "des_mots.xls!AfficheTablodebor"
End Sub

Bonne nuit,

Tirex28/

[touche_a_tout]

Bonjour,
Grand merci à tirex28, ça marche . Décidément, mes lacunes sont béantes.
Mais, car il y a un mais, et même deux:
Le bouton en question n'affiche pas sa caption. Pourtant mon code a l'air identique à celui de l'aide VBA_XL (au mot Caption):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub ajouteBouton()
Dim MonBouton As CommandBarButton
Set MonBouton = CommandBars("standard").Controls.Add(Type:=msoControlButton)
With MonBouton
    .Caption = "Oulip"
    .OnAction = "OuvrirDesMots"
    .State = msoButtonUp
    .Tag = "Btn_Oulip"
    .TooltipText = "Lance la manip"
End With
End Sub

Bizarre: le texte de la bulle s'affiche, lui !
Et second "mais": comment me débarrasser de la fenêtre "Les macros peuvent contenir des virus...etc." ?
Merci pour toute piste.
Cordialement
Pierre

[Guidhy]

Bonjour,

Pour le caption, peut être faut il definir le style du bouton ? (je suis pas sur...)

Code :

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

1
2
3
4
5
6
7
    .Caption = "Oulip"
    .OnAction = "OuvrirDesMots"
    .State = msoButtonUp
    .Tag = "Btn_Oulip"
    .TooltipText = "Lance la manip"
    .Style = msoButtonIconAndCaption  'Bouton texte et image
    .FaceId = 25 'image de ton bouton

Pour les alertes Macro, moi j'ai mis un niveau de sécurité "faible". (Outil --> Macro --> Sécurité) Attention toutefois quand tu ouvre un fichier que tu ne connais pas....

Espérant t'avoir aidé,

Je te souhaite une bonne journée

[tirex28]

Re,

Code :

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

1
2
3
4
5
With MonBouton
    '..
    .Style = msoButtonCaption
    '..
End With

Cordialement,

Tirex28/

[touche_a_tout]

Bonjour,
Cette fois elle affiche ! Merci à Guidhy (tu peux être sûr, maintenant) et à tirex28. Seul regret: j'ai pas trouvé tout seul
Où est donc ce bouton Résolu ? Ah oui !
A bientôt.
encore merci à tous
Pierre