[Résolu] VBA Echec workbook close

vgendron

XLDnaute Barbatruc

• 19 Octobre 2017

• #2

Bonjour
essaie avec ces deux fichiers (sans évènement Workbook.open)

 

Pièces jointes

• Menu.xlsm

  17.3 KB · Affichages: 14
• Prog.xlsm

  17.7 KB · Affichages: 17

Vote positif 0 Vote négatif

xvella

XLDnaute Occasionnel

• 19 Octobre 2017

• #3

Merci vgnedron de me répondre mais le problème c'est que l'ouverture des userform est important.
Car ceci empèche tous accès au feuille en arrière plan avec la déssactivation de la croix.
Code de déssactivation:
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then Cancel = True
End Sub
Les feuilles sont ainsi toujours proteger de toute mauvaise action.

Encore Merci et A+

 

Vote positif 0 Vote négatif

xvella

XLDnaute Occasionnel

• 19 Octobre 2017

• #4

Sinon l'objectif est bien la.
Quand je suis dans Menu, je clic pour ouvrir Prog et fermer Menu mais problème de lancement Userform.
Quand je suis dans Prog, je clic pour ouvrir Menu et fermer Prog mais problème de lancement Userform.
Le problème n'est plus le même c tous.

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 19 Octobre 2017

• #5

dans ce cas.
à l'ouverture de tes fichiers, fais un test pour savoir si l"autre fichier est ouvert. pour le fermer le cas échéant..
à tester...
sinon.. ca me semble bancal est pas très orthodoxe...
à partir du fichier 1 , le code VBA de 1 ouvre le fichier 2...
SANS que le code 1 soit terminé, le code du fichier 2 se lance et vient fermer le fichier 1.....
pas sur qu'excel aime beaucoup...et attention à l'intégrité de tes datas... à voir

 

Pièces jointes

• Prog.xlsm

  18.6 KB · Affichages: 20
• Menu.xlsm

  19.8 KB · Affichages: 17

Vote positif 0 Vote négatif

xvella

XLDnaute Occasionnel

• 19 Octobre 2017

• #6

Même résultat sa ouvre bien le fichier puis ferme l'autre mais plus de lancement de Userform.

Je te r'assure sa fait 2 bon mois que je me casse les dents et je tourne en rond sur le même souci.

j'arrive a ouvrir - fermer et pas de lancement
ou ouvrir lancer mais plus fermer
avec plusieur fois plantage d'excel dans une boucle ou autre
j'ai même penser essayer de fermer via le userform mais la j'ai pas du tout réussi.

Merci beaucoup à toi.

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 19 Octobre 2017

• #7

à quoi sert ton userform?
celui que je vois ne sert qu'à ouvrir l'autre fichier..
visiblement, tu n'as pas mis tout le code associé
comme je te le disais.. un code ne peut pas fermer le fichier auquel il est associé (ce serait du suicide :-D)

il faudrait je pense que tu redéfinisse le besoin
si j'ai bien compris: lorsqu'un fichier s'ouvre, toutes les feuilles doivent être protégées..
--> plutot que proteger les feuilles à l'ouverture.. ne ferais tu pas mieux de TOUT protéger par défaut (donc rien à faire à l'ouverture) par contre.. pendant l'utilisation du fichier, tu déprotèges pour travailler dessus, tu enregistres et tu reprotège avant de fermer..

 

Vote positif 0 Vote négatif

xvella

XLDnaute Occasionnel

• 19 Octobre 2017

• #8

Le fichier de Menu n'est qu'un simple menu de sélection (Très simple) celui-ci permet la gestion d'une dixaine de fichier avec comme dans le cas de prog des userform de saisie de données qui eux ne premmetent pas l'accès au feuille du classeur. Dans c userform toutes est gérer de la simple frappe sur le clavier à la sauvegarde multi-fichier.
Mon soucci était que depuis la nouvelle version d'excel les impressions et la femeture d'excel lui même son devenu problématique.
Donc je cherche à n'avoir q'un seul fichier ouvert à la foi comme cela j'evite certain problème; avant le fichier menu était tout le temps ouvert.
Pour précission l'outil global est sur sevreur, le fichier menu est unique pour chaque PC mais tout le reste est commun sur l'ensemble du serveur (qui lui est européens)

 

Dernière édition: 19 Octobre 2017

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Octobre 2017

• #9

Bonsoir.
Ne pourriez vous essayer des structures genre, dans Menu.xlsm:

VB:

Private Sub Workbook_Open()
Application.OnTime Now, "Menu"
End Sub

histoire de faire en sorte que cette demande d'exécution soit différée, mais seulement de ce qu'il faut pour que l'autre classeur termine son exécution en se fermant ?

 

Vote positif 0 Vote négatif

xvella

XLDnaute Occasionnel

• 20 Octobre 2017

• #10

Bonsoir Dranreb,

Et Merci à toi. Cela Marche mais avec un ajustement:

Dans ThisWorkbook:
Private Sub Workbook_Open()
Tempo
Application.OnTime Now + TimeValue("00:00:05"), "Prog"
End Sub

puis dans un module:
Option Explicit
Dim Tps As Date

Sub Tempo()
'Programmation de l'évènement toutes les secondes
Tps = Now + TimeValue("00:00:01")
Application.OnTime Tps, "Tempo"
'Traitement optionnel
Sheets("F1").Range("A1").Value = Format(Now, "hh:nn:ss")
End Sub

Sub Stop_Tempo()
On Error Resume Next
'Stop la gestion de OnTime
Application.OnTime Tps, "Tempo", , False
End Sub

Tempo est nécésaire sinon le programme ne retrouve pas l'évènement.
Stop_Tempo est nécésaire pour arrète le procécus.

Merci encore à tous les deux de vous être penchez sur mon problème.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Octobre 2017

• #11

Bonjour.
Ça ne m'a pas l'air d'avoir grand rapport avec le problème initial que vous évoquiez…

 

Vote positif 0 Vote négatif

xvella

XLDnaute Occasionnel

• 20 Octobre 2017

• #12

Pourquoi quand la command close est bloquer par l'ouverture du userform au départ du problème.
Avec ta solution, tu lance est mémoire temporel le userform sans l'executer. Ce qui permet à la command close de ce faire.

Merci encore à vous 2.
A+

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Octobre 2017

• #13

Alors je ne vois pas quels ajustements évoqués au #10 il vous aurait fallu.
Ces deux UserForms avec ShowModal = True s'ouvrent bien mutuellement après s'être fermés, sans jamais encombrer la pile de variables locales de procédures non terminées s'appelant mutuellement.

 

Pièces jointes

• Classeur1.xlsm

  23.7 KB · Affichages: 25

Dernière édition: 20 Octobre 2017

Vote positif 0 Vote négatif

xvella

XLDnaute Occasionnel

• 21 Octobre 2017

• #14

En #10 l'ajustement était TimeValue, car avec le réseau une erreur de perte de l'objet survenait.

Bonne journée à toi.

(Dsl pour la réponce tardive mais je travail de nuit)

 

Vote positif 0 Vote négatif