Comment passer d'un userform à des fichiers Excel

Bonjour,
Je viens vers vous car je rencontre un problème avec un userform . Après que celui-ci ait été chargé, je n'arrive plus à passer sur des fichiers Excel ouverts. J'ai testé à "True" & "False" la condition ShowModal mais rien n'y fait. Si vous pouviez me donner quelques pistes de résolutions, je suis preneur. Je vous laisse ci-dessous le code que j'ai mis dans userform_Activate pour son positionnement à l'écran

Code:

---

1 2 3 4 5 6 7

With Me .StartUpPosition = 3 .Width = Application.Width .Height = Application.Height .Left = 0 .Top = 0 End With

---

Pourriez-vous également m'indiquer comment je peux interdire aux utilisateurs en lecture seule l'accès aux feuilles EXCEL du fichier dont dépend cet userform ?

Je vous remercie par avance.

MichaSarah
Configuration : EXCEL 2003 Windows XP

Bonjour,

DAns un premier temps tu nous explique que tu ne veux peu pas accéder a tes fichier excel et que c ate pose un problème. Puis tu nous explique que tu ne veux pas que l'utilisateur ai accès au fichier.
Il faudrait être plus clair.

Tu veux ou tu ne veux pas que le userform empêche l'accès au classeur par l'utilisateur?

Bonsoir,
Je souhaite que les utilisateurs puissent aller sur d'autres classeurs Excel mais qu'ils n'aient pas accès aux feuilles du classeur où se trouve l'userform.

Si mon explication n'est pas claire :
Classeur 1 (ou se trouve l'userform) avec onglets 1,2,3,...
Classeur 2 ouvert
Classeur 3 ouvert


Je souhaite, qu'à partir de l'userform qui est à l'écran, les utilisateurs puissent basculer vers les classeurs 2 ou 3 ou bien ouvrir un nouveau classeur mais ne puissent pas accéder aux onglets 1,2,3,... du classeur 1 (onglets où se trouvent les données).

salutations
MichaSarah

Bonsoir à tous,

Je reviens vers vous car en manipant je viens de m'apercevoir que c'est l' userform en premier plan qui empèche le passage vers les autres fichiers Excel (J'ai mis ShowModal à "False" et lorsque je déplace l'userform , je vois bien les fichiers excel défiler mais il ne sont pas accessibles). Existe t-il une solution pour garder l'userform en premier plan à l'ouverture mais avec la possibilité de passer sur d'autres fichiers Excel ?


merci par avance pour votre aide

MichaSarah

bonjour essaie plutot

Code:

---

userform1.show 0

---

la fonction false pour le mode modal des userform ne marche pas tout le temp selon le system d'exploitation et les mise a jour instalées je supose que le probleme doit ce situer au niveau de net framework selon la version

le "show 0" est plus corectement interprété par exel quel que se soit le systeme d'exploitation


voila si sa peut aider

Bonjour patricktoulon

Merci pour ta réponse
J'ai essayé de mettre le code ci-dessous pour appeler l'userform mais malheureusement cela ne change rien . j'ai tenté avec showmodal en "True" et "False" . Seules les nouvelles feuilles Excel ouvertes après celle contenant cet userform peuvent être activées.

Code:

---

1 2 3

Sub appel_form() ListeVhs.Show 0 End Sub

---

salutations

MichaSarah

Bonjour,

En procédant de façon empirique

Essayes avec ce fichier, voir ce que ça donne chez toi ?

http://stock.dg-solutions.fr//Fichiers/Testatenter.xls

cordialement,

Didier

Bonsoir Ormonth,

J'ai essayé ton fichier , mais les documents Excel ouverts avant de le lancer ne sont toujours pas accessibles. Je continu de chercher de mon coté, si l'un d'entre vous a une solution je suis preneur...

merci par avance

MichaSarah

Bonjour,

conseil : regarder quelques épisodes de Dr House si ce n'est fait ;)

Là, il faut qu'on établisse un diagnostique...

Dans le classeur proposé, le premier test est de l'ouvrir seul avec ses macros (après vérif de son innocuité comme il se doit).
dans on workbook open on a :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Workbook_Open() 'code basique rapidos pour tests.... Dim sh As Worksheet   Workbooks.Add Workbooks.Add Workbooks.Add ThisWorkbook.Activate   For Each sh In ThisWorkbook.Worksheets sh.Protect sh.EnableSelection = xlNoSelection Next sh   UserForm1.Show End Sub

---

Chez moi, j'ai le fichier Testatenter qui est protégé pour ses feuilles, mais j'ai accès aux 3 autres classeurs via Fenêtre etc... sans pb et je peux écrire etc...

Où je voulais en venir par empirique, c'est que tu fasses cette manip, et que tu nous dises le résultat du genre :

j'ai ouvert ce classeur Seul.

mon usf se comporte...
les feuilles de ce classeur sont bien protégées
quand je vais dans fenêtre et que le clique sur...
ou bien le menu fenêtre m'est inaccessible etc..

Ps : ton code (sans préjuger de son placement) dans userform_Activate n'a pas d'influence ici (testé).

à partir de là, on aura fait un premier pas , si ça bloque à ce niveau, on est sur du code simplissime et connu et on creuse, si ça passe comme ça, on essayes de trouver d'autres paramètres pour reproduire le plantage...

cordialement,

Didier

Bonsoir Ormonth,
Je réponds tardivement mais j'ai du laisser de coté ce travail quelques semaines. J'ai refais l'essai en adaptant ton code à mon fichier et celà fonctionne. J'ouvre le fichier avec l'userform et je peux aller d'un document Excel à un autre sans problème.
Le seul point bloquant est lorsque je mets l'userform en plein écran. J'essaye de sélectionner (par la barre des tâches) un des fichiers ouverts avant celui contenant l'userform mais là je me retrouve dans le même cas qu'avant.
Le but d'avoir un userform plein écran est de cacher les données excel et de donner un aspect "base de données".

Merci pour ton aide
MichaSarah

Bonjour,
J'ai déjà rencontré ce problème, pour mon cas, cette situation venait après un bug non réparé alors que j'avais mis en début de procédure "application.ScreenUpdating = false" et true en fin de procédure mais qui n'était pas atteint. J'ai pu avoir accès aux feuilles, seulement après avoir reprovoqué une minimacro

Code:

---

application.ScreenUpdating = true

---

, allez savoir pourquoi
mais ceci ne correspond peut-être pas du tout à ton problème, à voir...

Bonjour

l'userform plein écran n'est pas toujours le plus pratique, vois aussi du côté de la propriété WindowState genre :

Code:

---

Application.WindowState =xlMinimized

---

cordialement,

Didier

bonjour
une autre idée je vien de m'apercevoir que :

quand la macro fait apel a une autre feuille d'un autre classeur le form etait bloquer et le sheetetait innutilisable

alors en fin de macro

Code:

---

lenomdetonuserform. show 0

---

tout simplement comme si le form n'etait pas activé
ca le remet en premiere position et tes feuilles restent acessibles

Bonjour à tous,
Merci pour votre aide. J'ai essayé toutes les solutions mais en vain . Le fait d'avoir l'userform plein écran bloque systématiquement l'accès aux fichiers excel déja ouverts. Il faut que j'ouvre à nouveau une session excel pour que les fichiers soient accessibles sinon les précédents défilent sous l'userform sans pouvoir avoir la main (à moins de décaler l'userform et là je peux aller sur les autres feuilles.).

Encore merci
MichaSarah