Importation d'un userform d'un fichier à un autre fichier

[Tatiana29]

Bonjour,j'ai deux fichiers.
-1 que j'ai trouvé sur ce forum avec une barre de progression exemple barre de progression
-1 autre fichier test avec une petite macro exemple1
Est il possible de faire une importation de la barre de manière facile.
j'ai tenté en copiant collant le code dans ma macro exemple 1 mais cela ne passe pas.
Mais j'ai trouver un truc importer masi je ne sais pas comment ca marche malgrè de nombreuses recherches.

Tatiana

 

[Bebere]

Re : Importation d'un userform d'un fichier à un autre fichier

bonjour Tatiana
les 2 fichiers ouverts
sous vbe(visual basic editor),tu cliques sur l'obet(içi userform1) vbaprojet exemple barre de progression...
clic maintenu tu le portes vers vbaprojet exemple1... (opération drag and drop)
à bientôt

 

[Tatiana29]

Re : Importation d'un userform d'un fichier à un autre fichier

Un grand merci,j'ai reussi à faire basculer la useform et j'ai modifié mon code mais quand j'appuie sur mon bouton, la userform ne s'affiche pas! Tabernak!
faut il ajouter une commande en plus?



Dim k, Pct As Integer

k = 0
Do

Worksheets("fe").Range("A2").Value = k + 1
k = k + 1
Pct = k
Application.Wait (Now + TimeSerial(0, 0, 1))
Call UpdateProgress(Pct)Loop While k < 3

End Sub
Sub UpdateProgress(Pct)
With UserForm1
.FrameProgress.Caption = Format(Pct, "0%")
.LabelProgress.Width = Pct * (.FrameProgress.Width - 10)
.Repaint
End With
End Sub

 

[MJ13]

Re : Importation d'un userform d'un fichier à un autre fichier

Bonjour Tatiana, Bebere

Un code pour importer un Userform (qui devra avoir été exporter avant dans C:\_VBA par exemple) et l'ouvrir . Idem pour le supprimer ( Delete_USF).

Il faut avoir la référence Application Extensibility (voir image) (Alt+F11 puis Référence).

Sub Import_USF()
On Error Resume Next
'Application.VBE.ActiveVBProject.VBComponents("C:\_VBA\M_Ins_VB_Thisworkbook.vba").VBE.
' include reference to extensibility library
Application.VBE.ActiveVBProject.VBComponents.Import "C:\_VBA\USF_NAME_MJ.frm"
ouvre
End Sub
Sub Delete_USF()
' include reference to extensibility library
Application.VBE.ActiveVBProject.VBComponents.Remove Application.VBE.ActiveVBProject.VBComponents("Userform1")
End Sub
Sub ouvre()
UserForm1.Show
End Sub

 

[Tatiana29]

Re : Importation d'un userform d'un fichier à un autre fichier

Salut michel ,
dans l'exemple 2 j'ai bien fait la manip de bebert.
Maintenant,je dois ajouter ton bout de code si j'ai bien compris.
je vais manger et on voit cela après!!
tatiana

 

[MJ13]

Re : Importation d'un userform d'un fichier à un autre fichier

Re

Voici un exemple avec un Userform en .frm et .frx qui ont été exportés avec Xl2007 (voir si cela fonctionne en 2003).

Copie tous les fichiers dans un dosssier sur ton C nommé Test (C:\Test). Puis fait le test en cliquant sur les 2 boutons.

En cas de problèmes, tu peux essayer d'exporter tes propres Userforms dans C:\Test et changer leur nom dans la macro.

Le but étant d'avoir des Userforms pour les importer facilement puisqu'ils restent toujours sur ton disque dur et tu n'as plus à les chercher .

 

[Bebere]

Re : Importation d'un userform d'un fichier à un autre fichier

bonjour Mj13
Tatiana fait changement dans bouton et userform
il fallait garder attente
à bientôt

 

[Tatiana29]

Re : Importation d'un userform d'un fichier à un autre fichier

Bebere
Tatiana fait changement dans bouton et userform
tu veux dire que je dois aller faire des modifs quelquepart?
je vois pourquoi ca marche avec ta fonction attente et pas avec la mienne.
Michel:
je vais tester ton fichier même si je ne comprends pas tout pour le moment.

 

[Bebere]

Re : Importation d'un userform d'un fichier à un autre fichier

non j'ai fait des changements tu devais garder la procédure attente ou du moins le nom

 

[Tatiana29]

Re : Importation d'un userform d'un fichier à un autre fichier

Merci,je vais me plonger dessus mais je ne vois ou tu faisais reference à attente.

 

[Bebere]

Re : Importation d'un userform d'un fichier à un autre fichier

Tatiana
code dans feuille userform1

Private Sub UserForm_activate()
FrameProgress.Caption = ""
LabelProgress.Width = "0"
Call attente 'attente se trouve dans le module1
End Sub

à bientôt