userform affiché en permanence

[Geraldine]

Bonjour,

Comment afficher en permanence une userform dans un dossier.
L'utilisation de showmodal = false, permet à la userform d'être affichée en permanence mais sur tous les dossiers ouvert, moi je veux uniquement dans le dossier qui comporteras la macro.

Merci Géraldine

 

[Geraldine]

Re : userform affiché en permanence

J'ai mis le code :

ça marche quand je change de dossier (deactivate) mais quand je reviens sur le dossier (activate), il stipule une erreur

Private Sub Workbook_Activate()
UserForm1.Show ' ICI
End Sub

Private Sub Workbook_Deactivate()
Unload UserForm1
End Sub

@

 

[Geraldine]

Re : userform affiché en permanence

mon erreur vient de mon activation de dossier par macro .

Dans dossier données.xls, pour retourner dans le dossier D*.xls

Private Sub CommandButton1_Click()
Windows(Me.ComboBox1.Value).Activate
Unload UserForm3
End Sub

et c'est pour ça que ça marche pas , mais pourquoi ?

dossier D*.xls
Private Sub Workbook_Activate()
UserForm1.Show
End Sub

@ merci

 

[Geraldine]

Re : userform affiché en permanence

bonsoir
est ce que ce soir je vais avoir pus de chance . . .

merci geraldine

 

[JCGL]

Re : userform affiché en permanence

Bonjour,

J'ai pris ton code :

Option Explicit

Private Sub Workbook_Activate()
UserForm1.Show
End Sub

Private Sub Workbook_Deactivate()
Unload UserForm1
End Sub

que j'ai placé dans ThisWorkBook et mis le ShowModal à False

et cela fonctionne chez moi 😕

Peux-tu essayer avec ce fichier et en ouvrant un autre fichier ?

A+

 

[Geraldine]

Re : userform affiché en permanence

bonsoir jcgl,

oui ça marche si tu passe par exemple par les onglets d'excel dans la barre de windows (en bas). Mais je passe d'un dossier à l'autre par lintermediaire d'une userform et une combobox ainsi qu'un bouton et le code ci-dessous

Private Sub CommandButton1_Click()
Windows(Me.ComboBox1.Value).Activate
Unload UserForm3
End Sub

et là il bug au niveau de

Private Sub Workbook_Activate()
UserForm1.Show ' ICI
End Sub

@

 

[Geraldine]

Re : userform affiché en permanence

et pour completer,les infos por m combobx

Private Sub UserForm_Initialize()
For i = 1 To Application.Workbooks.Count
x = Application.Workbooks.Item(i).Name
Me.ComboBox1.AddItem x
Next
End Sub

 

[JCGL]

Re : userform affiché en permanence

Re,

Peux-être serait-il judicieux, pour éviter de tourner en rond, de joindre ton fichier 😛

A+

 

[Geraldine]

Re : userform affiché en permanence

en deux fois j'ai pas de zip sur cet ordi

 

[Geraldine]

Re : userform affiché en permanence

et le second fichier

 

[jeanpierre]

Re : userform affiché en permanence

Bonsoir Geraldine, JC,

Pour info....

Pas de Zip, t'es pas encore sous Win 3.1... alors...

Clic droit sur ton fichier et Envoyer vers/Dossier compressé.... et c'est bon....

Bonne soirée

 

[Geraldine]

Re : userform affiché en permanence

il faut ouvrir les 2 fichiers, et sur gege01 tu as un bouton, et tu arrives a une combobox quite donne la liste des dossiers, tu clic sur le dossier gégé02 et bug, et je menvois pour ecrire mon ordinateur portable est lent a l'ecriture... lettre manquante etc ...
merci

 

[Geraldine]

Re : userform affiché en permanence

bonsoir jeanpierre et oui j'avais pas vu, entre vista et excel 2007 ... rrrrrrrrrr

 

[JCGL]

Re : userform affiché en permanence

Re,

Si j'ai bien compris ta demande....

J'ai testé chez moi et cela fonctionne

A+

 

[Geraldine]

Re : userform affiché en permanence

sans rien modifié ?